iki ayrı hücreyi aynı hücreye aktarma

[meto37]

ekte sunduğum örnekte vermiş olduğul hücrelerdeki verileri aynı hücreye veya bir yan hücreye aktarabilmemiz bir formül veya başka bir yol ile mümkünmü...

 

[Necdet]

Merhaba,

Aşağıdaki kodlar işinizi görür mü?

Sub Duzelt()
Dim i As Long
Dim s1 As Worksheet
Set s1 = Sheets("sayfa1")
s1.Select
Application.ScreenUpdating = False
For i = 5 To [B65536].End(3).Row Step 2
    Cells(i, "C") = Cells(i, "C") & " " & Cells(i + 1, "C")
    Cells(i + 1, "C") = ""
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır...."
End Sub

 

[meto37]

sağol arkadaşım tam istediğimiz gibi eline sağlık