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

Katılım
10 Temmuz 2012
Mesajlar
1,319
Beğeniler
39
Excel Vers. ve Dili
2016 TR
#1
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?
 
Katılım
10 Temmuz 2012
Mesajlar
1,319
Beğeniler
39
Excel Vers. ve Dili
2016 TR
#6
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,109
Beğeniler
556
Excel Vers. ve Dili
2013 64Bit
English
#10
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,109
Beğeniler
556
Excel Vers. ve Dili
2013 64Bit
English
#12
Sağ olun.
 
Üst