alt satırları yan sütuna alma

[sirkülasyon]

bütün ustalarımın ve üyelerin MİRAÇ KANDİLİNİ tebrik ederim.

Bir konuda yardımlarınıza ihtiyacım var. Excel B:B sütununda olmak üzere
B2 hücresinde madde adı
b3 hücresinde tanımı
b4 hücresinde madde adı
b5 hücresinde tanımı olmak üzere aşağıya doğru sıralanmış bir dizi açıklama var.

Bu listede 2,4,6,8 gibi çift rakam olanlar madde adı 3,5,7,9 gibi olanlarda açıklama
Makro kodu ile açıklamaları madde adlarının yanına C:C sütununa alabilecek bir kod için yardımcı olabilir misiniz?

Yalnız C:C sütununa alırken "Metni kaydır, Hücreleri birleştir, Uyacak şekilde daralt" şeklinde olursa daha makbul olur.

Yardımlarınız için teşekkür eder saygılarımı sunarım

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub geçir()
Dim STR As Long
Application.ScreenUpdating = False
For STR = 2 To Cells(Rows.Count, "B").End(xlUp).Row
If WorksheetFunction.Proper(Cells(STR, "B")) = "Madde Adı" Then
Cells(STR, "C") = Cells(STR + 1, "B")
Cells(STR + 1, "B") = ""
End If
Next
Application.ScreenUpdating = True
End Sub

 

[sirkülasyon]

ustam

Option Explicit
Sub geçir()
Dim STR As Long
Application.ScreenUpdating = False
For STR = 2 To Cells(Rows.Count, "B").End(xlUp).Row
If WorksheetFunction.Proper(Cells(STR, "B")) = "Madde Adı" Then
Cells(STR, "C") = Cells(STR + 1, "B")
Cells(STR + 1, "B") = ""
End If
Next
Application.ScreenUpdating = True
End Sub

yukarıda ki makroyu boş bir modüle yükledim. Ancak makro işlem yapmıyor.