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

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
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?
 

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
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ı?
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Alternatif olarak deneyin.
Kod:
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
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Sağ olun.
 
Üst