hücreye sıralı sayı yazdırmak

[MOONROSE]

Merhaba,
Sheet1 de bulunan commandbutton1'e her tıklandığında,
sheet2 deki range("af2")' yi sheet1.range("J3")' e yazmasını ve hiç boşluk bırakmadan her tıklayışta 0001 den 9999 a kadar sayı eklemesini istiyorum.(Not: eklenecek sayı sıralı gitmeli.Command buttona ilk tıkladığımda 0001 eklemeli 2.tıklayışta 0002 eklemeli). Aşağıdaki kodlara for i den sonra bir koşul eklemem gerekiyor galiba ama ne? yardımcı olursanız sevinirim.

Private Sub CommandButton1_Click()
For i = 1 To 9999
Sheets("sheet1").Range("J3") = Sheets("sheet2").Range("AF2") & i
Next i

 

[MOONROSE]

Arkadaşlar bu konuda yardımcı olacak kimse yok mu?yardım lütfen.Birde sheet2 range af2 de yıl ve ay bilgisi olacak.Bunların sonuna 1 den 9999 a kadar sayır yazılacak. Mümkünse bir diğer isteğim.2005 in 12 inci ayında 1 den 9999 a kadar üretsin. 2006 nın 1. ayında yine 1 den 9999 kadar sayı üretsin.

 

[Levent Menteşoğlu]

Sorunuz net değil, altalta 1-9999 arasımı yazılacak. Yoksa aynı hücrede 1-9999 arasımı saydırılacak.

 

[MOONROSE]

Haklısınız,net anlatamamışım sanırım.İstediğimi anlatan ve gösteren dosya ektedir.Yardımcı olursanız çok sevinirim.

 

[Levent Menteşoğlu]

Ay değiştiğinde B1 hücresini sıfırlaması için aşağıdaki kodu sheet1 in kod sayfasına kopyalayın.

[vb:1:0c677825ac]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [g2]) Is Nothing Then Exit Sub
If Month([g2]) <> Month([g2] - 1) Then [b1] = 0
End Sub
[/vb:1:0c677825ac]

Aşağıdaki koduda bir butona bağlarsanız her bastığınızda B1 hücresini birer arttırır.

[vb:1:0c677825ac]Sub sayiekle()
[b1] = [b1] + 1
End Sub
[/vb:1:0c677825ac]

 

[MOONROSE]

Çoook teşekkür ederim.Umarım bende birgün bağımsız kod yazma işini öğrenirim.