aşağıdaki kodları bulunan userformda değiştir butonu olan commandbutton 2 yi tıkladığımda textboxlara girilen veriler eskisiyle değiştirilirken.comboboxlardaki veriler hiç bir şekilde değişmiyor.
nedeni nedir acaba...
verilerimi bu kodlarla alıyorum ;
'kodlarıyla alıyorum. Listede ki verilerimide textboxlara;
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox1.Value = ListBox1.Column(0)
TextBox2.Value = ListBox1.Column(1)
TextBox3.Value = ListBox1.Column(2)
ComboBox1.Value = ListBox1.Column(3)
ComboBox2.Value = ListBox1.Column(4)
ComboBox3.Value = ListBox1.Column(5)
ComboBox4.Value = ListBox1.Column(6)
TextBox8.Value = ListBox1.Column(7)
TextBox9.Value = ListBox1.Column(8)
TextBox10.Value = ListBox1.Column(9)
End Sub
ve command 2 butonu kodlarıda bu
Private Sub CommandButton2_Click()
On Error Resume Next
If TextBox1.Value = "" Then
MsgBox "DİYORUM Kİ SEÇİM YAPSAN HA !!!NASIL OLUR ?"
Exit Sub
End If
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
SonSat = ListBox1.ListIndex + 2
For a = 1 To 10
Cells(SonSat, a) = Controls("TextBox" & a)
Next
ListBox1.RowSource = "a2:L" & [a65536].End(3).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
tarih = TextBox1
TextBox2 = Format(tarih, "mmmm")
End Sub
Private Sub TextBox4_Change()
TextBox4 = Replace(TextBox4, "i", "İ")
TextBox4 = Replace(TextBox4, "ı", "I")
TextBox4 = StrConv(TextBox4, vbUpperCase)
End Sub
yardım ederseniz çok sevinirim...
nedeni nedir acaba...
verilerimi bu kodlarla alıyorum ;
'kodlarıyla alıyorum. Listede ki verilerimide textboxlara;
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox1.Value = ListBox1.Column(0)
TextBox2.Value = ListBox1.Column(1)
TextBox3.Value = ListBox1.Column(2)
ComboBox1.Value = ListBox1.Column(3)
ComboBox2.Value = ListBox1.Column(4)
ComboBox3.Value = ListBox1.Column(5)
ComboBox4.Value = ListBox1.Column(6)
TextBox8.Value = ListBox1.Column(7)
TextBox9.Value = ListBox1.Column(8)
TextBox10.Value = ListBox1.Column(9)
End Sub
ve command 2 butonu kodlarıda bu
Private Sub CommandButton2_Click()
On Error Resume Next
If TextBox1.Value = "" Then
MsgBox "DİYORUM Kİ SEÇİM YAPSAN HA !!!NASIL OLUR ?"
Exit Sub
End If
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
SonSat = ListBox1.ListIndex + 2
For a = 1 To 10
Cells(SonSat, a) = Controls("TextBox" & a)
Next
ListBox1.RowSource = "a2:L" & [a65536].End(3).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
tarih = TextBox1
TextBox2 = Format(tarih, "mmmm")
End Sub
Private Sub TextBox4_Change()
TextBox4 = Replace(TextBox4, "i", "İ")
TextBox4 = Replace(TextBox4, "ı", "I")
TextBox4 = StrConv(TextBox4, vbUpperCase)
End Sub
yardım ederseniz çok sevinirim...