Private Sub CommandButton4_Click()
If TextBox3.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 19
Cells(SonSat, a) = Controls("TextBox" & a)
Next
ListBox1.RowSource = "a2:I" & [a65536].End(3).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub
yukarıdaki kodları kullanarak ilgili sayfada toplam 19 sütunda ve sonsuz satıtda yer alabilecek verileri textboklara çağırıyorum.sonra değiştirmek istediğim textboxtaki veriyi değiştiriyorum ve değiştir butonuna tıklıyorum ama
Cells(SonSat, a) = Controls("TextBox" & a)
satırı sarı çizgiyle hata veriyor...
Yardım edeceklere emekleri için şimdiden teşekkürederim.
If TextBox3.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 19
Cells(SonSat, a) = Controls("TextBox" & a)
Next
ListBox1.RowSource = "a2:I" & [a65536].End(3).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub
yukarıdaki kodları kullanarak ilgili sayfada toplam 19 sütunda ve sonsuz satıtda yer alabilecek verileri textboklara çağırıyorum.sonra değiştirmek istediğim textboxtaki veriyi değiştiriyorum ve değiştir butonuna tıklıyorum ama
Cells(SonSat, a) = Controls("TextBox" & a)
satırı sarı çizgiyle hata veriyor...
Yardım edeceklere emekleri için şimdiden teşekkürederim.