คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
Code: Select all
Sub Compare_data()
Sheets("PL(YTD)").Select
Range("d6:d14").Select
Selection.Copy
Sheets("PL_YTD").Select
Range("U3").Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub
ปรับเป็นMarch201711 wrote: Thu Feb 14, 2019 1:20 pm ถ้าเราเลือกเปลี่ยนตามเดือนที่column v1 แล้วให้ไปวางที่ eถึงpตามเดือน เช่นเลือกเดือน Feb ที่v1 ต้องไปวางที่ column F น่ะค่ะ
Code: Select all
Sub Compare_data()
Dim r As Range
For Each r In Range("e2:p2")
If r.Value = [v1] Then
Sheets("PL(YTD)").Select
Range("d6:d14").Select
Selection.Copy
Sheets("PL_YTD").Select
r.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
Next
End SubCode: Select all
Sheets("BS").SelectCode: Select all
Sheets("PL_YTD").SelectCode: Select all
Dim r As Range
For Each r In Range("E2:P2")
If r.Value = [v1] Then
Sheets("BS(YTD)").Select
Range("D6:D212").Select
Selection.Copy
Sheets("BS").Select
r.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
Next Code: Select all
Dim Z As Range
For Each Z In Range("E2:P2")
If Z.Value = [v1] Then
Sheets("PL(YTD)").Select
Range("D6:D219").Select
Selection.Copy
Sheets("PL_YTD").Select
Z.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
Next
MsgBox " finished " Code: Select all
Sub Import()
'Change next month ex: G3 is Mar
Dim r As Range
For Each r In Sheets("BS").Range("E2:P2")
If r.Value = [v1] Then
Sheets("BS(YTD)").Select
Range("D6:D212").Select
Selection.Copy
Sheets("BS").Select
r.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
Next
Dim Z As Range
For Each Z In Sheets("PL_YTD").Range("E2:P2")
If Z.Value = [v1] Then
Sheets("PL(YTD)").Select
Range("D6:D219").Select
Selection.Copy
Sheets("PL_YTD").Select
Z.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
End If
Next
MsgBox " finished "
End Subคำถามหรือครับ ยังไม่ผ่านหรือครับ หรือถามเฉยๆครับ
ดูตามไฟล์แนบครับ
ผมลองทดสอบ Run ดูไม่พบกว่าติดปัญหาครับ