• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Alt alta aynı veriye sahip hücreleri yan yana yapma

C

caglardem

Katılım
28 Şubat 2012
Mesajlar
15
Excel Vers. ve Dili
türkçe
Ekdeki dosyayı inceleyip yardımcı olursanız çok sevinirim. Şimdiden teşekkürler.
YAN_YANA_YAZDIRMA.xls.html


http://s3.dosya.tc/server5/58gpz6/YAN_YANA_YAZDIRMA.xls.html
 
Bu konuda bana yardımcı olacak olan biri yok mu durum çok acil lütfenn
 
Merhaba,
Ekli dosyada sayfa1' de tablonuzun sayfa2' ye yan yana listeleyen çalışma.
http://s6.dosya.tc/server3/4viopn/YAN_YANA_YAZDIRMA.rar.html

Kod: 
Option Explicit
Sub yanyana()
Dim d As Object, _
    s1 As Worksheet, _
    s2 As Worksheet, _
    i As Long, _
    sat As Long, _
    son As Long, _
    c, a, x
    
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary")
Set s1 = Sheets("Sayfa1")
    son = s1.Range("A" & Rows.Count).End(3).Row
    a = s1.Range("A2:H" & son).Value
        For i = LBound(a) To UBound(a)
            d(a(i, 3)) = d(a(i, 3)) & "#" & a(i, 1) & "#" & a(i, 2) & "#" & a(i, 3) & "#" & a(i, 4) _
                                    & "#" & a(i, 5) & "#" & a(i, 6) & "#" & a(i, 7) & "#" & a(i, 8)
        Next i
        
sat = 2
Set s2 = Sheets("Sayfa2")
s2.Cells.ClearContents
    For Each c In d.Keys
        x = Split(d.Item(c), "#")
        s2.Cells(sat, "A").Resize(, UBound(x) + 1) = x
        sat = sat + 1
    Next c
    
Application.ScreenUpdating = True
MsgBox "Bitti..."
End Sub
 

Ekli dosyalar

tasmed' Alıntı:
Merhaba,
Ekli dosyada sayfa1' de tablonuzun sayfa2' ye yan yana listeleyen çalışma.
http://s6.dosya.tc/server3/4viopn/YAN_YANA_YAZDIRMA.rar.html

Kod: 
Option Explicit
Sub yanyana()
..........
Set d = CreateObject("Scripting.Dictionary")
..........
End Sub
Genişletmek için tıkla ...
Merhaba, tebrikler Sayın tasmed.

Anladığım kadarıyla; C sütunu aynı olanları # karakteriyle metin olarak birleştirip, sonra da ayırma yöntemi kullanmışsınız.
Oldukça pratik bir düşünce tarzı olmuş, Scripting_Dictionary kod'u zaten benim için tamamen uzak, bambaşka bir olay.
İnşallah bir gün biz de böyle kodlar yazabiliriz.
 
Son düzenleme:
tasmed' Alıntı:
Merhaba,
Ekli dosyada sayfa1' de tablonuzun sayfa2' ye yan yana listeleyen çalışma.
http://s6.dosya.tc/server3/4viopn/YAN_YANA_YAZDIRMA.rar.html

Kod: 
Option Explicit
Sub yanyana()
Dim d As Object, _
    s1 As Worksheet, _
    s2 As Worksheet, _
    i As Long, _
    sat As Long, _
    son As Long, _
    c, a, x
    
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary")
Set s1 = Sheets("Sayfa1")
    son = s1.Range("A" & Rows.Count).End(3).Row
    a = s1.Range("A2:H" & son).Value
        For i = LBound(a) To UBound(a)
            d(a(i, 3)) = d(a(i, 3)) & "#" & a(i, 1) & "#" & a(i, 2) & "#" & a(i, 3) & "#" & a(i, 4) _
                                    & "#" & a(i, 5) & "#" & a(i, 6) & "#" & a(i, 7) & "#" & a(i, 8)
        Next i
        
sat = 2
Set s2 = Sheets("Sayfa2")
s2.Cells.ClearContents
    For Each c In d.Keys
        x = Split(d.Item(c), "#")
        s2.Cells(sat, "A").Resize(, UBound(x) + 1) = x
        sat = sat + 1
    Next c
    
