Kritere Göre Birleştirme Yapma

[konatkursad]

Merhaba herkese hayırlı günler diliyorum , yukarıdaki bilgilerin D sütunundaki O.E.M Nr kısmındaki bilgileri "-" ile birleştirip G4 hücresine koymak istiyorum,
Bunu yaparken kriterim C sütunundaki veriler olacak , şöyle ki C sütunundaki her iki veri arasına kadar bu işlemi yap örneğin birleştirmeye başlarken 022.070 den başla 022.071 de bitir , Sonra 022.071 den başla bir sonraki veri hücresine kadar birleştir gibi ,

Bunu yapmamız mümkün müdür , ivedi yardımlarınızı bekliyorum , Saygılarımla

 

[kulomer46]

Merhaba

Sitemize hoş geldiniz.

Yukardaki mesajınızdaki talebiniz mümkün görünüyor. Fakat "... yukardaki bilgilerin " derken yukarda bilgi görünmüyor.
Sonuç almak istediğiniz talep şablonunuzu bizimle paylaşırsanız daha iyi yardımcı olabiliriz.

Selamlar...

 

[konatkursad]

Merhaba

Sitemize hoş geldiniz.

Yukardaki mesajınızdaki talebiniz mümkün görünüyor. Fakat "... yukardaki bilgilerin " derken yukarda bilgi görünmüyor.
Sonuç almak istediğiniz talep şablonunuzu bizimle paylaşırsanız daha iyi yardımcı olabiliriz.

Selamlar...

Resim olarak paylaşmıştım bilgileri , ben size dosya aktarmaya çalışayım ,

https://www.dosya.tc/server23/gb3tu6/Kitap1.xlsx.html

Çok teşekkürler

 

[kulomer46]

Resim olarak paylaşmıştım bilgileri , ben size dosya aktarmaya çalışayım ,

https://www.dosya.tc/server23/gb3tu6/Kitap1.xlsx.html

Çok teşekkürler

Merhaba

İlgili bağlantıyı açmama kurum internetim izin vermiyor. Bağlantınızı inceleyemedim.

 

[çıtır]

Dosyanız.
https://dosya.co/cowm850ov8lo/KRERLİBİRLEŞTİR.rar.html

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Verileri_Birlestir()
    Dim X As Long, Son As Long, Bul As Long
    
    Range("G:G").Clear
    
    Son = Cells(Rows.Count, "D").End(3).Row
    
    For X = 2 To Son
        Bul = Cells(X, "C").End(4).Row
        If Bul = Rows.Count Then
            Cells(X, "G") = Join(Application.Transpose(Range("D" & X & ":D" & Son)), "-")
        Else
            Cells(X, "G") = Join(Application.Transpose(Range("D" & X & ":D" & Bul - 1)), "-")
        End If
        X = Bul - 1
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub