Dolu HÜcre Sayisina GÖre HÜcre Doldurmak

[yuang]

Herkeze merhaba!

Ekte Gönderdiğim dosyada belirttiğim hususa yardımcı olucak arkadaşa şimdiden teşekkürler...

 

[Necdet]

Merhaba,

Doğru mu anladım bilmiyorum.

Aşağıdaki kodları bir modüle bağlayıp dener misiniz?

Sub Makro1()
Application.ScreenUpdating = False
SonSat = [B65536].End(3).Row
Range("C17:C" & SonSat).FillDown
Range("E17:E" & SonSat).FillDown
Range("F17:F" & SonSat).FillDown
Application.ScreenUpdating = True
End Sub