Sayfalara Yeni Girişte Ana Sayfa Güncellensin

[kaan2812]

Merhaba.
Forumda aradım sayfaları birleştirme var ama var olan sayfaları birleştiriliyor. Ben sayfalara yeni veri girişi olduğu anda ortak sayfaya en son yazılı satır sonuna ilgili kaydın eklenmesi :yardim:

Şimdiden teşekkürler.

 

[asi_kral]

Merhaba
Kitabınızın kod bölümünde bulunan Thisworkbook'a bu kodu kopyalayın ve deneyin.

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim S1 As Worksheet, STR As Long
Application.EnableEvents = False
If ActiveSheet.Name <> "ortak" Then
Set S1 = Sheets("ortak")
STR = S1.Range("A" & Rows.Count).End(xlUp).Row + 1
If Intersect(Target, Range("J2:J" & Rows.Count)) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
Range("A" & Target.Row & ":J" & Target.Row).Copy S1.Range("A" & STR)
Application.EnableEvents = True
End If
End Sub

Not : ortak sayfada çalışmaz diğer sayfalarda ise J sütununda işlem yapıldığında verileri aktarır.

 

[kaan2812]

Bu makroyu koplayarak çalıştırdığımda yeni veri girdiğimde hiçbirşey olmadı. Muhtemelen makroyu ilave edemedim.

 

[asi_kral]

Bu makroyu koplayarak çalıştırdığımda yeni veri girdiğimde hiçbirşey olmadı. Muhtemelen makroyu ilave edemedim.

Dosyayı inceleyin.