Page 1 of 1
ทำรายงานสินค้าคงเหลือ
Posted: Fri Nov 02, 2018 11:07 am
by 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
Re: ทำรายงานสินค้าคงเหลือ
Posted: Fri Nov 02, 2018 2:09 pm
by astalavista
ลองเปลี่ยนตรง
เป็น
Code: Select all
With Sheets(Sheets("REPORT").Range("J3").Text)
ดูครับ
Re: ทำรายงานสินค้าคงเหลือ
Posted: Fri Nov 02, 2018 3:36 pm
by Apiwat Antara
ลองแล้ว Run ไม่ผ่านครับ
Re: ทำรายงานสินค้าคงเหลือ
Posted: Fri Nov 02, 2018 3:47 pm
by astalavista
Re: ทำรายงานสินค้าคงเหลือ
Posted: Fri Nov 02, 2018 7:52 pm
by puriwutpokin
Apiwat Antara wrote: Fri Nov 02, 2018 11:07 am
สอบถามครับ
อยากให้รายการสินค้าคงเหลือแสดงใน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
'Other Code...
With Sheets(Range("J3").Value)
'Other Code...
Re: ทำรายงานสินค้าคงเหลือ
Posted: Mon Nov 05, 2018 8:49 am
by 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
Re: ทำรายงานสินค้าคงเหลือ
Posted: Mon Nov 05, 2018 8:57 am
by Apiwat Antara
ขอโทษด้วยครับ ตอนนี้ใช้งานได้แล้วครับ
ที่ Run ไม่ผ่าน เนื่องจาก ตอน Run เซลล์ J3 เป็นค่าว่างครับ ทำให้ไม่ผ่าน
ขอบคุณทุกความช่วยเหลือครับผม
