USER FORMDAN 3 AYRI SAYFAYA AYNI VERİLERİ KAYIT ETMEK

[avogaga]

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,

Kod: [Seç]

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


[Bülent Öztürk]

Merhaba Yavuz Bey,

Call Satir

olarak çağırdığınız Satir isimli makronuzu da yazabilir misiniz?

[avogaga]

Merhabalar, ilginiz için teşekkür ederim.

Kod: [Seç]

Sub Satir()
 Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(1, 0).Select
    Loop
   If Range("A65356").Value = "" Then
       Range("A65356").Value = ""
      Else
      End If
End Sub




[Bülent Öztürk]

Kodlamanızı şunun gibi değiştirip dener misiniz?

Kod: [Seç]

Dim sayfa_adi
Dim ilk_bos_satir

Kod: [Seç]

Sub Satir()
sayfa_adi = "Sayfa1" 'ComboBox3.Value
ilk_bos_satir = ThisWorkbook.Worksheets(sayfa_adi).Range("A65530").End(3).Row + 1
End Sub

Kod: [Seç]

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
ThisWorkbook.Worksheets(sayfa_adi).Range("A" & ilk_bos_satir).Offset(0, 21).Value = "Çalışıyor"
End If
If OptionButton2.Value = True Then
ThisWorkbook.Worksheets(sayfa_adi).Range("A" & ilk_bos_satir).Offset(0, 21).Value = "İstifa - Ödendi"
End If
If OptionButton3.Value = True Then
ThisWorkbook.Worksheets(sayfa_adi).Range("A" & ilk_bos_satir).Offset(0, 21).Value = "İşveren - Ödendi"
End If

ThisWorkbook.Worksheets(sayfa_adi).Range("A" & ilk_bos_satir).Value = TextBox6.Value
ThisWorkbook.Worksheets(sayfa_adi).Range("A" & ilk_bos_satir).Offset(0, 1).Value = TextBox1.Text
ThisWorkbook.Worksheets(sayfa_adi).Range("A" & ilk_bos_satir).Offset(0, 2).Value = TextBox2.Text
ThisWorkbook.Worksheets(sayfa_adi).Range("A" & ilk_bos_satir).Offset(0, 5).Value = TextBox3.Text
ThisWorkbook.Worksheets(sayfa_adi).Range("A" & ilk_bos_satir).Offset(0, 3).Value = ComboBox1.Value
ThisWorkbook.Worksheets(sayfa_adi).Range("A" & ilk_bos_satir).Offset(0, 4).Value = ComboBox2.Value
End If
Call koru
MsgBox "Kayıtlar Tamamlandı."
End Sub

[avogaga]

Teşekkür ederim. İşlerimin yoğunluğundan hemen cevap yazamadım.

Kodlarınızı uygulamaya çalıştım ama tam olarak istediğimi yapamadım.
Vaktiniz olduğunda ilgilenirseniz sevinirim.
iyi çalışmalar,

Dosyamı ekliyorum.
dosyayı açmak için
kullanıcı :USER            şifre : 1994

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

Yavuz Bey, VBA şifreli...