Eğer hücre boşsa bir sonraki dolu hücredeki veriyi alsın

[maxcilopez]

Merhaba arkadaşlar excelde bir formül yapmaya çalışıyorum ama bir türlü yapamadım.
yapmak istediğim

K10:5 K11:5
K11:5 K12:5
K12:5 K16:5
K16:5 K17:5
K17:5 K18:5
K18:5 K21:5
K21:5 K22:5
K22:5 K23:5
K23:5 X1:1

bu şekilde verileri vermesidir.
ben =BİRLEŞTİR($A1;":";B1;" ";$A2;":";B2) bu formul ile
K10:5 K11:5
K11:5 K12:5
K12:5 K13:
K13: K14:
K14: K15:
K15: K16:5
K16:5 K17:5
K17:5 K18:5
K18:5 K19:
K19: K20:
K20: K21:5
K21:5 K22:5
K22:5 K23:5
K23:5 :
: :
: :
: X1:1
bu şekilde alabiliyorum. Ama benim isteğim eğer B hücresi boş ile sonraki dolu hücreden devam etmesidir. Yardımlarınız için şimdiden teşekürler

 

[uzmanamele]

Merhaba

İstediğiniz gibi sonuçları G sütununa yazacaktır.

Sub BirlestirYaz()
x = 1
For i = 1 To Range("a65536").End(3).Row
For j = i + 1 To Range("a65536").End(3).Row
If Cells(i, 2) <> "" Then
If Cells(j, 2) <> "" Then
Cells(x, "g") = Cells(i, 1).Text & ":" & Cells(i, 2).Text & " " & Cells(j, 1).Text & ":" & Cells(j, 2).Text
x = x + 1
Exit For
End If
End If
Next
Next
MsgBox "Bitti..."
End Sub

 

[maxcilopez]

ilginiz için teşekürler ama benim bu işleme normal formuller ile yapmam gerekiyor