Application.ScreenUpdating = True
MsgBox "Bitti..."
End Sub
Genişletmek için tıkla ...

Elinize emeğinize sağlık ALLAH razı olsun okadar çok işime yarayacak ki anlatamam. Saygılarımı sunarım iyi günler.
 
omer.baran' Alıntı:
Merhaba, tebrikler Sayın tasmed.

Anladığım kadarıyla; C sütunu aynı olanları # karakteriyle metin olarak birleştirip, sonra da ayırma yöntemi kullanmışsınız.
Oldukça pratik bir düşünce tarzı olmuş, Scripting_Dictionary kod'u zaten benim için tamamen uzak, bambaşka bir olay.
İnşallah bir gün biz de böyle kodlar yazabiliriz.
Genişletmek için tıkla ...

Sy omer.baran bey sizede teşekkür ederim bana yol gösterdiğiniz için ALLAH razı olsun. Saygılarımla iyi günler.
 
tasmed' Alıntı:
Merhaba,
Ekli dosyada sayfa1' de tablonuzun sayfa2' ye yan yana listeleyen çalışma.
http://s6.dosya.tc/server3/4viopn/YAN_YANA_YAZDIRMA.rar.html

Kod: 
Option Explicit
Sub yanyana()
Dim d As Object, _
    s1 As Worksheet, _
    s2 As Worksheet, _
    i As Long, _
    sat As Long, _
    son As Long, _
    c, a, x
    
Application.ScreenUpdating = False
Set d = CreateObject("Scripting.Dictionary")
Set s1 = Sheets("Sayfa1")
    son = s1.Range("A" & Rows.Count).End(3).Row
    a = s1.Range("A2:H" & son).Value
        For i = LBound(a) To UBound(a)
            d(a(i, 3)) = d(a(i, 3)) & "#" & a(i, 1) & "#" & a(i, 2) & "#" & a(i, 3) & "#" & a(i, 4) _
                                    & "#" & a(i, 5) & "#" & a(i, 6) & "#" & a(i, 7) & "#" & a(i, 8)
        Next i
        
sat = 2
Set s2 = Sheets("Sayfa2")
s2.Cells.ClearContents
    For Each c In d.Keys
        x = Split(d.Item(c), "#")
        s2.Cells(sat, "A").Resize(, UBound(x) + 1) = x
        sat = sat + 1
    Next c
    
Application.ScreenUpdating = True
MsgBox "Bitti..."
End Sub
Genişletmek için tıkla ...

Sy Tasmed kusura bakmazsanız size bu tablo ile alakalı bir soru daha sorabilirmiyim.

Öncelikle ifade etmeliyim ki bu tablo çok işime yaradı elinize sağlık fakat şöyle bir sıkıntım daha var. Aynı matbu belge numarasına sahip birden çok fatura var ama bu matbu belgelerdeki ünvanlar farklı. hazırlamış olduğunuz kod da aynı faturaları yan yana diziyor fakat ben aynı matbu belge numarasına sahip müşterinin verilerini yan yana dizsin yani acaba matbu belge numarası ile müşteri adını eşleştirip ona göre yan yana dizebilirmi.
örnek verecek olursam

matbu belge numarası 155 - firma adı Kınık (yan yana gelen veriler)
matbu belge numarası 155 - firma adı Deva (yan yana gelen veriler)
matbu belge numarası 155 - firma adı Edko (yan yana gelen veriler)
gibi
Kusura bakmayın ben bu hususu ilk göndermiş olduğum ek dosyada belirtmemişim. Bende işlemi yapınca farkettim. Yukarıdaki verdiğim örnekde kodu uyguladığım zaman 155 matbu belge numarasına ait verilerin hepsini yan yana diziyor. Şimdiden çok teşekkür ederim.
 
Merhaba.
Koddaki kırmızı 3 sayılarını 4 olarak değiştirince sanırım istediğiniz oluyor.
Kod: 
 For i = LBound(a) To UBound(a)
            d(a(i, [B][COLOR="Red"]3[/COLOR][/B])) = d(a(i, [B][COLOR="red"]3[/COLOR][/B])) & "#"........
 
