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
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