excel sayfasındaki bazı hücreleri diğer sayfaya aktarma hk.

[link_me]

Merhaba arkadaşlar,
excel sayfasındaki bazı hücreleri başka sayfaya otomatik olarak nasıl aktarabilirim.

Örnek olarak;
Yapmak İstediğim şu şekilde
Tarih: Açıklama: Tutar:
01.01.15 Kalem Geliri 20

02.02.15 Kıyafet Geliri 50

Gelirlerim farklı farklı sadece kıyafet gelirlerini bir sayfaya aktarılmasını istiyorum.
nasıl bir yol izlemem gerekiyor acaba.

 

[Orion1]

Örnek dosya ekleyiniz.

 

[link_me]

Örnek Dosya

Örnek Dosya Ektedir.

 

[link_me]

Yardımcı olacak arkadaşlar yok mu acaba?

 

[YUSUF44]

aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")

s1.Select

son = Cells(Rows.Count, "B").End(3).Row
s1.Range("A2:D" & son).Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$D$" & son).AutoFilter Field:=2, Criteria1:="Mağaza Geliri"
    Range("A2:C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
s2.Select
[a2].Select
yeni = Cells(Rows.Count, "A").End(3).Row + 1
Cells(yeni, "A").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
Rows(yeni).Delete
[a2].Select
s1.Select
    ActiveSheet.Range("$A$2:$D$" & son).AutoFilter Field:=2
    Range("C1").Select
End Sub

 

[link_me]

Sn. YUSUF44 bu kodları nereye yapıştırmam gerekiyor pek bilgim yok kodlar ile ilgili

 

[YUSUF44]

Dosya açıkken Alt+F11 yapın
Insert Menüsünden Module'yi seçin
Açılan boş sayfaya bu kodları yapıştırın
Sayfaya bir şekil/düğme ekleyin
Düğmeye makro olarak bu makroyu atayın.

 

[link_me]

Kusura bakmayın ama yapamadım bür türlü
İnanın bilmiyorum bu kod işini

 

[YUSUF44]

Örnek dosyanız ektedir.

 

[link_me]

Çok Teşekkür ederim.

 

[halilyor]

sayfalardan veri aktarımı

http://s6.dosya.tc/server5/yk7dqq/sayfalardan_veri_aktarimi.xls.html