- Katılım
- 2 Nisan 2006
- Mesajlar
- 32
- Excel Vers. ve Dili
- 2007 türkçe
- Altın Üyelik Bitiş Tarihi
- 25.03.2023
aşağıdaki kodlarla bir tablodan veri aldırıyorum. Tabloya yeni bir kayıt yaptığımda combobox ta göremiyorum. Userformu kapatıp tekrar açtığımda düzeliyor fakat bir önceki satırdaki kaydı gösteriyor. Bunu nasıl düzeltebilirim. Kodları aşağıda gönderiyorum...
Private Sub combobox1_Change()
For Each hucre In Range("a2:A" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(hucre.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
hucre.Select
End If
Next
TextBox1.Value = ActiveCell.Offset(0, 1).Value
TextBox2.Value = ActiveCell.Offset(0, 2).Value
TextBox3.Value = ActiveCell.Offset(0, 3).Value
TextBox4.Value = ActiveCell.Offset(0, 4).Value
TextBox5.Value = ActiveCell.Offset(0, 5).Value
TextBox6.Value = ActiveCell.Offset(0, 6).Value
TextBox7.Value = ActiveCell.Offset(0, 7).Value
TextBox8.Value = ActiveCell.Offset(0, 8).Value
TextBox9.Value = ActiveCell.Offset(0, 9).Value
TextBox10.Value = ActiveCell.Offset(0, 10).Value
TextBox11.Value = ActiveCell.Offset(0, 11).Value
TextBox12.Value = ActiveCell.Offset(0, 12).Value
TextBox13.Value = ActiveCell.Offset(0, 13).Value
TextBox14.Value = ActiveCell.Offset(0, 14).Value
TextBox15.Value = ActiveCell.Offset(0, 15).Value
End sub
Private Sub combobox1_Change()
For Each hucre In Range("a2:A" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(hucre.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
hucre.Select
End If
Next
TextBox1.Value = ActiveCell.Offset(0, 1).Value
TextBox2.Value = ActiveCell.Offset(0, 2).Value
TextBox3.Value = ActiveCell.Offset(0, 3).Value
TextBox4.Value = ActiveCell.Offset(0, 4).Value
TextBox5.Value = ActiveCell.Offset(0, 5).Value
TextBox6.Value = ActiveCell.Offset(0, 6).Value
TextBox7.Value = ActiveCell.Offset(0, 7).Value
TextBox8.Value = ActiveCell.Offset(0, 8).Value
TextBox9.Value = ActiveCell.Offset(0, 9).Value
TextBox10.Value = ActiveCell.Offset(0, 10).Value
TextBox11.Value = ActiveCell.Offset(0, 11).Value
TextBox12.Value = ActiveCell.Offset(0, 12).Value
TextBox13.Value = ActiveCell.Offset(0, 13).Value
TextBox14.Value = ActiveCell.Offset(0, 14).Value
TextBox15.Value = ActiveCell.Offset(0, 15).Value
End sub