• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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