Merhabalar,
Personel bilgilerini takip etmek için kullanıyorum.
3 ayrı örneğin sayfa1, sayfa2 ve sayfa3'e (A3:A) sütunun en alttaki boş olanı bulup A,B,C,D,E sutunlarına user formada tekboxlardaki veriyi kayıt etmek istiyorum.
Kendim tek sayfaya aşağıdaki kodu kullanarak kayıt yapabiliyorum.
Teşekkürler,
Private Sub CommandButton2_Click()
Call koruma
If TextBox1 <> Empty And TextBox2 <> Empty And TextBox3 <> Empty Then MsgBox "Kayıtlar Tamamlandı."
If ComboBox3.Value = "ISCI_DATA" Or ComboBox3.Value = "BAYRAM_DATA" Or ComboBox3.Value = "KALAN_DATA" Then
Sayfa_adi = ComboBox3.Value
'Sayfaya kayıt kodları
Call Satir
If OptionButton1.Value = True Then
ActiveCell.Offset(0, 21).Value = "Çalışıyor"
End If
If OptionButton2.Value = True Then
ActiveCell.Offset(0, 21).Value = "İstifa - Ödendi"
End If
If OptionButton3.Value = True Then
ActiveCell.Offset(0, 21).Value = "İşveren - Ödendi"
End If
ActiveCell.Offset(0, 0).Value = TextBox6.Value
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 5).Value = TextBox3.Text
ActiveCell.Offset(0, 3).Value = ComboBox1.Value
ActiveCell.Offset(0, 4).Value = ComboBox2.Value
End If
Call koru
MsgBox "Kayıtlar Tamamlandı."
End Sub