Macro düzenleme

[mhrcvk]

Sub Birlestir()
 
    Dim d As Object, i As Long, s, deg, S1 As Worksheet
 
    Set S1 = Sheets("1")
    Set d = CreateObject("Scripting.Dictionary")
    
    Application.ScreenUpdating = False
    Sheets("2").Select

    For i = 2 To S1.Cells(Rows.Count, "B").End(xlUp).Row
        deg = S1.Cells(i, "B")
        If Not d.exists(deg) Then
            s = S1.Cells(i, "C")
            d.Add deg, s
        Else
            s = d.Item(deg)
            s = s & "--" & S1.Cells(i, "C")
            d.Item(deg) = s
        End If
    Next i
    
    Range("A2:C" & Rows.Count).ClearContents
    Range("A2") = 1
    Range("A2:A" & d.Count + 1).DataSeries Rowcol:=xlColumns, _
        Type:=xlLinear, Date:=xlDay, Step:=1
    Range("B2").Resize(d.Count, 2) = _
        Application.Transpose(Array(d.keys, d.items))
        
    Application.ScreenUpdating = True

End Sub

İlgili makroyu çalıştırdığımda Run time error '13' type mismatch hatası alıyorum yardımcı olabilir misiniz ?

 

[systran]

1 ve 2 isimli sayfalar mevcut mu?
projeye Microsoft Scripting Runtime kütüphanesini eklediniz mi?

 

[askm]

Örnek dosyanızı ekleyebilir misiniz. Ben denedim. Bir sıkıntı çıkmadı. Makro B sütununda aynı değere sahip hücreleri C sütunundaki değerlerini araya -- ekleyerek birleştiriyor.

 

[mhrcvk]

1 ve 2 isimli sayfalar mevcut mu?
projeye Microsoft Scripting Runtime kütüphanesini eklediniz mi?

küçük bir dosyada çalıştı ama yoğun veri üzerinde çalışmadı dosya aşağıdadır. http://www.dosyaupload.com/8R63

 

[mhrcvk]

Örnek dosyanızı ekleyebilir misiniz. Ben denedim. Bir sıkıntı çıkmadı. Makro B sütununda aynı değere sahip hücreleri C sütunundaki değerlerini araya -- ekleyerek birleştiriyor.

askm bey bir üstteki yanıta dosyayı ekledim bir satırda bilgi kısımlarını birleştirmek bir satırda da gsm numaralarını birleştirmek amacım.

 

[askm]

Makronuz dediğiniz gibi az veride çalışıyor. Yalnız çok veride çalışmıyor. Bunun sebebi de sanırım hücreye girilecek değer sayısından fazla olması.

 

[mhrcvk]

Makronuz dediğiniz gibi az veride çalışıyor. Yalnız çok veride çalışmıyor. Bunun sebebi de sanırım hücreye girilecek değer sayısından fazla olması.

Aynen sorunu çözemedim malesef.

 

[askm]

Office 2016 da bir hücre maksimum 32767 karakter alıyor. Sizin kodlar çalışınca 56847 karakter oluyor. Başka bir çözüm üretmeniz gerek bence.

 

[mhrcvk]

Haklısını bunu gözardı ettim en azından telefon numaraların yan sekmelere atıyor olmasıda çözüm olabilirdi.