Hücre İçindeki kelimeyi Bulup Kopyalama

[YASINT]

Merhaba arkadaşlar
Yapmak istediğim "Satışlar" sayfasının D sütünunda Toplam ile başlayan tüm satırları "Toplam" sayfasına kopyalamak ama beceremiyorum ve yardımlarınızı bekliyorum. Teşekkür ederim

 

[Ayhan Ercan]

Merhaba
Örnek bir dosya ekleyebilirmisiniz...

 

[YASINT]

Örnek Dosyayı ekledim. İlgi için teşekkürler

 

[omerceri]

İlk olarak sizin yaptığınız alt toplam satırlarını silin, "Veri/Alt Toplamlar" ile yapıp, ayrıntıları gizleyebilirsiniz, ayrıca her defasında alt toplam almaktanda kurtulursunuz.

 

[YASINT]

O Dediğinizi yaptım zaten amacım ise sadece toplamları başka sayfaya makro ile kopyalatmak

 

[omerceri]

Aşağıdaki kodla toplamları TOPLAM sayfasına aktarabilirsiniz.
Denemeden önce dosyanızı yedekleyiniz.

Sub sec()
Sheets("TOPLAM").Cells.ClearContents
say = Sheets("Satışlar").Range("A1").CurrentRegion.Rows.Count
Sheets("Satışlar").Range("C1:D" & say).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Satışlar").Range( _
"C1:D" & say), CopyToRange:=Sheets("TOPLAM").Range("A1"), Unique:=True
say1 = Sheets("TOPLAM").Range("A1").CurrentRegion.Rows.Count
For i = 2 To say1
Sheets("TOPLAM").Range("c" & i).Value = Application.SumIf(Sheets("Satışlar").Range("D1:D" & say), Sheets("TOPLAM").Range("B" & i), Sheets("Satışlar").Range("E1:e" & say))
Sheets("TOPLAM").Range("d" & i).Value = Application.SumIf(Sheets("Satışlar").Range("D1:D" & say), Sheets("TOPLAM").Range("B" & i), Sheets("Satışlar").Range("f1:F" & say))
Sheets("TOPLAM").Range("e" & i).Value = Application.SumIf(Sheets("Satışlar").Range("D1:D" & say), Sheets("TOPLAM").Range("B" & i), Sheets("Satışlar").Range("G1:G" & say))
 
Next
End Sub

 

[YASINT]

Arkadaşım cevap için teşekkürler ama olmuyor

 

[Ayhan Ercan]

Merhaba
Ek dosyayı "AKTAR" butonuna basarak deneyiniz..

Dim x As String, hcr As Range, son As Integer
son = Sayfa2.[A65536].End(3).Row + 1
x = "Toplam"
For Each hcr In Range("D1:D" & [D65536].End(3).Row)
If Mid(hcr, 1, 6) = x Then
For i = 1 To 3
Sayfa2.Cells(son, i) = hcr.Offset(0, i)
Next
son = son + 1
End If
Next

 

[omerceri]

Örnek dosya ekte

 

[YASINT]

Çok teşekkür ederim arkadaşlar yardımlarınız için aslında birde toplamların kaç adet belgeden oluştuğunu gösterebilsek çok makbule geçerdi ama önce ben yapmaya uğraşıyım yapamaz isem siz üstadların ellerine havale edecem. Teşekkürler arkadaşlar tekrar tekrar teşekkürler