DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
TextBox1 = ""
For i = 12 To 16
If Cells(i, "A") = ComboBox1 Then
For a = 2 To 10
If Cells(11, a) = ComboBox2 * 1 Then
TextBox1.Value = Cells(i, a)
Else: End If
Next a
Else: End If
Next i