Excel Forum

ขอบคุณครับ

เรียนถามอาจารย์ตามโค้ชด้านล่าง ในcolumn F และ G ผมต้องใส่สูตร ตามโค้ช

ถ้าจำนวนแถวมากขึ้น ต้องแก้ไขโค้ชอย่างไรครับ

Sub Macro6()
'
' Macro6 áÁâ¤Ã
'

'
Range("G1").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-4],0)"
Range("G1").Select
Columns("G:G").ColumnWidth = 12.13
ActiveCell.FormulaR1C1 ...

ขอบพระคุณมากครับ สามารถ copy ตามเงื่อนไขได้แล้วครับ

โปรแกรมแจ้ง error ที่บรรทัด c.EntireRow.Copy Sheets("Sheet2").Cells(1 & i)ครับ
ว่าไม่สามารถ copy ได้ ขนาดของ Cell ที่เลือกไม่เท่ากันครับ

Sub tesr()
'xx = Worksheets("sheet1").Range("c5").Value
'Worksheets("sheet1").Range("c15").Value = xx
'i = WorksheetFunction.CountA(Worksheets("sheet1").Columns("C:C")) + 5
'Worksheets("sheet1").Cells(i, 3).Value = "Add data"
On Error Resume Next
xx = DatePart("yyyy", Date)
With Sheets("Sheet1 ...

ครับ ผมแนบไฟล์แล้วครับ

2013 2013 2013 2013 2013 2013 2013 2013 2013
2014 2013 2013 2013 2013 2013 2013 2013 2013
2014 2013 2013 2013 2013 2013 2013 2013 2013
2015 2013 2013 2013 2013 2013 2013 2013 2013

ใน column แรก ต้องการค้นหา ปี 2014 แล้ว copy ไป ทั้งบรรทัด อีก sheet หนึ่ง
ใช้คำสั่งคือ
On Error Resume Next
xx ...

ผมเป็นมื่อใหม่ รบกวนอาจารย์ ทำตัวอย่าง ที่ใช้ค่าจาก sheet หนึ่ง ไปค้นหาข้อมูล ในอีกsheet หนึ่ง เพื่อใส่ค่าที่ได้จาก
sheetแรกครับ

ขอบพระคุณมากครับ