Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: avogaga - 23 Ağustos 2010, 12:33:36

Başlık: USER FORMDAN 3 AYRI SAYFAYA AYNI VERİLERİ KAYIT ETMEK
Gönderen: avogaga - 23 Ağustos 2010, 12:33:36
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
Başlık: Ynt: USER FORMDAN 3 AYRI SAYFAYA AYNI VERİLERİ KAYIT ETMEK
Gönderen: Bülent Öztürk - 23 Ağustos 2010, 12:59:39
Merhaba Yavuz Bey,

Alıntı
Call Satir
olarak çağırdığınız Satir isimli makronuzu da yazabilir misiniz?
Başlık: Ynt: USER FORMDAN 3 AYRI SAYFAYA AYNI VERİLERİ KAYIT ETMEK
Gönderen: avogaga - 23 Ağustos 2010, 13:03:42
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


Başlık: Ynt: USER FORMDAN 3 AYRI SAYFAYA AYNI VERİLERİ KAYIT ETMEK
Gönderen: Bülent Öztürk - 23 Ağustos 2010, 13:17:37
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
Başlık: Ynt: USER FORMDAN 3 AYRI SAYFAYA AYNI VERİLERİ KAYIT ETMEK
Gönderen: avogaga - 26 Ağustos 2010, 17:57:54
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.]
Başlık: Ynt: USER FORMDAN 3 AYRI SAYFAYA AYNI VERİLERİ KAYIT ETMEK
Gönderen: Bülent Öztürk - 17 Ekim 2010, 12:29:22
Yavuz Bey, VBA şifreli...