1 2 3 B de yazıyorsa bunları düzenleyip C ye yazıyor
Sub duyuru()
Application.ScreenUpdating = False
Dim i As Long
Dim outputRow As Long
outputRow = 1
For i = 1 To 1000 Step 4
If Cells(i, 2).Value = "" Then Exit For
Cells(outputRow, 3).Value = Cells(i, 2).Value & Cells(i + 1, 2).Value & Cells(i + 2, 2).Value & Cells(i + 3, 2).Value
outputRow = outputRow + 1
Next i
Application.ScreenUpdating = True
MsgBox "Teşekkürler Pislick0"
End Sub
------------------------------
Velev ki araya " -" de koymak istedin o zaman aşağıdakini kullan
Application.ScreenUpdating = False
Dim i As Long
Dim outputRow As Long
outputRow = 1
For i = 1 To 1000 Step 4
If Cells(i, 2).Value = "" Then Exit For
Cells(outputRow, 3).Value = Cells(i, 2).Value & "-" & Cells(i + 1, 2).Value & "-" & Cells(i + 2, 2).Value & "-" & Cells(i + 3, 2).Value
outputRow = outputRow + 1
Next i
Application.ScreenUpdating = True
MsgBox "Teşekkürler Pislick0"
End Sub
bu nedir nasıl çalışır dersen de şu linkten bakabilirsin :
www.youtube.com