Snasui Excel Forum

:D จาก 4. ต้องการให้ข้อมูลสูตรบรรทัด L2:AJ2 เมื่อกดปุ่ม SUBMIT นั้น Autofill ผันแปรตามข้อมูลตราง E:K ตามข้อ 3โดยมี (ข้อยกเว้น) ไม่ต้อง Autofill สูตรบรรทัด L2:AJ2 ในกรณีถ้าหาก
4.1 E:K ไม่มีข้อมูล หรือ
4.2 E:K มีข้อมูลแค่ 1 รายการหรือ 1 ROW
ตัวอย่างการปรับ Code ตามด้านล่างครับ
Sub SUBMIT()
Dim ...

Sub SUBMIT()
Dim FillRow As Integer
Dim lr As Long
Sheets("GUI").Columns("A:P").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:C2"), CopyToRange:=Range("E1:K1"), Unique:=False
lr = Cells(Rows.Count, 12).End(xlUp).Row
With Sheets("REPORT6")
Range("L5:AJ" & lr).Clear
FillRow ...

ขอบคุณอาจารย์และ niwat2811 ครับ
ทำได้ตามที่ต้องการแล้วครับ ^_^

:D ลองปรับ Code เป็นตามด้านล่างครับ

Sub SUBMIT()
Dim FillRow As Integer
With Sheets("REPORT6")
FillRow = .Range("E" & Rows.Count).End(xlUp).Row - _
.Range("L" & Rows.Count).End(xlUp).Row + 1
End With
Sheets("GUI").Columns("A:P").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range ...

4. สิ่งที่ต้องการให้พื้นที่สีเหลืองนั้น AutoFill สูตรบรรทัดที่ 3 L4: AJ4ผันแปรตาม ข้อมูลที่ Filter ได้ในคอลัมน์ E:K ครับ โดยให้ AutoFill ถึงแค่ Row สุดท้ายที่ E:K มีข้อมูล
อ่านแล้วไม่เข้าใจครับ สูตรในบรรทัดที่ 3 คืออะไร อยู่ในชีทไหน ช่วงเซลล์ไหนครับ

ในพื้นที่สีเหลือง ช่วยโยงให้เห็นว่ามาจากข้อม ...

การทำให้ Dynamic สามารถปรับ Code เป็นตามด้านล่างครับ
Selection.AutoFill Destination:=Range("L4", Range("AJ" & Rows.Count).End(xlup))

สำหรับการโพสต์ Code ให้เป็น Code ดูตัวอย่างที่นี่ครับ http://snasui.com/viewtopic.php?f=2&t=1187


ขอบพระคุณอาจารย์มากครับที่ตอบกระทู้นี้ และมีเรื่องเรียนสอบถามเพ ...

ช่วยด้วยครับถ้าเราจะกำหนด Range บรรทัดสุดท้าย "AutoFill Destination:=Range("L4:AJ7")" ตามตัวอย่างด้านล่างให้เป็น Dynamic Range ต้องเขียน Code อย่างไร

Sub SUBMIT()
'
' SUBMIT Macro
'
' Keyboard Shortcut: Ctrl+s
'
Sheets("GUI").Columns("A:P").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange ...