ekli işçi maaş ödemesi

[Ercan_ÇELİKOĞLU]

İndir ÇODEM GÜVENLİK MAAŞ HAZİRAN TEMMUZ 2020

Dosyayı indir ÇODEM GÜVENLİK MAAŞ HAZİRAN TEMMUZ 2020

dosya.co

Bu dosya kocaeli de çalışan cemal aslan tarafından yapılmış ve tüm verileri doğru çalışan bir program
personel bilgi veri girişine göre maaş hesapla butonuna basılarak maaşı hesaplamakta.
ben ek olarak yazdırma sayfalarını ve kbs memur maaşı gibi bordro 2 sayfasını ekledim ve bordrodan birebir kopyalayarak aldım ancak asıl istediğim tıpkı bordro sayfasındaki gibi : Personel bilgi girişinde yeni birini eklediğimizde ilk sütuna 1 yazıp kişi bilgi ve bilgilerini girip maaş hesapla dediğimizde bordro ve banka listesi aylık bildirge yeni kişiyi otomatik eklemekte user module de nasıl bir kod yazıldığını çözemedim ( yeni kişi eklendiğinde tıpkı normal bordro sayfasındaki gibi yeni kişiyi bordro 2 ye eklemesini istiyorum. ( bordro 2 programın aslında yok ben ekledim ) yani bordro sayfasına nasıl tüm verileri atıyorsa bordro 2 dede atsın istiyorum saygılarımla.

 

[Ercan_ÇELİKOĞLU]

bu konuyu çözmeme yardımcı olabilecek biri varmı

 

[Ercan_ÇELİKOĞLU]

İndir ÇODEM GÜVENLİK MAAŞ HAZİRAN TEMMUZ 2020

Dosyayı indir ÇODEM GÜVENLİK MAAŞ HAZİRAN TEMMUZ 2020

dosya.co

Bu dosya kocaeli de çalışan cemal aslan tarafından yapılmış ve tüm verileri doğru çalışan bir program
personel bilgi veri girişine göre maaş hesapla butonuna basılarak maaşı hesaplamakta.
ben ek olarak yazdırma sayfalarını ve kbs memur maaşı gibi bordro 2 sayfasını ekledim ve bordrodan birebir kopyalayarak aldım ancak asıl istediğim tıpkı bordro sayfasındaki gibi : Personel bilgi girişinde yeni birini eklediğimizde ilk sütuna 1 yazıp kişi bilgi ve bilgilerini girip maaş hesapla dediğimizde bordro ve banka listesi aylık bildirge yeni kişiyi otomatik eklemekte user module de nasıl bir kod yazıldığını çözemedim ( yeni kişi eklendiğinde tıpkı normal bordro sayfasındaki gibi yeni kişiyi bordro 2 ye eklemesini istiyorum. ( bordro 2 programın aslında yok ben ekledim ) yani bordro sayfasına nasıl tüm verileri atıyorsa bordro 2 dede atsın istiyorum saygılarımla.

Merhaba lütfen yardım edermisiniz.

 

[muratboz06]

İndir ÇODEM GÜVENLİK MAAŞ HAZİRAN TEMMUZ 2020

Dosyayı indir ÇODEM GÜVENLİK MAAŞ HAZİRAN TEMMUZ 2020

dosya.co

BORDRO2BOS sayfasındayken BORDRO2_SAYFASI_OLUSTUR() makrosunu,
BORDRO2 sayfası oluştuktan sonra da
BORDRO_SAYFASINDAN_VERILERI_AL() makrosunu çalıştırınız.

 

[Ercan_ÇELİKOĞLU]

Screenshot

Captured with Lightshot

prnt.sc

Screenshot

Captured with Lightshot

prnt.sc

hocam öncelikle katkınız için teşekkürler ancak resimdeki hataları veriyor.

 

[muratboz06]

Aşağıdaki kodu herhangi bir module ekleyerek BORDRO2 sayfasında çalıştırarak deneyiniz. Yukarıda paylaştığım dosyadaki kod ve aşağıdaki kod bende istenilen sonucu veriyor. Excel versiyonunuz nedir?

Sub BORDRO_SAYFASINDAN_VERILERI_AL2()
    Application.ScreenUpdating = False
    Dim kaynak As Worksheet
    Dim hedef As Worksheet
    
    Set kaynak = ThisWorkbook.Worksheets("BORDRO")
    Set hedef = ThisWorkbook.Worksheets("BORDRO2")
    kaynak.Select
    kaynak.Range("C10").Select
    sonSatir = kaynak.Range(Selection, Selection.End(xlDown)).Rows.Count
    hedef.Select
    hedef.Range("B11").End(xlDown).Offset(1, 0).Select
    For i = 1 To (sonSatir - 1) * 9
        ActiveCell.EntireRow.Insert
    Next i
    
    For j = 1 To sonSatir - 1
        hedef.Range("B11:F19").Select
        Selection.Copy
        hedef.Range("B11").End(xlDown).Offset(1, 0).Select
        ActiveSheet.Paste
        Selection.Replace What:=10 + (j * 9), Replacement:=10 + j, LookAt:=xlPart, _
                          SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                          ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
        ActiveWindow.SmallScroll Down:=6
        
    Next j
    hedef.Range("B11").End(xlDown).Offset(1, 0).EntireRow.Delete
    hedef.Range("B11").Select
    MsgBox "İşlem tamamlandı."
    Application.ScreenUpdating = True
End Sub

 

[Ercan_ÇELİKOĞLU]

Sayın hocam evdeki excel2016 işteki 2010 versiyon 2 sindede değiniz herşeyi yapıyorum ama dbug hatası veriyor saygılarımla.

 

[muratboz06]

Aşağıdaki kodun çalışacağını düşünüyorum.
Mac mi kullanıyorsunuz?

Sub BORDRO_SAYFASINDAN_VERILERI_AL2()
    Application.ScreenUpdating = False
    Dim kaynak As Worksheet
    Dim hedef As Worksheet
    
    Set kaynak = ThisWorkbook.Worksheets("BORDRO")
    Set hedef = ThisWorkbook.Worksheets("BORDRO2")
    kaynak.Select
    kaynak.Range("C10").Select
    sonSatir = kaynak.Range(Selection, Selection.End(xlDown)).Rows.Count
    hedef.Select
    hedef.Range("B11").End(xlDown).Offset(1, 0).Select
    For i = 1 To (sonSatir - 1) * 9
        ActiveCell.EntireRow.Insert
    Next i
    
    For j = 1 To sonSatir - 1
        hedef.Range("B11:F19").Select
        Selection.Copy
        hedef.Range("B11").End(xlDown).Offset(1, 0).Select
        ActiveSheet.Paste
        Selection.Replace What:=10 + (j * 9), Replacement:=10 + j, LookAt:=xlPart, _
                          SearchOrder:=xlByRows, MatchCase:=True
        
    Next j
    hedef.Range("B11").End(xlDown).Offset(1, 0).EntireRow.Delete
    hedef.Range("B11").Select
    MsgBox "İşlem tamamlandı."
    Application.ScreenUpdating = True
End Sub

 

[Ercan_ÇELİKOĞLU]

bu son kod çalıştı hocam ne yaptınız bilmiyorum ama çok teşekkür ederim size.

 

[Ercan_ÇELİKOĞLU]

Sayın Muratboz6 size özelden bir mesaj yazdım geri dönüş yaparsanız çok sevinirim.