Soru Sütunda isme karşılık gelen rakamı aktar

[sirkülasyon]

"Sayfa2" E2: 'P2 aralığında aylar yazılı
C sütununda da 3. Satırdan itibaren isimler yazılı.
Combobox2' de ay adları yazılı

Combobox2' de seçilen ay adını E2: 'P2 aralığında bulacak. TextBox2' de yazılı isme denk gelen rakamı TExtbox1' e aktaracak makroya ihtiyacım var. Yardımcı olabilmeniz mümkün mü?

 

[cems]

Private Sub Combobox2_Change()
Dim selectedMonth As String
Dim rowIndex As Integer
selectedMonth = Me.Combobox2.Value
rowIndex = Application.WorksheetFunction.Match(selectedMonth, Range("E22"), 0) + 2
Me.TextBox1.Value = Cells(rowIndex, 3).Value
End Sub

E2 : P2 Emojiyi boşlukları silerek yokedin

 

[sirkülasyon]

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sayfa2")
    
    Dim rowNumber As Long
    Dim colNumber As Long
    Dim targetCell As Range
    
    Dim searchName As String
    Dim searchMonth As String
    Dim addValue As Double
    
    searchName = TextBox1.Value
    searchMonth = ComboBox2.Value
    addValue = CDbl(TextBox3.Value)   
    
    On Error Resume Next
    rowNumber = ws.Columns("C").Find(What:=searchName, LookIn:=xlValues, LookAt:=xlWhole).Row
    On Error GoTo 0   
    
    On Error Resume Next
    colNumber = ws.Range("E2:P2").Find(What:=searchMonth, LookIn:=xlValues, LookAt:=xlWhole).Column
    On Error GoTo 0   
    
    If rowNumber > 0 And colNumber > 0 Then
        Set targetCell = ws.Cells(rowNumber, colNumber)
        targetCell.Value = targetCell.Value + addValue
    Else
        MsgBox "Aranan değerler bulunamadı.", vbExclamation
    End If
End Sub

Yukarıdaki kod ile personellere ait günler sayfaya aktarıldı. Bu sefer sayfadan toplam günleri almak istiyorum.
Combobox2 de ay adı yazılı "Sayfa2" E2: P2 aralığında ay adları var.
Textbox1' de personel adı yazılı "Sayfa2" C sütununda 3. satırdan itibaren Personele ait isimler var.
TextBox1' de ki personel adını bulacak Combobox2' de ki ay adının yazılı olduğu sütunda personele karşılık gelen rakam var ise Textboxa getirsin. Bu konuda yardımınızı istirham ediyorum.

 

[cems]

Her zaman asıl dosyada değil kopya bir dosyada deneme yaparak test edin zira dosya eklenmediğinden doğru çalıştığını bilemem

Aşağıdaki kod'de belirtilen personelin TextBox2'de belirtilen aydaki toplam gün sayısını alır:




Private Sub CommandButton2_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sayfa2")

Dim searchName As String
Dim searchMonth As String
Dim rowNumber As Long
Dim colNumber As Long

searchName = TextBox1.Value
searchMonth = ComboBox2.Value

' Personel adını bul
On Error Resume Next
rowNumber = ws.Columns("C").Find(What:=searchName, LookIn:=xlValues, LookAt:=xlWhole).Row
On Error GoTo 0

' Ay adını bul
On Error Resume Next
colNumber = ws.Range("E22").Find(What:=searchMonth, LookIn:=xlValues, LookAt:=xlWhole).Column
On Error GoTo 0

If rowNumber > 0 And colNumber > 0 Then
' Toplam gün sayısını al ve TextBox2'ye yaz
TextBox2.Value = ws.Cells(rowNumber, colNumber).Value
Else
MsgBox "Aranan değerler bulunamadı.", vbExclamation
End If
End Sub

Bu kod, kullanıcının TextBox1'e girdiği personel adını ("searchName") ve ComboBox2'de seçtiği ayı ("searchMonth") alır. Daha sonra, bu isim ve ay adlarını kullanarak Sayfa2'deki ilgili hücrenin değerini bulur ve TextBox2'ye yazdırır.