şartlı birleştir

[oydemir]

İyi günler yapmak istediğim b kolondaki değerler aynı ise e kolonundaki değerleri birleştirip h kolonunda yazmasını işitiyorum bir makroyla yapıla bilirse daha iyi olur teşekkürler

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[oydemir]

Elinize sağlık benim istediğim b kolonunda ne kadar çift varsa karşılarındaki hücrelerin hepsini bir hücrede birleştirmesini istiyorum.

 

[Necdet]

Merhaba,
Neden tek seferde ve açıklayıcı olsaydınız.
Deneyiniz.

Sub Duzenle()

Dim i   As Long, _
    j   As Long, _
    lr  As Long

Application.ScreenUpdating = False
lr = Cells(Rows.Count, "A").End(3).Row + 1

Range("H2:H" & lr).Clear

j = 2
i = 2
Do
    If Cells(j, "B") = Cells(i, "B") Then
        Cells(j, "H") = Trim(Cells(j, "H") & " " & Cells(i, "E"))
    Else
        Cells(i, "H") = Cells(i, "E")
        j = i
    End If
    i = i + 1
Loop Until i > lr

Range("H1:H" & lr).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"

Application.ScreenUpdating = True

End Sub

 

[oydemir]

elinis sağlık teşekkürler ilk hücreye dogru yazıyor ikincisine =#BAŞV! yapıyor benim için önemli değil bu şekilde çok fazla işimi görecek.
teşekkürler

 

[Necdet]

Örnek dosyanıza göre yazdım kodları, hatasız çalışıyor.

 

[oydemir]

teşekkür ederim evet doğru