Giải pháp liên kết từ sheet Diễn giải chi tiết sang sheet TONG HOP (1 người xem)

[vanle33]

Em có một vấn đề đã được em đề cập đến trong file đính kèm. Mong các anh chị giúp đỡ.
Thanks!

 

[vanle33]

Em nghĩ bài của em có thể giải quyết theo cách :
{copy dòng khối lượng tổng bên sheet "Dot 3" sau đó sang sheet "TONG HOP" nhấn Paste special/Transpose + hành động A.
Trong đó hành động A là để tạo thành link từ sheet "Dot 3" sang sheet "TONG HOP"}
Em không biết code lên không biết tạo ra code thỏa mãn các yêu cầu trong dấu {}.
Mong các anh chị giúp đỡ.

 

[sealand]

Bạn phải giải thích rõ lại yêu cầu xem sao chứ dân ngoại đạo Xây dựng như bọn mình nhìn chả hiểu gì cả

 

[vanle33]

Bạn phải giải thích rõ lại yêu cầu xem sao chứ dân ngoại đạo Xây dựng như bọn mình nhìn chả hiểu gì cả

Tức là chuyển dữ liệu từ sheet "Dot 3" sang bên sheet "TONG HOP" từ ngang thành cột dọc (tương tự như copy rồi Paste specials/Transpose) đó bác.

 

[vanle33]

Tức là chuyển dữ liệu từ sheet "Dot 3" sang bên sheet "TONG HOP" từ ngang thành cột dọc (tương tự như copy rồi Paste specials/Transpose) đó bác.

Ví dụ em copy F8:AC8 của sheet "Dot 3" sau đó sang sheet "TONG HOP" đặt con trỏ ở ở G7, rồi nhấn 1 nút GÌ đó thì toàn bộ kết quả sẽ được hiện ra từ G7:G30. kết quả mong muốn của em như em đã đề cập đến trong file đính kèm ở bài #1.

 

[Hong.Van]

Ví dụ em copy F8:AC8 của sheet "Dot 3" sau đó sang sheet "TONG HOP" đặt con trỏ ở ở G7, rồi nhấn 1 nút GÌ đó thì toàn bộ kết quả sẽ được hiện ra từ G7:G30. kết quả mong muốn của em như em đã đề cập đến trong file đính kèm ở bài #1.

Bạn thử với file này!!!!!!!!!!!!!!!!!!!!

 

[vanle33]

Bạn thử với file này!!!!!!!!!!!!!!!!!!!!

Cảm ơn chị nhưng đó chỉ giải quyết được vấn đề Paste/Transpose nhưng quan trọng nhất là yêu cầu em ghi trong file đính kèm ở bài #1 đó!
Không biết có cách không các anh chị?

 

[sealand]

Cái chính của vấn đề là chép từ chỗ nào sang chỗ nào, căn cứ vào cái gì để chép, các mục khác và đợt khác thì sao. Cơm áo gạo tiền đâu đùa được, chứ mấy cái chuyện thủ thuật như ý bạn thì chắc không quá tầm GPE đâu.

 

[vanle33]

Cái chính của vấn đề là chép từ chỗ nào sang chỗ nào, căn cứ vào cái gì để chép, các mục khác và đợt khác thì sao. Cơm áo gạo tiền đâu đùa được, chứ mấy cái chuyện thủ thuật như ý bạn thì chắc không quá tầm GPE đâu.

E muốn như bài #5 đó bác.
Sau khi đã tạo được code để đạt yêu cầu bài #5 thì sẽ phát triển thêm code là hiện 1 hộp thoại Copy từ dòng nào của sheet nào và Paste sang cột nào của sheet "TONG HOP". Sau đó nhấn nút TẠO LINK là OK (nút TẠO LINK là nút GÌ em nói ở bài #5 đó)

 

[sealand]

Cứ thử thế này xem sao

Sub CopyLink()
Dim Cl As Integer, Sh As Worksheet, eR As Long, i
Cl = ActiveCell.Column
If Cl < 5 Or Cl > 28 Then Exit Sub
ShName = Cells(4, Cl)
If TestSheet(Cells(4, Cl)) Then
Set Sh = ThisWorkbook.Worksheets(Cells(4, Cl).Text)
eR = InputBox("Nhap dong chep link tai Sheet: " & Cells(4, Cl))
If Not IsNumeric(eR) Then Exit Sub
For i = 6 To 29
ActiveCell.Formula = "='" & Cells(4, Cl).Text & "'!" & Sh.Cells(eR, i).Address
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'" & Cells(4, Cl) & "'!" & Sh.Cells(eR, i).Address
Selection.Offset(1).Select
Next
End If
End Sub
'--------------------------------------------------
Function TestSheet(Name As String) As Boolean
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name = Name Then
TestSheet = True
Exit Function
End If
Next
TestSheet = False
End Function

