ToggleButton Hk.

[naTRe01]

UserForm içerisinde 12 adet ToggleButton var
Bunların adları Ocak, Şubat, Mart... vs. diye devam ediyor.
Hangi ay seçili ise o ayın adı "VERI" sayfası "A1" hücresinden başlayarak aşağıya doğru yazılmaya devam edecek.

ÖRNEK;
Şubat, Haziran ve Kasım seçili ise
A1 = Şubat
A2 = Haziran
A3 = Kasım

Sadece Temmuz ve Ağustos seçili ise
A1 = Temmuz
A2 = Ağustos

ÖZETLE;
Seçilen butonlar sırası ile a1 boş ise a1 e,
A1 dolu ise A2 ye
A2 dolu ise A3 e yazılacak ve böyle devam edecek.

Kodlar için şimdiden teşekkür ederim.

 

[naTRe01]

Merhabalar;

Soruma cevap bulamadım. Daha basit şekilde sorayım;
Ekle butonuna tıkladığımda "A1" hücresine istediğim veriyi girecek,
"A1" doluysa "A2" ye girecek
"A2" doluysa "A3" e girecek
"A3" doluysa "A4" e girecek...

 

[Levent Menteşoğlu]

Class module ile daha kolay çözülebilirdi ancak örnek dosya olmadan bunu uygulamak zor. Buton sayınız çok fazla olmadığı için aşağıdaki gibide çözüm üretilebilir.

Aşağıdaki kod bir module kopyalayın. Sayfa adını kendi dosyanızdaki ile değiştirirsiniz.

Sub aylari_hucreye_yaz(ayadi)

Set s1 = Sheets("Sayfa1")

say = WorksheetFunction.CountA(s1.Range("A:A")) + 1

s1.Cells(say, "A") = ayadi

End Sub

Daha sonra bu kodu her bir butona aşağıdaki gibi bağlayın.

Private Sub CommandButton1_Click()
aylari_hucreye_yaz Me.ActiveControl.Caption
End Sub

Private Sub CommandButton2_Click()
aylari_hucreye_yaz Me.ActiveControl.Caption
End Sub

Private Sub CommandButton3_Click()
aylari_hucreye_yaz Me.ActiveControl.Caption
End Sub