โค้ดระบุวันที่เริ่มต้นค่ะ

[suka]

สวัสดีค่ะ
ขอความช่วยเหลือช่วยปรับโค้ดแนบนี้ ต้องการเพิ่มเงื่อนไขใน VBA ค่ะ

ความต้องการตามตัวอย่างไฟล์แนบได้ระบายสีเหลืองไว้ค่ะ ใช้เงื่อนไขในเซลล์ M6:N6 โค้ดยังติดที่ M6 ยังไม่สามารถเขียนโค้ดดึงตามต้องการได้ค่ะ

Code: Select all

Sub Exp()
Dim i As Long
Dim l As Long
Dim r As Long
Application.ScreenUpdating = False
Range("M7:P30").ClearContents
l = Range("b" & Rows.Count).End(xlUp).Offset(1, 0).Row
For i = 1 To l
    r = Range("n" & Rows.Count).End(xlUp).Offset(1, 0).Row
    If LCase(Range("b" & i).Value) = LCase(Range("n6").Value) Then
    Range("n" & r).Value = Range("b" & i).Value
    Range("m" & r).Value = Range("a" & i).Value
    Range("o" & r).Value = Range("c" & i).Value
    Range("p" & r).Value = Range("d" & i).Value
    End If
Next i
Application.ScreenUpdating = True
End Sub

[puriwutpokin]

ปรับตรงนี้ครับ

Code: Select all

For i = 7 To l

Code: Select all

If Range("b" & i).Value = Range("n6").Value And Range("a" & i).Value >= Range("m6").Value Then

[suka]

ปรับตรงนี้ครับ

Code: Select all

For i = 7 To l

Code: Select all

If Range("b" & i).Value = Range("n6").Value And Range("a" & i).Value >= Range("m6").Value Then

ขออนุญาตนะคะ ไม่ทราบว่านำโค้ดไปวางถูกตำแหน่งไหมค่ะ โค้ดยังใข้งานไม่ได้ค่ะ

มีป๊อปอัพแจ้งข้อผิดพลาดตัวแปรควบคุมที่ใช้งายอยู่ค่ะ

ต้องขอโทษนะคะไม่สามารถแนบรูปแจ้งเตือนเข้าฟอรั่ม แนบไม่ได้เลยค่ะ

ใช้ Excel 2007 ค่ะ

[puriwutpokin]

ตามนี้ครับ

Code: Select all

Sub Exp()
Dim i As Long
Dim l As Long
Dim r As Long
Application.ScreenUpdating = False
Range("M7:P30").ClearContents
l = Range("b" & Rows.Count).End(xlUp).Offset(1, 0).Row
For i = 7 To l
    r = Range("n" & Rows.Count).End(xlUp).Offset(1, 0).Row
       If Range("b" & i).Value = Range("n6").Value And Range("a" & i).Value >= Range("m6").Value Then
    Range("n" & r).Value = Range("b" & i).Value
    Range("m" & r).Value = Range("a" & i).Value
    Range("o" & r).Value = Range("c" & i).Value
    Range("p" & r).Value = Range("d" & i).Value
    End If
Next i
Application.ScreenUpdating = True
End Sub

[suka]

โค้ดใช้ได้ตรงตามที่ต้องการแล้วค่ะ ขอบคูณคุณ puriwutpokin มากนะคะ