Satırlardaki sayıları silmek

[yavuz829]

Merhaba arkadaşlar ekli dosyamda F6 ye ilk sayıyı F7 ye son sayıyı yazarak A11 hücresinden başlayarak aşağıda dolu hücreleri dolduruyorum.
İkinci defa hücrelere sayı doldurduğum zaman eski doldurduğum hücreler dolu kalıyor.
Örneğin 1 den 25 e kadar hücreleri dolduruyorum. İkinci bir defa 1 den 5 e kadar hücreleri doldurmak istediğim zaman
hücreler 1 den 5 kadar dolu olması gerekirken daha önce 1 den 25 e kadar doldurmuş olduğum sayılar duruyor.
Benim istediğim doldur dediğim zaman önce A11 hücresinden başlayarak sütundaki hücreleri temizlesin sonra doldursun. Bu konuda yardımlarınızı bekliyorum.

 

[vardar07]

Merhaba. Module2 deki doldur kodunu aşağıdaki ile değiştirip denermisin.

Sub doldur()
Range("A11:A5000").Select
    Selection.ClearContents
     Range("A11").Select
a = [f8] - [f7]
[a11] = [f7]
For i = 12 To 11 + a
Cells(i, 1) = Cells(i - 1, 1) + 1
Next
End Sub

 

[yavuz829]

Çok teşekkürler hocam ellerinize sağlık. Tam istediğim gibi olmuş.