(Xin lỗi đã có file Update ở bài sau, mình xóa file kèm bài này tận dụng Tài nguyên)

 

[vanle33]

Cám ơn bác Sealand
1) Em muốn bỏ bàn tay khi di con trỏ đến ô đã được tạo link thì phải sửa code như thế nào?
2) Em thử copy 1 hàng khác bên Sheet "Dot 3" hoặc các "Dot khác" e làm như thế này
+) Chọn vùng cần copy sang
+) Nhấn Ctrl+ m thì bị báo lỗi như hình dưới và không thực hiện được các thao tác khác nữa

 

[sealand]

Bạn chép đè code sau vào để tùy ý có tạo HypeLink hay không? và khắc phục lỗi.
(Mình bỏ biến ShName nhưng xóa sót trong Code)

Sub CopyLink()
Dim Cl As Integer, Sh As Worksheet, eR As Long, AdLink, i
Cl = ActiveCell.Column
If Cl < 5 Or Cl > 28 Then Exit Sub
If TestSheet(Cells(4, Cl)) Then
Set Sh = ThisWorkbook.Worksheets(Cells(4, Cl).Text)
eR = InputBox("Nhap dong chep link tai Sheet: " & Cells(4, Cl))
AdLink = MsgBox("Ban co muon dien HypeLink không ?", vbYesNo, "NHAP HYPELINK O KET QUA")
If Not IsNumeric(eR) Then Exit Sub
For i = 6 To 29
ActiveCell.Formula = "='" & Cells(4, Cl).Text & "'!" & Sh.Cells(eR, i).Address
If AdLink = 6 Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'" & Cells(4, Cl) & "'!" & Sh.Cells(eR, i).Address
Selection.Offset(1).Select
Next
End If
End Sub

 

[vanle33]

Bạn chép đè code sau vào để tùy ý có tạo HypeLink hay không? và khắc phục lỗi.
(Mình bỏ biến ShName nhưng xóa sót trong Code)

Sub CopyLink()
Dim Cl As Integer, Sh As Worksheet, eR As Long, AdLink, i
Cl = ActiveCell.Column
If Cl < 5 Or Cl > 28 Then Exit Sub
If TestSheet(Cells(4, Cl)) Then
Set Sh = ThisWorkbook.Worksheets(Cells(4, Cl).Text)
eR = InputBox("Nhap dong chep link tai Sheet: " & Cells(4, Cl))
AdLink = MsgBox("Ban co muon dien HypeLink không ?", vbYesNo, "NHAP HYPELINK O KET QUA")
If Not IsNumeric(eR) Then Exit Sub
For i = 6 To 29
ActiveCell.Formula = "='" & Cells(4, Cl).Text & "'!" & Sh.Cells(eR, i).Address
If AdLink = 6 Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'" & Cells(4, Cl) & "'!" & Sh.Cells(eR, i).Address
Selection.Offset(1).Select
Next
End If
End Sub

Copy toàn bộ code trên và đè vào toàn bộ code cũ phải không bác?
Sau khi thực hiện thao tác trên em
+) Chọn vùng cần copy sang
+) Nhấn Ctrl+m thì không thấy có tác dụng gì. Chỉ có tiếng nhạc "keng" báo lỗi.

 

[sealand]

Vậy thì mình gửi lại file
(Mình xóa file bài trước nha, đỡ phí tài nguyên)

 

[vanle33]

Vậy thì mình gửi lại file
(Mình xóa file bài trước nha, đỡ phí tài nguyên)

Bác giúp em để sửa code sao cho
Sau khi nhấn Ctrl+m thì sẽ hiện ra 1 hộp thoại có hai dòng (dùng chuột để chọn được như chọn vùng để lặp lại khi in)
Dòng thứ nhất là : Chọn vùng cần copy (vùng này có thể ở các dòng khác nhau của các Dot khác nhau), số cột của dòng đó không cố định là 24 mà có thể thay đổi.
Dòng thứ hai là : Chọn ô bắt đầu tạo link trên sheet TONG HOP (ô này không chỉ ở H7 mà có thể ở H30, H65 ...)
Dưới cùng là có nút TẠO LINK và nút Cancel
Em cám ơn bác nhiều!