macro ile etopla hakkında!

[hurkanpisirici]

merhabalar örnek dosyamda sayfa1 deki verilerin toplamını sayfa 2 deki tabloda toplatmak istiyorum.forumdaki örneklerde buna benze bişey bulamadım yardımcı olacak bir arkadaş varmı?

 

[Orion1]

B1 hücresindeki formul.

=ETOPLA(Sayfa1!A:A;Sayfa2!A1;Sayfa1!B:B)

Ekli dosyayı inceleyiniz.

 

[hurkanpisirici]

sayın evren bey ben macro ile olmasını istiyorum

 

[mehmett]

Makro ile bir çözüm önerisi gönderiyorum ekte, işinizi görür umarım.

Sayfa1 ve Sayfa2'deki listelere ekleme yapsanız da çalışacak şekilde döngü yapıldı makroda.

Sub etopla()
Set S1 = Sheets("sayfa1")
Set S2 = Sheets("sayfa2")
sons1 = S1.[a65536].End(3).Row
sons2 = S2.[a65536].End(3).Row
For j = 1 To sons2
S2.Range("B" & j) = WorksheetFunction.SumIf(S1.Range("A1:A" & sons1), S2.Range("A" & j), S1.Range("B1:B" & sons1))
Next
End Sub

 

[metinozlu]

hazırladığım dosya ekte

 

[hurkanpisirici]

mehmet bey harikasınız benim içinde bu önemliydi metin bey sizede çok teşekkür ederim kolaygelsin işime çok yaradı bu kodlar.

 

[hurkanpisirici]

mehmet bey ama anında değğişmiyor veriler?

 

[metot]

bir örnekte benden ekteki dosyayı inceleyiniz... userform üzerinde seçtiğiniz veriyi msgbox ile görünteleyebilirsiniz...

 

[uzmanamele]

merhaba
syn hürkan
sayfa1'in kod sayfasına aşağıdaki kodu ekleyerek denermisiniz

Private Sub Worksheet_Change(ByVal Target As Range)
Call etopla
End Sub

 

[mehmett]

mehmet bey ama anında değğişmiyor veriler?

Sn hrknp,

Sayfa1'deki listeye ilave yapıldığında Sayfa2'deki listeyi anında güncelleyecek şekilde yeni yazılan kodlar aşağıda, kodların uygulandığı dosya da ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Set S1 = Sheets("sayfa1")
Set S2 = Sheets("sayfa2")
sons1 = S1.[a65536].End(3).Row
sons2 = S2.[a65536].End(3).Row
sonharf = S1.Range("A" & sons1)
say = WorksheetFunction.CountIf(S1.Range("A1:A" & sons1 - 1), sonharf)
If say > 0 Then GoTo 10
S2.Range("A" & sons2 + 1) = sonharf
10
sons2a = S2.[a65536].End(3).Row
For j = 1 To sons2a
S2.Range("B" & j) = WorksheetFunction.SumIf(S1.Range("A1:A" & sons1), S2.Range("A" & j), S1.Range("B1:B" & sons1))
Next
End Sub

 

[hurkanpisirici]

sayın uzmanamele ve mehmet bey teşekürler elleirnize sağlık