kaydet butonunda hata mesajı

Private Sub CommandButton2_Click()
sira = ListBox1.ListIndex + 1
Sheets("Sayfa30").Select
For x = 27 To 57
Cells(sira, x) = Controls("textbox" & x - 26)
Next
End Sub


şeklinde deneyin.
 
Geri
Üst