Sorgu için arama sonuçları: Filldown

Merhaba arkadaşlar, Aşağıdaki makro, 7. sütundaki değer kadar 1. sütundan 7. sütunda dahil tüm verileri tekrar ettirek yazdırıyor. Soru ise ; 7.sütun olarak belirtilen bu makro sütün bilgi girin diye bir sorgu ile hangi sütundan itibaren tüm satırı alt alta tekrar ettirebilir diye bir sorgu...

...ActiveCell.FormulaR1C1 = "=IF(RC[-5]=""A"",""AL"",""SAT"")" Range("F2").Select Selection.Copy Range("F&N").Select ActiveSheet.Paste Range(Selection, Selection.End(xlUp)).Select Application.CutCopyMode = False Selection.FillDown End With Next I End Sub

...Sheets("per").Range("R75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre Selection.FillDown Sheets("per").Range("S75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre...

...= False sonsat1 = [SERVİSFORMU!a65536].End(3).Row + 1 Rows(sonsat1).Insert Shift:=xlDown Range("A" & sonsat1 & ":B" & sonsat1).FillDown Range("C" & sonsat1 & ":J" & sonsat1).FillDown Range("K" & sonsat1 & ":AB" & sonsat1).FillDown Range("AC" & sonsat1 & ":AD" & sonsat1).FillDown Range("AE" &...

...iki sütundaki formülleri bir alt satıra kopyalıtorum. satir = Range("A65536").End(xlUp).Row + 1 Range(Cells(satir, "N"), Cells(satir, "R)).FillDown Fakat üç sütundaki formülleri alt satıra aktarmak için kullandığım aşağıdaki formülü kullandığımda hata veriyor. satir =...