omer.baran' Alıntı:
Merhaba.
Koddaki kırmızı 3 sayılarını 4 olarak değiştirince sanırım istediğiniz oluyor.
Kod: 
 For i = LBound(a) To UBound(a)
            d(a(i, [B][COLOR="Red"]3[/COLOR][/B])) = d(a(i, [B][COLOR="red"]3[/COLOR][/B])) & "#"........
Genişletmek için tıkla ...

Üstadım dediğinizi yaptım fakat yan yana firma adlarına göre diziyo yani matbu belge no ile firma adını karşılaştırmıyor
 
omer.baran' Alıntı:
Merhaba, tebrikler Sayın tasmed.

Anladığım kadarıyla; C sütunu aynı olanları # karakteriyle metin olarak birleştirip, sonra da ayırma yöntemi kullanmışsınız.
Oldukça pratik bir düşünce tarzı olmuş, Scripting_Dictionary kod'u zaten benim için tamamen uzak, bambaşka bir olay.
İnşallah bir gün biz de böyle kodlar yazabiliriz.
Genişletmek için tıkla ...

Teşekkür ederim...
 
Sy Tasmed kusura bakmazsanız size bu tablo ile alakalı bir soru daha sorabilirmiyim.

Öncelikle ifade etmeliyim ki bu tablo çok işime yaradı elinize sağlık fakat şöyle bir sıkıntım daha var. Aynı matbu belge numarasına sahip birden çok fatura var ama bu matbu belgelerdeki ünvanlar farklı. hazırlamış olduğunuz kod da aynı faturaları yan yana diziyor fakat ben aynı matbu belge numarasına sahip müşterinin verilerini yan yana dizsin yani acaba matbu belge numarası ile müşteri adını eşleştirip ona göre yan yana dizebilirmi.
örnek verecek olursam

matbu belge numarası 155 - firma adı Kınık (yan yana gelen veriler)
matbu belge numarası 155 - firma adı Deva (yan yana gelen veriler)
matbu belge numarası 155 - firma adı Edko (yan yana gelen veriler)
gibi
Kusura bakmayın ben bu hususu ilk göndermiş olduğum ek dosyada belirtmemişim. Bende işlemi yapınca farkettim. Yukarıdaki verdiğim örnekde kodu uyguladığım zaman 155 matbu belge numarasına ait verilerin hepsini yan yana diziyor. Şimdiden çok teşekkür ederim.
Genişletmek için tıkla ...

Kod: 
d(a(i, 3)) = d(a(i, 3)) & "#" & a(i, 1) & "#" & a(i, 2) & "#" & a(i, 3) & "#" & a(i, 4) _
                                    & "#" & a(i, 5) & "#" & a(i, 6) & "#" & a(i, 7) & "#" & a(i, 8)

Yukarıdaki kod satırı yerine aşağıdaki kod satırını yazarak deneyiniz.
Kod: 
d(a(i, 3) & "#" & a(i, 4)) = d(a(i, 3) & "#" & a(i, 4)) & "#" & a(i, 1) & "#" & a(i, 2) & "#" & a(i, 3) & "#" & a(i, 4) _
                                    & "#" & a(i, 5) & "#" & a(i, 6) & "#" & a(i, 7) & "#" & a(i, 8)
 
şapka çıkartıyorum..

tasmed' Alıntı:
Kod: 
d(a(i, 3)) = d(a(i, 3)) & "#" & a(i, 1) & "#" & a(i, 2) & "#" & a(i, 3) & "#" & a(i, 4) _
                                    & "#" & a(i, 5) & "#" & a(i, 6) & "#" & a(i, 7) & "#" & a(i, 8)

Yukarıdaki kod satırı yerine aşağıdaki kod satırını yazarak deneyiniz.
Kod: 
d(a(i, 3) & "#" & a(i, 4)) = d(a(i, 3) & "#" & a(i, 4)) & "#" & a(i, 1) & "#" & a(i, 2) & "#" & a(i, 3) & "#" & a(i, 4) _
                                    & "#" & a(i, 5) & "#" & a(i, 6) & "#" & a(i, 7) & "#" & a(i, 8)
Genişletmek için tıkla ...

Ya inanın siz bu işin ÜSTADISINIZ çok teşekkür ederim Saygılar
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst