Kod yardımı

[mr_aksoy]

Ekli dosyadaki (syf1 ve syf2) A sütunundaki ve B sütunundaki verileri eşleştirip
(combobox yardımıyla) ve eşleşen verilerin satırlarını textboxlarına geçirmek istiyorum ancak yapamıyorum.
Uzmanlardan incelemesini rica ediyrum. Teşekkürler.

 

[Orion1]

Ekli dosyadaki (syf1 ve syf2) A sütunundaki ve B sütunundaki verileri eşleştirip
(combobox yardımıyla) ve eşleşen verilerin satırlarını textboxlarına geçirmek istiyorum ancak yapamıyorum.
Uzmanlardan incelemesini rica ediyrum. Teşekkürler.

Ekte dosya yok.

 

[mr_aksoy]

uoload yapmamışım şimdi farkettim hocam

 

[mr_aksoy]

kod yardımı2

Ekli dosyadaki (syf1 ve syf2) A sütunundaki ve B sütunundaki verileri eşleştirip
(combobox yardımıyla) ve eşleşen verilerin satırlarını textboxlarına geçirmek istiyorum ancak yapamıyorum.
Uzmanlardan incelemesini rica ediyrum. Teşekkürler.

( Kusuruma bakmayın)

 

[Orion1]

Dosyanız ekte.

Private Sub ComboBox1_Change()
Dim hcr As Range
TextBox1.Text = ""
For Each hcr In Range("A2:A" & Cells(65536, "A").End(xlUp).Row)
    If hcr.Value = ComboBox1.Value And CStr(hcr.Offset(0, 1).Value) = CStr(ComboBox2.Value) Then
        TextBox1.Text = Format(hcr.Offset(0, 4).Value, "#,##0.00")
        Exit For
    End If
Next
End Sub

Private Sub ComboBox2_Change()
Dim hcr As Range
TextBox1.Text = ""
For Each hcr In Range("A2:A" & Cells(65536, "A").End(xlUp).Row)
    If hcr.Value = ComboBox1.Value And CStr(hcr.Offset(0, 1).Value) = CStr(ComboBox2.Value) Then
        TextBox1.Text = Format(hcr.Offset(0, 4).Value, "#,##0.00")
        Exit For
    End If
Next
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim hcr As Range
For Each hcr In Range("A2:A" & Cells(65536, "A").End(xlUp).Row)
    If WorksheetFunction.CountIf(Range("A2:A" & hcr.Row), hcr.Value) = 1 Then _
    ComboBox1.AddItem hcr.Value
    If WorksheetFunction.CountIf(Range("B2:B" & hcr.Row), hcr.Offset(0, 1).Value) = 1 Then _
    ComboBox2.AddItem hcr.Offset(0, 1).Value
Next
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
If ComboBox2.ListCount > 0 Then ComboBox2.ListIndex = 0
End Sub

 

[mr_aksoy]

Hocam çok teşekkür ederim.

 

[Orion1]

Hocam çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.