Ana sayfadan Bordo ve Banka Listesi Hesaplatma

[sedat2161]

Hayırlı akşamlar sayın hocalarım. Ekli dosyamda Ana sayfada bulunan bilgileri bordro sayfasına hesaplama yaptıktan sonrada banka listesine aktarmak istiyorum. Yardımlarınızı bekliyorum sayın hocalarım.

 

[Levent Menteşoğlu]

Sayfadaki butona aşağıdaki kodları kopyalayıp deneyin.

Private Sub CommandButton1_Click()

Set s1 = Sheets("Ana Sayfa")
Set s2 = Sheets("Bordro")
Set s3 = Sheets("Banka")

s2.Range("C6:E205,G6:G205,I6:I205").ClearContents
s3.Range("B2:E201").ClearContents
s3.Rows("2:201").EntireRow.Hidden = False


For a = 2 To s1.Cells(Rows.Count, "B").End(3).Row

bordrosat = s2.Cells(Rows.Count, "C").End(3).Row + 1
s2.Cells(bordrosat, "C") = s1.Cells(a, "B").Value
s2.Cells(bordrosat, "D") = s1.Cells(a, "C").Value
s2.Cells(bordrosat, "E") = s1.Cells(a, "D").Value
s2.Cells(bordrosat, "G") = s1.Cells(a, "E").Value
s2.Cells(bordrosat, "I") = s1.Cells(a, "G").Value

bankasat = s3.Cells(Rows.Count, "B").End(3).Row + 1
s3.Cells(bankasat, "B") = s1.Cells(a, "C").Value
s3.Cells(bankasat, "C") = s1.Cells(a, "B").Value
s3.Cells(bankasat, "D") = s1.Cells(a, "H").Value
s3.Cells(bankasat, "E") = s2.Cells(bordrosat, "L").Value

Next

s3.Rows(bankasat + 1 & ":201").EntireRow.Hidden = True

End Sub

 

[sedat2161]

Sayfadaki butona aşağıdaki kodları kopyalayıp deneyin.

Private Sub CommandButton1_Click()

Set s1 = Sheets("Ana Sayfa")
Set s2 = Sheets("Bordro")
Set s3 = Sheets("Banka")

s2.Range("C6:E205,G6:G205,I6:I205").ClearContents
s3.Range("B2:E201").ClearContents

For a = 2 To s1.Cells(Rows.Count, "B").End(3).Row

bordrosat = s2.Cells(Rows.Count, "C").End(3).Row + 1
s2.Cells(bordrosat, "C") = s1.Cells(a, "B").Value
s2.Cells(bordrosat, "D") = s1.Cells(a, "C").Value
s2.Cells(bordrosat, "E") = s1.Cells(a, "D").Value
s2.Cells(bordrosat, "G") = s1.Cells(a, "E").Value
s2.Cells(bordrosat, "I") = s1.Cells(a, "G").Value

bankasat = s3.Cells(Rows.Count, "B").End(3).Row + 1
s3.Cells(bankasat, "B") = s1.Cells(a, "C").Value
s3.Cells(bankasat, "C") = s1.Cells(a, "B").Value
s3.Cells(bankasat, "D") = s1.Cells(a, "H").Value
s3.Cells(bankasat, "E") = s2.Cells(bordrosat, "L").Value

Next

End Sub

hocam hayırlı akşamlar. Hocam aktarma yapıldıktan sonra toplam satırına kadar olan boş hücreler gizlenebilirmi acaba.

 

[Levent Menteşoğlu]

hocam hayırlı akşamlar. Hocam aktarma yapıldıktan sonra toplam satırına kadar olan boş hücreler gizlenebilirmi acaba.

İlk mesajımdaki koda gerekli eklemeyi yaptım.

 

[sedat2161]

İlk mesajımdaki koda gerekli eklemeyi yaptım.

Hocam hayırlı akşamlar. Kodu uyguladım gizleme yapıyor.
Yalnız Ana sayfadan yeni personel eklediğimde aktarma yapıyor ancak gizlenen satır açılmıyor.

 

[Levent Menteşoğlu]

İlk mesajıma yeniden bir ekleme yaptım.

 

[sedat2161]

İlk mesajıma yeniden bir ekleme yaptım.

Hocam çok teşekkür ederim. Emeğinize sağlık. İyi ki varsınız. Allah razı olsun.