2 sayfa arasında veri aktarma

[tuval]

Merhaba, daha önce sorulan bir soruyu tekrar sorduğum için özür dilerim ancak önceki çözümleri kendi programıma uygulayamadım. Benim istediğim bir sayfada bulduğum toplamı 2. sayfaya bir hücreye yazabilmek. Bulduğum toplamı her seferinde 2. sayfada A sütununda arama yapıp toplamı E sütununda yazmak. yardımcı olursanız çok sevinirim.

 

[İhsan Tank]

dosya ekler misiniz

 

[tuval]

Örnek dosya aşağıdaki gibi.1. sayfadaki sayfa sayılarının 2. sayfaya otomatik yazılmasını istiyorum. Yardımcı olursanız çok sevinirim

 

[İhsan Tank]

Örnek dosya aşağıdaki gibi.1. sayfadaki sayfa sayılarının 2. sayfaya otomatik yazılmasını istiyorum. Yardımcı olursanız çok sevinirim

merhaba
Sayfa2'nin kod bölümüne

Private Sub Worksheet_Activate()
Dim a As Long
For a = 1 To Cells(65536, "A").End(xlUp).Row
Cells(a, "E") = WorksheetFunction.VLookup(Range("A" & a).Value, Sheets("Sayfa1").Range("A:C"), 3, 0)
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
For a = 1 To Cells(65536, "A").End(xlUp).Row
Cells(a, "E") = WorksheetFunction.VLookup(Range("A" & a).Value, Sheets("Sayfa1").Range("A:C"), 3, 0)
Next
End Sub

bu kodu kopyalayın ve deneyin.
kayıt yaparken lütfen makro içerebilen dosya şeklinde kayıt yapın. yoksa makrolar çalışmaz.
Not : Makro Güvenlik ayarlarını düşürmelisiniz

 

[eedtr]

ellerinize sağlık

 

[İhsan Tank]

ellerinize sağlık

rica ederim
:yazici: