Düğmeye tıklandığında sütuna 1 yazmak.

[memoli79]

Bir çalışmam var. 12 adet düğmeden hangisine tıklanırsa o düğmenin olduğu sütunda b4'ten itibaren ilk boş hücreye 1 yazacak. Örnek dosya ektedir.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[memoli79]

Sayın M.Uygun yardımınız için çok teşekkür ederim.

 

[YUSUF44]

Sanıyorum önceki sorunuza tam cevap çıkmayınca tablonuzu değiştirdiniz. Eğer Tuş1, Tuş2 ve Tuş3'te yer alan sonsatır değişkenini aşağıdakiyle değiştirirseniz bir önceki konuda istediğiniz gibi sonraki oy o gruptaki ilk boş hücreye yazılır:

sonsatir = WorksheetFunction.Max(Cells.Range("b65536").End(xlUp).Row, _
Cells.Range("C65536").End(xlUp).Row, Cells.Range("d65536").End(xlUp).Row) + 1

Aynı değişiklikleri sütun başlıklarını değiştirerek diğer gruplar için de yapabilirsiniz.

 

[memoli79]

Sayın Yusuf44 çok teşekkür ederim. Kodları değiştirince diğer konuda istediğim sonuca ulaştım. Yardımınız ve ilginiz için tekrar teşekkür ederim.

 

[YUSUF44]

Diğer konunuza da bir cevap verdim ben. Çocuklar evde olmayınca kendimi excele verdim

 

[memoli79]

Diğer konuyu da gördüm harika olmuş ellerinize sağlık.