Son dolu satırı kopyalama

[msetr]

Herkese iyi günler.

Excelde sizlerin desteğinizle yapmış olduğum personel maaş dosyası var.

Takıldığım nokta bir sayfadan diğer sayfaya veri kopyalama yaparken son dolu satırı kopyalama. Forumda farklı örnekler buldum ama kendi koduma ekleyince hata verdi.

Yapmak istediğim örneğin Hakediş sayfasında Banka sütununa Banka yazınca;

İlk önce Banka sayfasındaki son dolu satırı bir alta formüllerle beraber kopyalayıp

sonra sadece personel isim hücresinin içeriğinin silinmesi

sonra Hakediş sayfasından ilgili satırının sadece personel ismini Banka sayfasına kopyalaması.

Bu işlemi Liste sayfasından Puantaja sonra Puantaj sayfasından Hakedişe sonra Hakediş sayfasından Banka ve SSK sayfasına ayrı ayrı yapmak istiyorum.

Puantaj sayfasındaki veriler her personel için iki satırdan oluşmakta. Yani son iki satırı kopyalamak gerekiyor.
Diğer sayfalar her personel için tek satırdan oluşmakta.

Yardımcı olacak arkadaşlara şimdiden çok teşekkürler.

 

[askm]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("AD2:AD" & Rows.Count)) Is Nothing Then GoTo 10
a = Target.Row
If Target.Offset(0, 2) <> "AKTARILDI" Then
If WorksheetFunction.CountBlank(Range("A" & a & ":I" & a)) = 0 Then
For sayfa = 1 To Sheets.Count
If Sheets(sayfa).Name = Target Then
yeni = Sheets(sayfa).Cells(Rows.Count, "E").End(3).Row
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Sheets(sayfa).Range("A" & yeni & ":D" & yeni).Copy
son = yeni + 1
Sheets(sayfa).Select
Sheets(sayfa).Range("A" & son).Select
ActiveSheet.Paste
Range("C" & a).Copy
Sheets(sayfa).Cells(son, "E").PasteSpecial Paste:=xlPasteValues
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.CutCopyMode = False
sayfa = Sheets.Count
Target.Offset(0, 2) = "AKTARILDI"
End If

 

[msetr]

Cevabınız için teşekkürler. Bir kaç küçük problem var. Size zahmet ekteki dosyaya bakıp yardımcı olursanız sevinirim.

Liste sayfasından Puantaj sayfasına veri aktarımda;
Puantaj sayfasının satırları her personel için 2 satır fakat formül tek satıra göre çalışıyor. Son iki satırı kopyalama işlemini yapmak için formülde nereyi değiştirmem gerekir.

Liste sayfasından Puantaja ve Puantajdan Hakediş sayfasına aktarımda makrolar orada da olduğu için problem çıkıyor. Makronun çalıştığı sütunuda kopyalamaya çalışıyor.
Aklıma şöyle bir çözüm geldi. Makro sütununa kadar satırı kopyaladım. Fakat makronun çalıştığı sütunlarını ikinci kopyalama işlemi olarak bir alt satıra sadece hücre biçimlendirmelerini nasıl kopyalayabilirim.

Hakediş sayfasından Banka sayfasına bir üst satırı kopyalıyor personel isimini getirince hücrenin hizalama ve kenar çerçeveleri kayboluyor. Uğraştım ama çözemedim.

Hakediş sayfasından SSK sayfasına aktarmada problem yok.

Son olarak örneğin Hakediş sayfasından Banka sayfasına makro hücereyi kopyalayınca Excel Banka sayfasında kalıyor. Tekrar Hakediş sayfasındaki son kaldığım yere otomatik olarak nasıl dönebilirim.


Biraz karışık oldu ama ekteki dosyayı incelerseniz daha iyi anlaşılacağını ümit ediyorum.

Yardımlarınız için şimdiden çok teşekkürler.