combobox seçilen textbox yaz sayfaya aktarma şartlı

[netvolxxx]

merhaba daha önce formda arkadaş tan yardımı ile yazmış olduğum uygulamada şöyle bir konuda yardımlarınıza ihtiyacım var

userform da combobox sayfada veriler geliyor seçtiğim başlığa göre textbox yazıp kaydet dediğimde istediğim seçili olan ürün adına ait satıra kayıt yapması ve tekrar aynı ürün seçtiğimde textbox yazıp kaydet dediğim bi alt satıra kayıt yapması.

b10 hücresindeki ürün adı combobox tan seçtim textbox yazdım b11 kayıt yaptı sonra tekrar aynı ürün seçtim b12 kayıt yaptı her ürün adı 4 satır kayıt yapılabilir

4 satır dolu ise o ürüne ait kayıt yapılmıcak.

sayfada kullandığım kodlar


private Sub CommandButton1_Click()
Dim urunAdi As String
Dim urunSatir As Long
If ComboBox1.ListIndex = -1 Then
MsgBox "Lütfen bir ürün seçiniz.", vbExclamation
Exit Sub
End If
urunAdi = ComboBox1.Value
urunSatir = ComboBox1.List(ComboBox1.ListIndex, 1)
ThisWorkbook.Sheets("Sayfa1").Cells(urunSatir + 4, "B").Value = TextBox1.Value
MsgBox "Kaydedildi.", vbInformation

End Sub

Private Sub UserForm_Initialize()
Dim i As Long
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "100;0"
For i = 10 To 100 Step 5
If ThisWorkbook.Sheets("Sayfa1").Cells(i, "B").Value <> "" Then
ComboBox1.AddItem ThisWorkbook.Sheets("Sayfa1").Cells(i, "B").Value
ComboBox1.List(ComboBox1.ListCount - 1, 1) = i
End If
Next i
End Sub



örnek dosyada ekledim.

 

[ÖmerFaruk]

Cümleleri noktalama işretleri ve imla kurallarını kullanmadan kurmuş ve yazmışsınız.
Sorunuzu bu şekilde anlayan varsa cevaplayacaktır. Ben anlayamadım.

 

[netvolxxx]

Cümleleri noktalama işretleri ve imla kurallarını kullanmadan kurmuş ve yazmışsınız.
Sorunuzu bu şekilde anlayan varsa cevaplayacaktır. Ben anlayamadım.

Merhaba haklısınız biraz karışık olmuş.
Hocam şöyle sorayım
Userform açıldı combobox’a çalışma sayfası sayfa1 den b hücresinde’ki bazı başlıklar geliyor b10:b15:b20:b25:b30 her 5 satır ve katları olarak gidiyor.
Örnek b10 deneme yazıyor b15 test combobox tan deneme seçtim textbox alanına metal yazdım buton ile kaydet dediğimde b11 alanına yazdı tekrar deneme seçili textbox ahşap yazdım kaydet dedim b12 kaydetti.
b11: b14 arası olan yere kayıt edebilsin.
B15 seçtiğimde b16:b19 arası

Bir diğer sorum da şuydu b11:b14 arası dolu ise kayıt yapmasın.

örnek çalışma dosyası ekleniştim daha iyi anlaşılması için.

 

[ÖmerFaruk]

Bu kısmı kodun içinde gerekli kontrolleri yaparak kullanabilirsiniz

    For i = ComboBox1.ListIndex * 5 + 11 To ComboBox1.ListIndex * 5 + 14
        If Worksheets("Sayfa1").Range("B" & i) = "" Then
            Worksheets("Sayfa1").Range("B" & i) = TextBox1.Value
            Exit For
        End If
    Next i

 

[netvolxxx]

Bu kısmı kodun içinde gerekli kontrolleri yaparak kullanabilirsiniz

    For i = ComboBox1.ListIndex * 5 + 11 To ComboBox1.ListIndex * 5 + 14
        If Worksheets("Sayfa1").Range("B" & i) = "" Then
            Worksheets("Sayfa1").Range("B" & i) = TextBox1.Value
            Exit For
        End If
    Next i

Teşekkür ederim hocam destek için yazma fırsatım olmadı yoğunluktan allah razı olsun sağolun....