Formülü Sürükle Makrosu

[meslek5]

Merhaba değerli hocalarım
Linkte yerlan "AŞAĞI SÜRÜKLE.xlsb" adlı dosyada örnek tablo oluşturdum. Tabloda D8 hücresinin sağ alt köşesine tıkladığımda formül son satıra kadar kendini sürükleyip çoğaltıyor. Fakat bunu makro ile yapmak istiyorum ama tablodaki satır sayısı değişkenlik gösterdiği için makro kaydet ile yapamadım. Makronun tablodaki son satıra kadar formülü sürüklemesi gerekiyor.
NOT: Tablodaki satır sayısı sabit değil
Yardımcı olursanız çok mutlu olurum.

İndir AŞAĞI SÜRÜKLE xlsb

Dosyayı indir AŞAĞI SÜRÜKLE xlsb

dosya.co

 

[muygun]

Merhaba;
Eğer C sütununda sıra no'su varsa Aşağıdaki kodları deneyin.

Sub işlem()
Range("D8").Select
Selection.Copy
For i = 9 To Range("c65536").End(xlUp).Row
If IsNumeric(Cells(i, "c")) = True And Cells(i, "c") <> 1000 And Cells(i, "c") <> "" Then
Range("D" & i).Select
ActiveSheet.Paste
End If
Next i
Application.CutCopyMode = False
Range("D8").Select
End Sub

İyi çalışmalar.

 

[mkuru28]

Hocam bu kodu sadece <>1000 değeri olmadan C sütununda herhangi bir değer varsa formülü sürüklemek için nasıl düzenleyebiliriz?

 

[muygun]

Merhaba;
Birde bu şekilde deneyin
İyi çalışmalar.

Sub işlem()
Range("D8").Select
Selection.Copy
For i = 9 To Range("c65536").End(xlUp).Row
If IsNumeric(Cells(i, "c")) = True And Cells(i, "c").MergeCells = False And Cells(i, "c") <> "" Then
Range("D" & i).Select
ActiveSheet.Paste
End If
Next i
Application.CutCopyMode = False
Range("D8").Select
End Sub

 

[meslek5]

Merhaba;
Eğer C sütununda sıra no'su varsa Aşağıdaki kodları deneyin.

Sub işlem()
Range("D8").Select
Selection.Copy
For i = 9 To Range("c65536").End(xlUp).Row
If IsNumeric(Cells(i, "c")) = True And Cells(i, "c") <> 1000 And Cells(i, "c") <> "" Then
Range("D" & i).Select
ActiveSheet.Paste
End If
Next i
Application.CutCopyMode = False
Range("D8").Select
End Sub

İyi çalışmalar.

Çok teşekkür ederim sayın hocam. Tam olarak istediğim sonucu veriyor.