listenin belirttiğim sütunlara veri girmek

[MikaaLerx]

Merhabalar,

950 kişilik isim listesi var ve 20 takım var, ismi soyismi yazdığımda satırını bulup 1. takımı veya istediğim takımı işaretleyip, birleştiği yere rakam yazdırabilir miyim macro buton pencere ile

 

[pitchoute]

Merhaba, deneyip sonucu paylaşabilir misiniz;

Private Sub UserForm_Initialize()
    Dim i As Integer
    For i = 1 To 20
        ComboBox1.AddItem i
    Next i
End Sub

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim isim As String
    Dim soyisim As String
    Dim takimNo As Integer
    Dim satirNo As Long
    Dim bulunmaDurumu As Boolean
    
    Set ws = ThisWorkbook.Sheets("Veri") ' Veri sayfanızın adı "Veri" olsun
    isim = TextBox1.Text
    soyisim = TextBox2.Text
    takimNo = ComboBox1.Value
    
    If isim = "" Or soyisim = "" Then
        MsgBox "Lütfen isim ve soyisim giriniz.", vbExclamation
        Exit Sub
    End If
    
    If takimNo = 0 Then
        MsgBox "Lütfen bir takım seçiniz.", vbExclamation
        Exit Sub
    End If
    
    bulunmaDurumu = False
    For satirNo = 2 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        If ws.Cells(satirNo, "A").Value = isim And ws.Cells(satirNo, "B").Value = soyisim Then
            bulunmaDurumu = True
            Exit For
        End If
    Next satirNo
    
    If bulunmaDurumu = False Then
        MsgBox "Girilen isim ve soyisim bulunamadı.", vbExclamation
        Exit Sub
    End If
    
    Dim takimSutun As Integer
    ' Takım sütunları C'den başlayarak sırasıyla devam ediyor (1. takım C, 2. takım D, ...)
    takimSutun = 2 + takimNo ' A=1, B=2, C=3
    
    With ws.Cells(satirNo, takimSutun)
        .Value = 1
        .Interior.Color = vbYellow
    End With
    
    MsgBox "İşlem başarıyla tamamlandı.", vbInformation
    TextBox1.Text = ""
    TextBox2.Text = ""
    ComboBox1.Value = ""
End Sub

 

[MikaaLerx]

İlginiz için teşekkür ederim,
Yaptım denedim ama hata yok fakat istediğim hücreye veri giremedim.
Örnek olarak aşağıda resimdeki gibi bir tablom var, görülmesi açısından sarı renk ile dolgu yaptığım yere,
ADEM LAHANACI yazdığımda, 9. takımı seçtiğimde ve rakamı 250 girdiğimde K13 hücresine diğer kişilerde görüldüğü gibi rakam girmek istiyorum

 

[MikaaLerx]

Adı ve Soyadı kısmı kaymış olabilir B stunu ad ve soyad kısmı C kısmı takımların başladığı yer.