Veritabanından checkboxa veri çekmek.

[Hakan ERDOST]

Son = WorksheetFunction.CountA(Worksheets("Günlük_Plan_V").Range("A:A"))  'Sayfa1 A sütunundaki dolu hücre sayısı.
For xx = 1 To 15
   If Me.Controls("CheckBox" & xx) = True Then
     Range("J" & Son + 1).Value = Range("J" & Son + 1).Value & Chr(10) & Me.Controls("CheckBox" & xx).Caption
   End If
  Next

Kodun bir bölümü bu bu kod ile yaptığım kaydı Combobox aracılığı ile forma geri çağıramadım. Sorun;

Range("J" & Son + 1).Value = Range("J" & Son + 1).Value & Chr(10) & Me.Controls("CheckBox" & xx).Caption

Satırındaki hücre içine alt alta kayıdın forma geri çağrılmasında. Ancak çözemedim. Araştırmaya devam ederken fikirlere açığım.

 

[Hakan ERDOST]

Son = WorksheetFunction.CountA(Worksheets("Günlük_Plan_V").Range("A:A"))  'Sayfa1 A sütunundaki dolu hücre sayısı.
  For xx = 1 To 15
        If Range("J" & Son).Value = Me.Controls("CheckBox" & xx).Caption Then
            Me.Controls("CheckBox" & xx) = True
                   End If
    Next

Bu kod hücrede bir seçim var ise döngü içindeki ilgili seçim kutusunu işaretliyor, ancak hücrede birden fazla seçim varsa işaretleme yapmıyor. Kodu nasıl değiştirmeliyim ya da bu şekilde seçim kutusuna veri döndürmek mümkün değil mi acaba?

 

[Korhan Ayhan]

Merhaba,

Örnek dosya ile durumu anlatabilir misiniz?