FORMÜLÜ BİR ALT SATIRA KOPYALAMAK.

[alpay1]

FORMÜLÜ BÝR ALT SATIRA KOPYALAMAK.

Değerli arkadaşlar,
Aşağıdaki kodlarla hücre üzerinde 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 = Range("A65536").End(xlUp).Row + 1
Range(Cells(satir, "N"), Cells(satir, "R"), Cells(satir, "U")).FillDown

Hatanın nerede olduğu konusunda yardımcı olursanız sevinirim.
Teşekkürler.

 

[gkseren]

Range("1:1").Select ' ->1. satırı seçer
Selection.AutoFill Destination:=Range("1:5"), Type:=xlFillDefault ' -> 1. satırdan 5. satıra kadar doldurur.

Üstte yazmış olduğum kodlar bu sorunun cevabı değildir. Fakat farklı uygulamalarda kullanılabilir olduğu için silmedim.

 

[veyselemre]

Aşağıdaki kodlarla hücre üzerinde iki sütundaki formülleri bir alt satıra kopyalıtorum.

Yanlış N ve R sutunları arasındaki formül veya verileri aşağı kopyalıyorsunuz.

Filldown olayında çoklu seçiml yapılamıyor, aralık veya tek hücre seçmeniz gerekir. Eğer üç hücre için yapmak istiyorsanız ayrı ayrı yapmanız gerekir.

[vb:1:641696a3f4]
satir = Range("A65536").End(xlUp).Row + 1
Cells(satir, "N").FillDown
Cells(satir, "r").FillDown
Cells(satir, "u").FillDown
[/vb:1:641696a3f4]
şeklinde deneyiniz

 

[alpay1]

Sayın veyselemre,
Sizin söylediğiniz gibi denedim.Sorun halloldu.
Teşekkür ederim.

 

[gkseren]

Sanırım ben fazla anlamadan cevap yazmışım, kusura bakmayınız.