• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

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

Katılım
10 Temmuz 2012
Mesajlar
1,126
Beğeniler
25
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?
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
4,698
Beğeniler
337
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
 
Üst