[vb:1:aaaec80031]Sub Test()
Dim NoG As Long
NoG = Range("G65536").End(xlUp).Row
Range("G4").AutoFill Destination:=Range("G4:G" & NoG - 1)
End Sub
[/vb:1:aaaec80031]
Büyük ihtimalle sizin bahsettiğiniz G65535 hücresinde bir şeyler vardır ki ..... formul veya bir veri olabilir, hatta hücrenin içindeki bir boşluk bile olsa, o zaman benim önerdiğim kod o hücreyi de dolu kabul eder.
Ancak kodu , gönderdiğiniz örnek dosyaya göre H sütununun dolu olan en son hücresine göre .... diye düzenlemek gerekiyor.
Bu durumda, kullanacağınız kod:
[vb:1:af7cf894b8]Sub Test()
Dim NoH As Long
NoH = Range("H65536").End(xlUp).Row
Range("G4").AutoFill Destination:=Range("G4:G" & NoH)
End Sub
[/vb:1:af7cf894b8]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.