TextBox a şarta bağlı olarak veri alma

[Erdinç FIRTINA]

Değerli Forum Üyeleri,
ComboBox1 e alınan veriye bağlı olarak TextBoxlara veri alıyorum. Ancak, yapmak istediğim alınan veriyi TextBox7, TextBox8, TextBox9, TextBox10 a şarta bağlı olarak almak istiyorum.

Örneğin; ComboBox1 e alınan veriye bağlı olarak TextBox11 e alınan veri "ÇOKLU" oluyorsa Text7, 8, 9, ve 10 a alınan veriler alınmasın ve bu TextBoxlar False hale dönüşsün.
Eğer ComboBox1 e alınan veriye bağlı olarak TextBox11 e alınan veri "TEKLİ" oluyorsa Text7, 8, 9, ve 10 a alınan veriler alınsın ve bu TextBoxlar True hale dönüşsün.

Aşağıdaki gibi yapmaya çalıştım ama olmadı. Yardımlarınız için şimdiden çok teşekkürler!

Private Sub ComboBox1_Change()
Range("B1").Select
ComboBox1.RowSource = "B2:B65536"
For Each bul In Range("B1:B" & Range("B65536").End(3).Row)
If StrConv(bul, vbUpperCase) = StrConv(ComboBox1, vbUpperCase) Then
bul.Select
TextBox1.Value = ActiveCell.Offset(0, 0).Value
TextBox2.Value = ActiveCell.Offset(0, 0).Value
TextBox3.Value = ActiveCell.Offset(0, 0).Value
TextBox4.Value = ActiveCell.Offset(0, 0).Value
TextBox5.Value = ActiveCell.Offset(0, 0).Value
TextBox6.Value = ActiveCell.Offset(0, 0).Value
TextBox7.Value = ActiveCell.Offset(0, 0).Value
TextBox8.Value = ActiveCell.Offset(0, 0).Value
TextBox9.Value = ActiveCell.Offset(0, 0).Value
TextBox10.Value = ActiveCell.Offset(0, 0).Value
TextBox11.Value = ActiveCell.Offset(0, 2).Value
If TextBox11.Value = "GRUP" Then TextBox7.Value = ActiveCell.Offset(0, 0).Value
If TextBox11.Value = " " Then TextBox7.Visible = False
End If
Next
End Sub

 

[Orion1]

Dosyanız ekte.

Private Sub ComboBox1_Change()
Range("B1").Select
TextBox7.Enabled = True
TextBox8.Enabled = True
TextBox9.Enabled = True
TextBox10.Enabled = True
TextBox11.Enabled = True
For Each bul In Range("B1:B" & Range("B65536").End(3).Row)
If StrConv(bul, vbUpperCase) = StrConv(ComboBox1, vbUpperCase) Then
bul.Select
TextBox1.Value = ActiveCell.Offset(0, 0).Value
TextBox2.Value = ActiveCell.Offset(0, 0).Value
TextBox3.Value = ActiveCell.Offset(0, 0).Value
TextBox4.Value = ActiveCell.Offset(0, 0).Value
TextBox5.Value = ActiveCell.Offset(0, 0).Value
TextBox6.Value = ActiveCell.Offset(0, 0).Value
TextBox7.Value = ActiveCell.Offset(0, 0).Value
TextBox8.Value = ActiveCell.Offset(0, 0).Value
TextBox9.Value = ActiveCell.Offset(0, 0).Value
TextBox10.Value = ActiveCell.Offset(0, 0).Value
TextBox11.Value = ActiveCell.Offset(0, 2).Value
End If
Next
If TextBox11.Text = "ÇOKLU" Then
    TextBox7.Text = Empty
    TextBox8.Text = Empty
    TextBox9.Text = Empty
    TextBox10.Text = Empty
    TextBox11.Text = Empty
    TextBox7.Enabled = False
    TextBox8.Enabled = False
    TextBox9.Enabled = False
    TextBox10.Enabled = False
End If
End Sub

 

[Erdinç FIRTINA]

Sayın Gizlen,
Çok çok teşekkür ederim. Dosyaya bakamadım ama sorunumun kesinlikle çözümlendiğine inanıyorum. Eğer başkaca bir sorun olursa ve yardım talep edersem yardımcı olursanız çok sevinirim.
Beyninize, elinize ve de en önemlisi yüreğinize sağlık.
Çok çok teşekkür ederim.