arkadaşlar değiştirme kodunu uyarlayamadım...yardım edermmisiniz acaba...
kodlar bunlar not : a ve g sutünlarında bulunan veriler 7 textboxa çağrılarak değişiklik yapılıyor.il satırda başlıklar var bu yüzden a2 ve g 2 den başlıyor veriler.şimdiden yardımcı olanlara teşekkürederim.
Private Sub CommandButton7_Click()
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
sonsat = ListBox1.ListIndex + 2
Cells(sonsat, 2) = TextBox1
Cells(sonsat, 3) = TextBox2
Cells(sonsat, 4) = TextBox3
Cells(sonsat, 5) = TextBox4
Cells(sonsat, 6) = TextBox5
Cells(sonsat, 7) = TextBox6
Cells(sonsat, 8) = TextBox7
ListBox1.RowSource = "a2:g" & [a65536].End(3).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub
kodlar bunlar not : a ve g sutünlarında bulunan veriler 7 textboxa çağrılarak değişiklik yapılıyor.il satırda başlıklar var bu yüzden a2 ve g 2 den başlıyor veriler.şimdiden yardımcı olanlara teşekkürederim.
Private Sub CommandButton7_Click()
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
sonsat = ListBox1.ListIndex + 2
Cells(sonsat, 2) = TextBox1
Cells(sonsat, 3) = TextBox2
Cells(sonsat, 4) = TextBox3
Cells(sonsat, 5) = TextBox4
Cells(sonsat, 6) = TextBox5
Cells(sonsat, 7) = TextBox6
Cells(sonsat, 8) = TextBox7
ListBox1.RowSource = "a2:g" & [a65536].End(3).Row
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub