istediğim sayfada altalta kayıt

[aduhan22]

sevgili forum yöneticileri öncelikle günaydın, ekte gönderdiğim listede yaptığım girişlerin altalta bordro sayfasında ve banka hsp nolarının ise bankalistesinde altalta görünmesini istiyorum., her seferinde kayıt işlemi bitince yeni kayda otomatik geçiş yapmasını da istiyorum. Forumda arattım ancak çözemedim ilginize teşekkürler... (umarım çok şey istemiyorumdur.) :hey:

 

[Levent Menteşoğlu]

Kaydet butonundaki kodu aşağıdaki ile değiştirerek deneyin.

[vb:1:ae99197acb]Private Sub CommandButton1_Click()
Set s1 = Sheets("bordro")
Set s2 = Sheets("bankalistesi")
saybordro = WorksheetFunction.CountA([bordro!b11:b65536]) + 11
saybanka = WorksheetFunction.CountA([bankalistesi!c5:c65536]) + 5
s1.Cells(saybordro, 2) = ComboBox1.Value
s1.Cells(saybordro, 3) = TextBox1.Value
s1.Cells(saybordro, 4) = TextBox2.Value
s1.Cells(saybordro, 5) = TextBox3.Value
s1.Cells(saybordro, 6) = TextBox4.Value
s1.Cells(saybordro, 7) = ComboBox2.Value
s1.Cells(saybanka, 3) = TextBox5.Value
s1.Cells(saybordro, 8) = TextBox6.Value
s1.Cells(saybordro, 13) = ComboBox3.Value
On Error GoTo hata
Application.DisplayAlerts = False ' uyarı mesajını kaldırır
ActiveWorkbook.Save
MsgBox "Kayıt Tamamlandı."
hata:
Application.DisplayAlerts = True
End Sub[/vb:1:ae99197acb]

Not:Mesajlarınızda da sorunuzu forum yönetimine hitaben değil, tüm forum üyelerine hitaben sormanızı rica ediyorum.

 

[aduhan22]

üstadım çok teşekkür ederim saygılarımla, bu arada sana gönderdiğim bi izin programı vardı işçilere ait eline geçip geçmediğini merak ettim. :mutlu:

 

[yahya44]

farklı sayfalara kayıt

Kaydet butonundaki kodu aşağıdaki ile değiştirerek deneyin.

[vb:1:c42af6c828]Private Sub CommandButton1_Click()
Set s1 = Sheets("bordro")
Set s2 = Sheets("bankalistesi")
saybordro = WorksheetFunction.CountA([bordro!b11:b65536]) + 11
saybanka = WorksheetFunction.CountA([bankalistesi!c5:c65536]) + 5
s1.Cells(saybordro, 2) = ComboBox1.Value
s1.Cells(saybordro, 3) = TextBox1.Value
s1.Cells(saybordro, 4) = TextBox2.Value
s1.Cells(saybordro, 5) = TextBox3.Value
s1.Cells(saybordro, 6) = TextBox4.Value
s1.Cells(saybordro, 7) = ComboBox2.Value
s1.Cells(saybanka, 3) = TextBox5.Value
s1.Cells(saybordro, 8) = TextBox6.Value
s1.Cells(saybordro, 13) = ComboBox3.Value
On Error GoTo hata
Application.DisplayAlerts = False ' uyarı mesajını kaldırır
ActiveWorkbook.Save
MsgBox "Kayıt Tamamlandı."
hata:
Application.DisplayAlerts = True
End Sub[/vb:1:c42af6c828]

Not:Mesajlarınızda da sorunuzu forum yönetimine hitaben değil, tüm forum üyelerine hitaben sormanızı rica ediyorum.

Merhaba benzer bir problemim var fakat kodları kendi calışmama adapte edemedim. yardımcı olursanız sevinirim
teşekkürler[/img][/quote]

 

[Levent Menteşoğlu]

Kaydet butonuna aşağıdaki kodu yazın.

[vb:1:28767111c4]Private Sub CommandButton1_Click()
Set s1 = Sheets("ücret tahakkuk fişi")
Set s2 = Sheets("data")
If s2.[d20] <> 0 Then
MsgBox "KAYIT HAKKINIZ DOLMUÞTUR"
Exit Sub
End If
inc = TextBox1 & TextBox2 & TextBox3
For a = 1 To s2.[d65536].End(xlUp).Row
deg = s2.Cells(a, 4) & s2.Cells(a, 5) & s2.Cells(a, 3)
If deg = inc Then
MsgBox "BU VERİ KAYITLIDIR"
TextBox1.SetFocus
Exit Sub
End If
Next
say = WorksheetFunction.CountA(s2.[d1:d65536])
s2.Cells(say + 1, 4) = TextBox1.Value
s2.Cells(say + 1, 5) = TextBox2.Value
s2.Cells(say + 1, 3) = TextBox3.Value
MsgBox "Verileriniz Kaydedildi", , "KAYIT"
End Sub[/vb:1:28767111c4]

Sil butonunada aşağıdaki kodları yazın.

[vb:1:28767111c4]Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub
[/vb:1:28767111c4]

 

[yahya44]

teşekkür ederim kaydet kısmı işime yaradı sil butonu ile ilgili soruyu yanlış sormuşum sorudaki kastım userformda görülen veri data sayfasından silinmesi idi bu yüzden TextBox yerine ComboBox yaptım kayıtlı veriyi buluyorum fakat silemiyorum. Birde ComboBox1 de yazan veri kayıtlı ise uyarı veriyor fakat ComboBox3 deki veride kayıtlı ise aynı uyarıyı vermesi gerekirken kaydediyor. (ComboBox2 de uyarı vermesine gerek yok )yardım ederseniz sevinirim teşekkürler