Alt alta yazılı bir veri dizisini süzerek satırlara yazmak

[mukilyar]

merhaba
örnekteki XYZ veri dosyasını bir makro ile Y ve Z çalışma sayfalarına aktarmak istiyorum
yardımcı olabilirmisiniz

not: örnek dosya verinin küçültülmüş halidir
ürün sayısı yaklaşık 160 adet
veri sayısı yaklaşık 15.000 kadar
toplam verinin satır sayısı yaklaşık 230.000 satır
yani veryi aktardığı Y ve Z sayfaları 160 satır X 15.000 sütundan oluşuyor

teşekkürler

 

[Muzaffer Ali]

Merhaba.
XYZ sayfasının A kolonunda bulunan veriler düzgün sıralanmış durumda orijinal dosyanızda da bunun gibi düzgün mü sıralanmış.

Yani A, B, C, D, E, F yazıyor ve sonra hep aynı şekilde devam ediyor. Orijinal dosyanızda da aynı bunun gibi düzgün mü devam ediyor?

 

[mukilyar]

merhaba
evet yaklaşık 160 adet ürün dakikada bir sıralı şekilde veri alınıyor
24 sa lik veriler alt alta geliyor
teşekkürler

 

[mukilyar]

merhaba
forumda benzer başlıklar var ve makrolar var
ancak nedense benden kaynaklı olsa gerek
istediğimi yapamadım
makro bilgim yeterli olmadığından onları benim dosyama uygulamada başarılı olamadım
forumda en çok faydası olan makroyu aşağıdaki konuda buldum

https://www.excel.web.tr/threads/ayni-suetunu-birlestirip-verileri-yanyana-dizmek.176456/

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları deneyin.

Sub Aktar()
    AktarSayfa ThisWorkbook.Worksheets("Y"), "B"
    AktarSayfa ThisWorkbook.Worksheets("z"), "C"
End Sub

Sub AktarSayfa(syf As Worksheet, Kolon As String)
    Dim syfXYZ As Worksheet
    Dim Bak As Range
    Dim SatirSay As Long
    Set syfXYZ = ThisWorkbook.Worksheets("XYZ")
    syfXYZ.Range("A1").AutoFilter
    syfXYZ.Columns(1).Copy syf.Range("A1")
    syf.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
    SatirSay = syf.Cells(Rows.Count, "A").End(3).Row
    For Each Bak In syf.Range("A2:A" & SatirSay)
        syfXYZ.Range("A:C").AutoFilter Field:=1, Criteria1:=Bak.Value
        syfXYZ.Range(Kolon & "2:" & Kolon & syfXYZ.Cells(Rows.Count, "A").End(3).Row).Copy
        Bak(1, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Next
    syfXYZ.Range("A1").AutoFilter
End Sub

 

[mukilyar]

merhabalar
yazmış olduğunuz kodu denedim
sayfaXYZ deki verileri
SayfaY ve SayfaZ ye aktarıyor
Ancak aynı verileri aktarıyor
SayfaY ye Y sütunu
SayfaZ ye de Y sütunu aktarıyor
SayfaZ ye Z sütunu aktarması gerekiyor

 

[Muzaffer Ali]

Kodları değiştirdim . Şimdi yeniden deneyin.

 

[mukilyar]

çok teşekkür ederim
şimdi istediğim gibi aktarıyor
elinize sağlık