tekrar eden satırlar hk,

[efsane766]

KIRTASİYE
KIRTASİYE
YARDIMCI MALZEMELER
DEMİRBAŞ
DEMİRBAŞ
MUTFAK
KIRTASİYE

satırlar bu şekilde

istenen, tek satırda bu şekilde yazılabilirmi, tekrar edenleri yazmasın.

KIRTASİYE, YARDIMCI MALZEMELER, DEMİRBAŞ, MUTFAK

 

[efsane766]

üstadlar dan acil cevap bekliyorum benim için oldukça önemli,

 

[Emir Hüseyin Çoban]

. . .

Listenin A1 hücresinden başladığını varsayarak, aşağıdaki kodları deneyin.

Sub kod()
Range("B1") = ""
For i = 1 To [A65536].End(3).Row
If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, "A")) = 1 Then
Range("B1") = Range("B1") & Cells(i, "A") & ", "
End If
Next i
End Sub

. . .

 

[Murat OSMA]

İnceleyiniz.
Benzersizleri Yatay Listele

 

[efsane766]

bunlar listemde işe yaramadı, birleştir formülü ile yanyana satırda yazabiliyorum basitçe ama hepsini tekrar ederek yazmakta yinelenenleri yazmaması adına birleştir formülünde eklemeler yapabiliyormuyuz.

 

[Emir Hüseyin Çoban]

. . .

Birleştir formülü ile yapılabilir mi bilmiyorum, birleştir formülünün o kadar yetenekli olduğunu sanmıyorum.

# 3 nolu mesajımdaki verdiğim kodların çalışma sonucundaki, ekran görüntüsü ektedir. İstenileni verir durumda.

. . .