Başka çalışma kitabına formülsüz veri aktarma

Katılım
23 Eylül 2020
Mesajlar
30
Excel Vers. ve Dili
2019 türkçe
Merhaba,
Ekli dosya da aşağıdaki gibi bir makrom var. Mal kabul sayfasındaki "U" sütunun da hangi hücreye bitti yazdığımda o satırı giriş sayfasına, verileri taşıyabiliyorum. Benim yapmak istediğim bu aynı çalıma sayfasına değil de başka bir ÇALIŞMA KİTABINDAKİ giriş sayfasına formülsüz olarak yalnızca değerleri sıradaki boş satırdan başlayarak aktarmak. Yardımlarınız için şimdiden teşekkür ederim. Örnek dosya linki en altta ekledim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Intersect(Target, Range("U3:U" & Cells(Rows.Count, 1).End(3).Row)) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target = "BİTTİ" Then
sat = Target.Row
Range("A" & Target.Row & ":W" & Target.Row).Copy _
Sheets("GİRİŞ").Cells(Sheets("GİRİŞ").Cells(Rows.Count, 1).End(3).Row + 1, 1)
End If
Application.EnableEvents = True
End Sub

 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Linki inceleyin.
 
Üst