Excel Forum

ขอโทษด้วยครับ ตอนนี้ใช้งานได้แล้วครับ
ที่ Run ไม่ผ่าน เนื่องจาก ตอน Run เซลล์ J3 เป็นค่าว่างครับ ทำให้ไม่ผ่าน
ขอบคุณทุกความช่วยเหลือครับผม

ลองตามที่แนะนำแล้ว ยัง Run ไม่ผ่านเลยครับ
Public Sub output()

Dim rall As Range, r As Range

With Sheets(Range("J3").Value)
Set rall = .Range("b2", .Range("b" & .Rows.Count).End(xlUp))
For Each r In rall
If r.Offset(0, 4).Value <= Sheets("REPORT").Range("j7").Value Then
With Sheets("Report ...

ลองแล้ว Run ไม่ผ่านครับ

สอบถามครับ
อยากให้รายการสินค้าคงเหลือแสดงในsheet report ด้วยการเลือกข้อมูลที่จะแสดงจาก cell J3 ใน sheet report ซึ่งเป็น drop down list
ต้องแก้ใข code อย่างไรครับ ตอนนี้ติดตรงเลือก sheet ที่จะแสดงครับ

Public Sub output()

Dim rall As Range, r As Range

With Sheets("Data3")
Set rall = .Range("b2 ...