Butondan Listview'e veri Aktarma

[seddur]

Merhabalar.Ekli dosyada görüleceği üzere excelde kullanılmak üzere Doktor reçetesi tasarladım.Yapılmak istenen userform'daki buton caption'larının butona tıkladıktan sonra Listviev'de gösterilmesidir ilave olarak aynı anda excel sayfasına kayıt da yapacaktır.Yalnız şöyle bir ayrıntı var butonlar rengi kırmızı olduğunda kayıt yapmasın yeşil olduğunda kayıt yapsın.Ben daha sonra girilen isme göre reçete bilgilerini listview'de listeleyen bir kod yazacağım zor olmazsa sizde yapabilirsiniz.Yardımlarınız için şimdiden Teşekkür Ederim.
NOT:İlaç adnını en fazla 10 adet verilmesi yeterli

 

[seddur]

Butona tıklayınca butondaki caption değerini listview'e yazdırsın istiyorum .Aşağıdaki kodu yazdım ama çalışmıyor.Yardımcı olur musunuz.?
Private Sub CommandButton38_Click()
For i = 1 To UserForm26.ListView2.ListItems.Count
UserForm26.ListView2.ListItems(i).SubItems(1) = commandbutton38.caption
Next