Son Satır

[mesutaygun70]

Excelde aşağıdaki gibi bir kodum var.
Selection.AutoFill Destination:=Range("J1:K1500")
Buradaki K1500 ilerleyen tarihlerde 30000 e kadar çıkabilir. Bunu şimdi 30000 yazarsam excel yavaşlıyor.
K1500 yerine , A sutunu dolu olan son hücreye kadar diye bir kod yazmaya çalıştım Dim As kullanarak ama başaramadım. Yardımcı olabilirmisiniz.

 

[Orion1]

Böyle deneyiniz.
range("J1:K" & cells(rows.count,"J").end(xlup).row)