เลือกdropdownให้เปลี่ยนตามเดือนที่เลือก

[March201711]

ถ้าเราเลือกเปลี่ยนเดือนที่ cell V1 ให้ไปเลือกเดือนที่ Row 2 ของเดือนที่เราเลือกต้องปรับสูตรอย่างไรคะ

[parakorn]

V3 =+INDEX($E$3:$P$11,ROWS($V$3:$V3),MATCH($V$1,$E$2:$P$2,0))-U3
Enter+Copy ลงด้านล่างครับ

[March201711]

ถามต่ออีกนิดค่ะ
code vba ถ้าต้องมาเดือนทุกเดือนให้มัน copy จาก sheet PL(YTD) มา paste special มาวางที่ sheet PL_YTD ตามเดือนต้องปรับแก้อย่างไรคะ

[puriwutpokin]

ปรับเป็น

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]

ถ้าเราเลือกเปลี่ยนตามเดือนที่column v1 แล้วให้ไปวางที่ eถึงpตามเดือน เช่นเลือกเดือน Feb ที่v1 ต้องไปวางที่ column F น่ะค่ะ

[puriwutpokin]

ถ้าเราเลือกเปลี่ยนตามเดือนที่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 Sub

[March201711]

ทำไมลองมาปรับกับไฟล์จริงแล้วไม่ได้ล่ะคะ เกิด debug ให้แก้น่ะค่ะ

[puriwutpokin]

่จุดประสงค์ไว้ที่ชีทไหนครับ ถ้าตามเดิมก็ปรับจาก

Code: Select all

Sheets("BS").Select

เป็น

Code: Select all

Sheets("PL_YTD").Select

[March201711]

ดึงข้อมูลจาก sheet BS(YTD) copy column D ไปวางที่ sheet BS ตามเดือนที่เลือก cell V1 เช่น เลือก Mar-19 ก็ไปวางที่ column G

Code: 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 

ดึงข้อมูลจาก sheet PL(YTD) copy column D ไปวางที่ sheet PL_YTD ตามเดือนที่เลือก cell V1 เช่น เลือก Feb-19 ก็ไปวางที่ column F

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 " 

[puriwutpokin]

ปรับเป็น

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

[March201711]

ทำไมติดdebug ที่แถว r.offset(1,0).select ทุกทีเลยคะ

[puriwutpokin]

ทำไมติดdebug ที่แถว r.offset(1,0).select ทุกทีเลยคะ

คำถามหรือครับ ยังไม่ผ่านหรือครับ หรือถามเฉยๆครับ

[March201711]

ยังเลยค่ะ ติด debug ตลอดเลยค่ะ

[puriwutpokin]

ยังเลยค่ะ ติด debug ตลอดเลยค่ะ

ดูตามไฟล์แนบครับ

[March201711]

ก็ยังติดอยู่นะคะ ทำไมไม่รู้ค่ะ

[snasui]

ผมลองทดสอบ Run ดูไม่พบกว่าติดปัญหาครับ

ไม่ทราบว่าติดปัญหาที่ไฟล์ไหน บรรทัดไหน โปรแกรมฟ้องว่าอย่างไร แนบไฟล์นั้นมาใหม่ครับ