ทำรายงานสินค้าคงเหลือ

[Apiwat Antara]

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

Code: Select all

Public Sub output()

Dim rall As Range, r As Range

With Sheets("Data3")
    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")
                With .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0)
                      .Resize(1, 7).Value = r.Resize(1, 7).Value
                End With
            End With
        End If
    Next r
End With
End Sub
[/c]

Stock.xlsm

[astalavista]

ลองเปลี่ยนตรง

Code: Select all

With Sheets("Data3")

เป็น

Code: Select all

With Sheets(Sheets("REPORT").Range("J3").Text)

ดูครับ

[Apiwat Antara]

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

[astalavista]

ขออภัยครับ อย่างนั้นรอท่านอื่นช่วยตอบครับ

[puriwutpokin]

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

Code: Select all

Public Sub output()

Dim rall As Range, r As Range

With Sheets("Data3")
    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")
                With .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0)
                      .Resize(1, 7).Value = r.Resize(1, 7).Value
                End With
            End With
        End If
    Next r
End With
End Sub
[/c]

Stock.xlsm

ปรับจาก

Code: Select all

With Sheets("Data3")

เป็น

Code: Select all

'Other Code...
With Sheets(Range("J3").Value)
'Other Code...

[Apiwat Antara]

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

Code: Select all

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")
                With .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0)
                      .Resize(1, 7).Value = r.Resize(1, 7).Value
                End With
            End With
        End If
    Next r
End With
End Sub

[Apiwat Antara]

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