Checkbox caption'u değiştirme

[seddur]

Merhabalar.Ekli dosyada bulunan userformdaki listwiew'in ilk sutununda bulunan ilaç isimlerini aynı şekilde sırasıyla 4 adet checkbox captionlarına da yazsın istiyorum.Yardımcı olabailecek arkadaşa teşekkür ederim.

 

[ÖmerFaruk]

Anlaşılan benim önerdiğim formdan vazgeçmişsiniz.

Sorunuza gelince.
Listenizde eğer sadece 4 ilaç olacaksa kodlarınıza aşağıdaki satırı ilave edebilirsiniz.

        For i = 2 To S1.Cells(Rows.Count, "a").End(xlUp).Row
             'If Sheets("Kayıt").Range("a" & i).Value = UserForm4.TextBox19.Text And Sheets("Kayıt").Range("b" & i).Value = UserForm4.TextBox2.Text Then
                Set List = .ListItems.Add(, , S1.Cells(i, "c").Text)
                List.ListSubItems.Add , , S1.Cells(i, "d").Text
                List.ListSubItems.Add , , S1.Cells(i, "e").Text
                List.ListSubItems.Add , , S1.Cells(i, "f").Text
                List.ListSubItems.Add , , S1.Cells(i, "g").Text
                '-----------------------------------------------'
                'İlave satır'
                Me.Controls("CheckBox" & i - 1).Caption = S1.Cells(i, "c").Text
        'End If
        Next

 

[seddur]

Sizin kodları kayıt yapmak için kullanıyorum vazgeçmedim esas dosyayı anlatmak zor olacağından paylaşmadım örnek dosya paylaştım. Kod için teşekkürler.