Makro ile hücreleri birleştirmek

[mersilen]

Merhabalar
Makro ile hücreleri a7 ye benzer şekilde birleştirebilir miyiz?
Birleştirmede sütunlar arasına değer varsa "=" sonra satır artarken "&" konacak
Hatalı kod

Sub birleştiir()
a = ""
For x = 10 To 14
For i = 1 To 2
 Application.Wait Now + TimeValue("00:00:01")
If Cells(x, i) = "" Then GoTo atla:
a = a & "=" & Cells(x, i)
Cells(9, 1) = a
 Application.Wait Now + TimeValue("00:00:01")
Next i

a = a & "&"
Cells(9, 1) = a
 Application.Wait Now + TimeValue("00:00:01")

atla:
Next x
End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Birleştiir()
 
    Dim i As Long, smg As String, smg1 As String
 
    Range("A9").ClearContents
 
    For i = 10 To Cells(Rows.Count, "A").End(xlUp).Row
        smg = "="
        If Cells(i, "B") = "" Then: smg = ""
        deg = Cells(i, "A") & smg & Cells(i, "B")
 
        smg1 = "&"
        If Range("A9") = "" Then: smg1 = ""
        Range("A9") = Range("A9") & smg1 & deg
    Next i
 
End Sub

.

 

[mersilen]

Ömer bey teşekkürler