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
-
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
-
Merhaba Yavuz Bey,
Call Satir
olarak çağırdığınız Satir isimli makronuzu da yazabilir misiniz?
-
Merhabalar, ilginiz için teşekkür ederim.
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
-
Kodlamanızı şunun gibi değiştirip dener misiniz?
Dim sayfa_adi
Dim ilk_bos_satir
Sub Satir()
sayfa_adi = "Sayfa1" 'ComboBox3.Value
ilk_bos_satir = ThisWorkbook.Worksheets(sayfa_adi).Range("A65530").End(3).Row + 1
End Sub
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
-
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.]
-
Yavuz Bey, VBA şifreli...