Checkboxun Caption Kısmını Hücreye Yazdırmak

[mustafa1205]

Ekte örneğini eklediğim çalışmamda açılan formun üzerinde bulunan checkboxlardaki captionları A1 hücresine yazdırmak istiyorum. Teşekkür ediyorum.

 

[Levent Menteşoğlu]

Dosyanıza bir Class modül uygulaması ekledim.

 

[mustafa1205]

Levent Hocam çok teşekkür ederim lakin şöyle bir sorun oldu. Userformda bulunan checkbox ları arttırdığımda yani iller ekleme yaptığımda onları görmüyor. Bunu çözebilirmiyiz acaba ?

 

[Levent Menteşoğlu]

Userformun kod sayfasındaki kodları aşağıdakiler ile değiştirin.

Dim chk() As New Class1
Public birlestir

Private Sub UserForm_Initialize()
For Each nesne In Me.Controls
If TypeName(nesne) = "CheckBox" Then
c = c + 1
ReDim Preserve chk(c)
Set chk(c).chk = nesne
End If
Next
End Sub

 

[mustafa1205]

Hocam rica etsem uygulama imkanınız varmı malesef yapamadım. Yani şöyle söyleyeyim class modüldeki kodları değiştirdim. Gönderdiğiniz kodları ekledim hata verdi

 

[ExcelF1]

Levent Hocam'ın affına sığınarak,

Dosyanız EK'tedir.

 

[mustafa1205]

Sayın EXCELF1 çok teşekkür ediyorum. Ben class modüldekini sildikten sonra yapmıştım. Demek ondan dolayı hata vermiş.Çok sağolun.

 

[mustafa1205]

Sevgili Levent Hocam elleriniz dert görmesin sizede çok teşekkür ediyorum. Beni mazur görünüz daha yeni yeni öğrenmeye çalışıyorum. Tekrar teşekkürler

 

[Levent Menteşoğlu]

Levent Hocam'ın affına sığınarak,

Dosyanız EK'tedir.

Sn ExcelF1, Lütfen böyle durumlarda af dilemenize hiç gerek yok. Yardımınız için teşekkür ederim.

Sevgili Levent Hocam elleriniz dert görmesin sizede çok teşekkür ediyorum. Beni mazur görünüz daha yeni yeni öğrenmeye çalışıyorum. Tekrar teşekkürler

Rica ederim. Önemli olan sizlere faydamızın olmasıdır.

 

[ExcelF1]

Konuya bir kişi cevap vermiş iken, dışarıdan müdahil olmak, yazılan kodlara bazen birkaç satır eklemek, bazende burada olduğu üzere sadece yol göstermek, cevap veren kişiye haksızlık olacaktır.

Ben, soruyu soran kişinin (bu başlıkta, online olduğunu görmüştüm) yanıtı daha fazla beklememesi için, cevap veren kişinin hoşgörüsüne sığınarak yanıtladım o kadar.

Hassasiyetiniz ve cevabınız için teşekkür ederim.

 

[Levent Menteşoğlu]

Konuya bir kişi cevap vermiş iken, dışarıdan müdahil olmak, yazılan kodlara bazen birkaç satır eklemek, bazende burada olduğu üzere sadece yol göstermek, cevap veren kişiye haksızlık olacaktır.

Bu konuda sizinle aynı görüşte değilim. Mevcut konuya müdahil olarak varsa hataları düzeltmek yada konuyu geliştirici yönde ilave yapmak, çözüm açısından çok faydalı olacağı gibi sürecide hızlandıracaktır.

Ben hiç bir üyemizin böyle bir müdaheleden rahatsız olacağını sanmıyorum. En azından benim için öyle. Benim cevap yazdığım bir konuya isteyen üyemiz, olumlu yada olumsuz her türlü katkıda bulunabilir. Bundan her zaman büyük memnuniyet duyarım.

 

[neslinet]

merhaba, bende aynı işlemi yapmak istiyorum fakat benim CheckBox larım form üzerinde değil , excel sayfası üzerinde . Geliştirici-->ekle adımından direk ekledim , bu durumda nasıl işaretlediğim CheckBox ları herhangi bir hücreye aralarına virgül koyarak yazdırabilirim ? teşekkürler