ek ders programı için 48 adet textbox var.
Private Sub CommandButton1_Click()
Dim i As Byte
son = [65536].End(3).Row
For i = 2 To 12
Range(Cells(3, i), Cells(i, son)).Value = Controls("Textbox" & i + 9).Text
Controls("Textbox" & i + 9).Text = ""
Next
aciklama = "Kayıt yapıldı"
buton = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "IDC BİLGİ GİRİŞİ"
MsgBox aciklama, buton, baslik
End Sub
butonu ile
1. kişi için 8 satırlık ve sütunluk bilgi gireceğim.
2. kişinin bilgileri 9. satır ve sütündan devam edecek
3. kişinin bilgileri 17. satırdan başlayacak. şeklinde devam ediyor yani 8 satır arayla nasıl kayıt yapabilirim.
yardımlarınıza teşekkür eder saygılar sunarım.
Private Sub CommandButton1_Click()
Dim i As Byte
son = [65536].End(3).Row
For i = 2 To 12
Range(Cells(3, i), Cells(i, son)).Value = Controls("Textbox" & i + 9).Text
Controls("Textbox" & i + 9).Text = ""
Next
aciklama = "Kayıt yapıldı"
buton = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "IDC BİLGİ GİRİŞİ"
MsgBox aciklama, buton, baslik
End Sub
butonu ile
1. kişi için 8 satırlık ve sütunluk bilgi gireceğim.
2. kişinin bilgileri 9. satır ve sütündan devam edecek
3. kişinin bilgileri 17. satırdan başlayacak. şeklinde devam ediyor yani 8 satır arayla nasıl kayıt yapabilirim.
yardımlarınıza teşekkür eder saygılar sunarım.