DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=EÃER(J6="";"";DÜÃEYARA(J6;Sayfa1!A1:B10;2;YANLIÃ))
Dim bul As Range
Private Sub ComboBox1_Change()
For Each bul In Worksheets("sayfa1").Range("a1:a10")
If bul.Value = ComboBox1.Value Then
TextBox1.Value = Rows(bul.Row).Cells(1, 2).Value
Sheets("sayfa2").Range("j6").Value = ComboBox1.Value
Sheets("sayfa2").Range("j5").Value = TextBox1.Value
End If
Next bul
End Sub