Çözüldü hücre tetiklemesi ile satır aktarma

[sirkülasyon]

Değerli üstadlarım
Bordro sayfasında D6 ve E6 hücrelerinde değişiklik olduğu zaman
Bordro sayfasında ki A6:R6 aralığı
ARŞİV sayfasında alt alta A6:R6 aralığına aktarılması için makro konusunda yardımcı olabilir misiniz?

 

[yanginci34]

Denermisiniz.

 

[sirkülasyon]

Üstad
dosya indirmede https://www.excel.web.tr/attachments/deneme-kopyala-yapistir-xlsm.200827/hata veriyor.

 

[yanginci34]

Bunu indirmeyi deneyin umarım olur.
Eğer foruma üye değilseniz alttaki linkten indire bilirsiniz dosyayı.
http://dosya.co/g03o9wwcjbak/kopyala_yapıştır.xlsm.html

 

[Haluk]

Üstad
dosya indirmede https://www.excel.web.tr/attachments/deneme-kopyala-yapistir-xlsm.200827/hata veriyor.

Altın Üye değilsiniz.... dosyayı indiremezsiniz zaten.

.

 

[sirkülasyon]

Haluk abi sadece ilk dosya hata verdi. İkinci dosyayı indirdim.
Sayın yanginci34 teşekkür ederim. Sağolasın.
Arşiv sayfasına aktarırken sadece 6. satırdan itibaren aktarmıyor. Bir kontrol edebilme imkanınız var mı?

 

[yanginci34]

Buyrun

 

[sirkülasyon]

Allah razı olsun
Sağ ol, var ol

 

[yanginci34]

Cümlemizden Allah razı olsun. Kolay gelsin.

 

[turist]

Alternatif olarak deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [D6: E6]) Is Nothing Then Exit Sub
Dim son: son = Sheets("ARŞİV").Cells(Rows.Count, 1).End(xlUp).Row + 1
If son < 6 Then son = 6
If [D6] = "" Or [E6] = "" Then
MsgBox "Eksik Bilgiyi Tamamlayınız !!! "
Exit Sub
End If
Application.ScreenUpdating = False
[A6:R6].Copy Sheets("ARŞİV").Cells(son, 1)
Application.CutCopyMode = False
[A6].Select
Application.ScreenUpdating = True
End Sub

 

[sirkülasyon]

Sayın turist
Ellerine Sağlık, Teşekkür ederim. Sağ olasınız.

 

[turist]

Sağ olun.