Hücreleri doldurmak

[yavuz829]

Merhaba arkadaşlar ekli dosyamda F6 hücresine ilk sayıyı F7 hücresine son sayıyı yazdığım zaman A11 hücresinden başlayarak aşağıya doğru sayılar sıralansın.
Örneğin: F6 Hücresine 1 , F7 Hücresine 100 yazdığımız zaman A11 Hücresinde başlayarak aşağıya doğru 1 den 100 e kadar sayı doldursun. Bu konuda yardımlarınızı bekliyorum yardımlarınız için şimdiden teşekkürler.

 

[YUSUF44]

Aşağıdaki kodları dener misiniz?

Sub doldur()
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ş.

 

[Necdet]

Merhaba,

2. seçenek, serilerle doldurmak, inceleyiniz.

Sub Makro1()
        
    Range("A11") = Range("F7")
    Range("A11:A" & Range("F8") + 10).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=Range("F7"), Trend:=False
        
End Sub

 

[YUSUF44]

Necdet Bey, kodlarınızda bulunan Step:=Range("F7") nedeniyle başlangıç için 1'den farklı bir sayı yazıldığında dizilim bozuluyor. Örneğin f7=3, F8=50 olduğunda, kodlarınız F11'e3; F12'ye 6 yazıp 150'de bitiriyor.

Arkadaşın isteği ise en küçük f7, en büyük F8 olmak üzere birer arttırarak hücreleri doldurması. Sanıyorum kodlarınızı aşağıdaki gibi değiştirince arkadaşın istediği gibi oluyor:

Sub Makro1()
        
    Range("A11") = Range("F7")
    Range("A11:A" & Range("F8") + 8).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=1, Trend:=False
        
End Sub

Bu arada bu dizi olayı da çok güzelmiş, öğrenmem lazım.

 

[yavuz829]

Hocam ikinci defa sayıları yazarak doldur dediğimiz zaman A11 hücresinden başlayarak sütundaki sayıları sildikten sonra yeni sayıları doldurursa çok iyi olur. Sebebine gelince 1 den 100 kadar sütunu doldurduğumuz zaman ikinci bir defa 1 den 50 kadar doldur dediğimiz zaman 50 sonrası hücrelerin boş olması gerekirken 1 den 100 kadar rakamlar yerinde duruyor.

 

[YUSUF44]

Orda temizle düğmesi vardı ve bastığınızda temizliyordu diye ayarlamamıştım. Şu şekilde kullanabilirsiniz, a11 dolu ise önce temizler sonra doldurur:

Sub doldur()
If [a11] <> "" Then
Range("a11:A" & [a10].End(xlDown).Row).ClearContents
End If
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.