Hücreleri koşullu birleştirme

[davutatar]

Merhaba;

Ekli dosyada B sütununda bulunan değerlerde birleştir komutu ile hücreleri birleştirmek istiyorum. Ancak verinin çok olmasından dolayı tek tek hücreleri yazmak zaman alacağı için bunu formül ile yapmak mümkün mü?

Birleştirmek istenilen hücreler B sütununda bulunan koyu olarak yazılmış hücre altındaki hücreler ile birleştirilecek taki bir sonra ki koyu yazılmış hücre gelene kadar.

Örnek olarak C sütununa komutu uyguladım ancak bu işlemi 2000 e yakın hücreye nasıl uygulayabilirim.

Şimdiden çok teşekkür ederim.

 

[YUSUF44]

Formülle nasıl yapılır bilmiyorum. Aşağıdaki kodları bir modüle kopyalayıp çalıştırırsanız istediğiniz şekilde listeyi oluşturur:

Sub orman()
son = Cells(Rows.Count, "B").End(3).Row
For i = 1 To son
    If Cells(i, "B").Font.Bold = True Then
        kurum = Cells(i, "B")
    Else
        Cells(i, "C") = kurum & Cells(i, "B")
    End If
Next
End Sub

 

[davutatar]

Çok teşekkür ederim denedim ve tam istediğim gibi çalışıyor. Ancak iki hücre değeri arasına birde boşluk nasıl koyarız. Çünkü birleştirince iki değer arasında hiç boşluk olmuyor.

 

[YUSUF44]

Pardon

Sub orman()
son = Cells(Rows.Count, "B").End(3).Row
For i = 1 To son
    If Cells(i, "B").Font.Bold = True Then
        kurum = Cells(i, "B")
    Else
        Cells(i, "C") = kurum &[COLOR="Red"] " " &[/COLOR] Cells(i, "B")
    End If
Next
End Sub

 

[davutatar]

Çok ama çok teşekkür ederim. Tam istediğim gibi oldu.