Bir tabloda aynı olan değerler Başka bir tabloda ayrılı

[hlk]

Bir tabloda bulunan karışık verilerden aynı isim altında olanları başka bir kitapta ayri sheet lerde toplamak mümkün mü? Ana tabloda yapılan değişliklerin diğer tablonun her sheetinde de değişmesi gerekiyor. :?

 

[mturhan14]

ben makroların acemisiyim ama çözüm nasıl oluyor dosyayı indiridm bir şey anlayamadım yardımcı olursanız sevinirim
:agla:

 

[danersin]

Fonksiyonla yapmak zor ve kullanışsız bir yol gibi geliyor bana..
Onun yerine anatabloda bir modüle aşağıdaki kodları yazsanız ve ayrılmış hali ne zaman lazım olursa makroyu çalıştırıp bir kaç saniye içinde elde etseniz..?? Tabi ayrılmış sayfalarda ayrıca başka şeyler varsa bu çözüm işinize yaramayacaktır.


Sub Makro1()
sonsat = Cells(65536, 1).End(xlUp).Row
Range("A1:A" & sonsat).Select
Selection.Copy
Range("G1").Select
ActiveSheet.Paste
Application.CutCopyMode = False


Range("G1:G14").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"H1"), Unique:=True
gecsonsat = Cells(65536, 8).End(xlUp).Row

For i = 2 To gecsonsat
Worksheets.Add after:=Sheets(Worksheets.Count)
ActiveSheet.Name = Sheets(1).Cells(i, 8).Value
Cells(1, 1) = Sheets(1).Cells(1, 1)
Cells(1, 2) = Sheets(1).Cells(1, 2)
Cells(1, 3) = Sheets(1).Cells(1, 3)
Cells(1, 4) = Sheets(1).Cells(1, 4)

Next i
Sheets(1).Select
Columns("g:h").ClearContents


For i = 2 To sonsat
sayf = Cells(i, 1).Value
yensonsat = Sheets(sayf).Cells(65536, 1).End(xlUp).Row + 1
Sheets(sayf).Cells(yensonsat, 1) = Cells(i, 1)
Sheets(sayf).Cells(yensonsat, 2) = Cells(i, 2)
Sheets(sayf).Cells(yensonsat, 3) = Cells(i, 3)
Sheets(sayf).Cells(yensonsat, 4) = Cells(i, 4)
Next i

End Sub

 

[hlk]

Sn.Danersin birkaç gündür burada olmadığım için ancak cevap verebiliyorum.
Gönderdiğiniz formül ingilizce ben türkçe kullanıyorum.Olurmu?ayrıca bu fonksiyonu nereye yazmam gerektiğini biraz daha açarsanız çok sevinirim.İlginize teşekkürler.