sayfada farklı hücrelerden combobox getir seçili olan işlem yap

[netvolxxx]

merhaba konu biraz yapmak istediğim beni aşıyor tam buna benzer bi örnek bulamadım

userform da combobox sayfada ki ürün adlarının gelmesini ve seçtiğim ürün hangisi ise textbox yazdığım kaydet dediğimde o ürüne ait hücreye kayıt yapmısı

örnek çalışma dosyası ekte yükledim yapmak istediğim de tam olarak açıklamaya çalıştım.

ürün adları sayfada b10-b15-b20 hep 5 artarak devam ediyor
bu alanlarda dolu olanlar formda combobox alanına gelmesi

diyelimki b20 deki ürün seçtim
textbox yazdım kaydet dediğimde bunu b24 alanına kaydetmesini sağlamak

ürün adları sayfada hep b10-b15-b20-b25
açıklamalar ise yani b9-b14-b19-b24 diye gidiyor

 

[netvolxxx]

merhaba konu ile ilgili destek olabilecek bi üstad yardımcı olacak arkadaş dünden beri bakıyorum bi yol bulamadım....

 

[pitchoute]

Merhaba, UserForm'un Initialize olayına aşağıdaki kodu ekleyin:

Private Sub UserForm_Initialize()
    Dim i As Long
    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
        End If
    Next i
End Sub

Kaydet butonuna (CommandButton1) tıklama olayına aşağıdaki kodu ekleyin:

Private Sub CommandButton1_Click()
    Dim urunAdi As String
    Dim urunSatir As Long
    Dim i As Long
    Dim bulundu As Boolean
    urunAdi = ComboBox1.Value
    bulundu = False
    For i = 10 To 100 Step 5
        If ThisWorkbook.Sheets("Sayfa1").Cells(i, "B").Value = urunAdi Then
            urunSatir = i
            bulundu = True
            Exit For
        End If
    Next i
    If bulundu Then
        ThisWorkbook.Sheets("Sayfa1").Cells(urunSatir + 4, "B").Value = TextBox1.Value
        MsgBox "Kaydedildi.", vbInformation
    Else
        MsgBox "Ürün bulunamadı.", vbExclamation
    End If
End Sub

 

[netvolxxx]

Merhaba, UserForm'un Initialize olayına aşağıdaki kodu ekleyin:

Private Sub UserForm_Initialize()
    Dim i As Long
    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
        End If
    Next i
End Sub

Kaydet butonuna (CommandButton1) tıklama olayına aşağıdaki kodu ekleyin:

Private Sub CommandButton1_Click()
    Dim urunAdi As String
    Dim urunSatir As Long
    Dim i As Long
    Dim bulundu As Boolean
    urunAdi = ComboBox1.Value
    bulundu = False
    For i = 10 To 100 Step 5
        If ThisWorkbook.Sheets("Sayfa1").Cells(i, "B").Value = urunAdi Then
            urunSatir = i
            bulundu = True
            Exit For
        End If
    Next i
    If bulundu Then
        ThisWorkbook.Sheets("Sayfa1").Cells(urunSatir + 4, "B").Value = TextBox1.Value
        MsgBox "Kaydedildi.", vbInformation
    Else
        MsgBox "Ürün bulunamadı.", vbExclamation
    End If
End Sub

ustad çok teşeküür ederim süper allah razı olsun dunden beri uğraşıyodum istediğim buydu çok sağol......

 

[pitchoute]

Allah sizden de razı olsun, iyi çalışmalar.