Listbox'dan sayfaya kayıt

[seddur]

Merhaba.Userformdaki listboxlardan seçim yaparak excel sayfasına kayıt yapıyorum.Fakat listbox'dan birden fazla seçim yaparak kayıt yapamıyorum.Ekli dosyada görülebileceği üzere listboxda sabah-öğle- akşam-gece seçimleri var listbox2 de ise doz miktarları var yapmak istediğim aynı satıra sabah-1 ve akşam-1 olarak kayıt yapmak oysa şu anda sadece sabah-1 veya akşam-1 olarak kayıt yapılabiliyor.Yardımcı olabilirseniz sevinirim.

 

[ÖmerFaruk]

1. ListBox1 Properties menüsünden MultiSelecet özelliğini Multi yapın.

2. Kaydet Buton kodlarını aşağıdkai gibi kullanın

Private Sub CommandButton1_Click()

    If Me.TextBox1 = "" Then MsgBox "İlaç Adı Giriniz": Me.TextBox1.SetFocus: Exit Sub
    If Me.TextBox2 = "" Then MsgBox "Hasta Adı Giriniz": Me.TextBox1.SetFocus: Exit Sub
    If Me.ListBox1.ListIndex = -1 Then MsgBox "İlaç zamanı seçiniz": Me.TextBox1.SetFocus: Exit Sub
    If Me.ListBox2.ListIndex = -1 Then MsgBox "Doz belirtiniz": Me.TextBox1.SetFocus: Exit Sub
    
    Dim Sayfam As Worksheet, Satır As Integer
    Set Sayfam = Worksheets("Kayıt")
    Satır = Sayfam.Range("A" & Rows.Count).End(3).Row + 1
    
    Sayfam.Range("A" & Satır) = TextBox2
    Sayfam.Range("B" & Satır) = TextBox3
    Sayfam.Range("C" & Satır) = TextBox2
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then
            Sayfam.Range("D" & Satır).Offset(, i) = Me.ListBox2.Text
        End If
    Next i
End Sub

 

[seddur]

söylediklerinizi yaptım.sabah-1,akşam-1 olarak kayıt yapıyor ancak sabah-1,akşam-2 olarak kayıt yapamıyorum.Userformu yeniden düzenlemek mi gerekir acaba?

 

[ÖmerFaruk]

Excel ve VBA, Listboxda yaptığınız seçimlere ait Sabah için 1 akşam için 2 gece için 1,5 doz miktarınızı bilemez.
Elbette sizin bir düzenleme yapmanız gerekecek.

 

[seddur]

Şu şekilde kullanabilirim;Önce sabah-1 kayıt edeyim sonra aynı satıra akşam-2 olarak yeniden kayıt yapayım sanırım bu şekilde olabilir.