VBA ดึงข้อมูลตามวันที่ ต้องการให้ดึงเลขที่เอกสารด้วยค่ะ

[suka]

ขอบคุณค่ะคุณ niwat2811 ยังไม่ได้ค่ะ

ความต้องการยังคงเงื่อนไข Code เดิมค่ะ เซลล์ A3:G4 เซลล์มีใดมีค่าเข้าเงื่อนไขให้ดึงข้อมูลมาค่ะ
ยังคง Code ด้านล่างนี้ไว้ค่ะ

Code: Select all

Sheets("Report").Range("A10:Q1000").ClearContents
Sheets("Database").Columns("A:Q").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A3:F4"), CopyToRange:=Range("A10"), Unique:=False

สิ่งที่ต้องการเพิ่มคือเลือกวันใดๆที่ระบุที่เซลล์ B4 ถึงวันใดๆที่ระบุที่เซลล์ C4 ตัวอย่างตามไฟล์แนบชีท Report ค่ะ

ยังติดปัญหาตามรูปแนบค่ะ

[snasui]

ปรับ Code เป็นแบบเดิมแล้วเปลี่ยนค่าใน B4:C4 เป็นสูตรตามด้านล่างครับ

B4

Code: Select all

=">="&"18/9/2015"+0

C4

Code: Select all

="<="&"21/9/2015"+0

[suka]

ขอบคุณอาจารย์มากๆเลยค่ะ ปัญหายากๆ อาจารย์แก้ให้ดูเป็นสิ่งง่ายๆเลยค่ะ ได้ตรงตามต้องการทุกเงื่อนไขแล้วค่ะ

[suka]

ขอรบกวนช่วยปรับสูตรค่ะ
ตัวอย่างไฟล์แนบชีท Report เซลล์ D4 สูตร

Code: Select all

=">="&$F$4+0

ชีท Report เซลล์ F4 สูตร

Code: Select all

=IF($E$5<>"",$E$5,"")&IF($F$5<>"","/"&$F$5,"")&IF($G$5<>"","/"&$G$5,"")

ต้องการนำสูตรในเซลล์ F4 มาใส่ในสูตรเซลล์ D4 แทนทีตรงระบายสีแดงไว้ =">="&$F$4+0 ไม่ทราบว่าควรปรับสูตรที่เซลล์ D4 อย่างไรคะ

[DhitiBank]

ไม่แน่ใจว่าเข้าใจถูกไหม ที่ D4 ลองคีย์แบบนี้ครับ
=">="&(IF($E$5<>"",$E$5,"")&IF($F$5<>"","/"&$F$5,"")&IF($G$5<>"","/"&$G$5,""))+0
Enter

[suka]

เข้าใจถูกต้องค่ะ ได้ตรงตามต้องการแล้วค่ะ ขอบคุณคุณ DhitiBank มากเลยค่ะ