Satırları Birleştirmek.

[kaydoldum]

Merhaba ekte bulunan tabloda ayrı ayrı birden çok tekrarlanmış verileri no'larını baz alarak nasıl birleştiririm. Olması gerekeni tabloda belirttim. Böyle 1000 den fazla kayıt var bu örnek.
Çok sağolun.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyebilirsiniz.

Sub Duzenle()
Dim st As Worksheet
Dim lSatir As Long, lSonsatir As Long
Dim iKolon As Integer

lSatir = [A65536].End(3).Row
lSonsatir = lSatir
Set st = Sheets("Ticari")
st.Select
Application.ScreenUpdating = False
Range("A2:M" & lSonsatir).Sort Key1:=[A2]

For lSatir = lSonsatir To 3 Step -1
    If Cells(lSatir, "A") = Cells(lSatir - 1, "A") Then
        For iKolon = 2 To 13
            If Cells(lSatir, iKolon) <> "" Then
                Cells(lSatir - 1, iKolon) = Cells(lSatir, iKolon)
            End If
        Next iKolon
        Rows(lSatir).Delete
    End If
Next lSatir
Application.ScreenUpdating = True
MsgBox "Düzenleme Tamamdır", vbOKOnly, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[kaydoldum]

Necdet Bey çok teşekkürler

İnanın o kadar çok işime yaradı ki. Hiç sorunsuz çalıştı. Ayrıca hızlı bir şekilde yardımcı olduğunuz için de minnettarım. Ben ise ancak cevap yazabildim kusura bakmayın iş güç derken bu saati buldu. Emeğinize teşekkür eder ilginizin size kat kat artarak geri dönmesini dilerim.

 

[Necdet]

Merhaba,

İşinizi kolaylaştığına sevindim, güle güle kullanınız.

 

[Binbasi1]

Bu makroyu toplama yaptırmak

mrb bu makroyu ekli dosyamdaki b c d e f g h stunlarını toplama yapmasını nasıl yapabilirim