Cok teşekkürler sayın userx kodu biraz uğraşıp ihtiyacım gore degistirebildim, epey bi uğraştım ama, lazım eden arkadaşlar kullansın , boşlukları yok sayiyor, for sayılarını değiştirerek uyarlayabilirler
Sub Düğme1_Tıkla()
Dim a As String
For i = 1 To 20
a = "."
For j = 1 To 4
If Cells(i, j).Value = "" Then
GoTo bura
Else
If j = 1 Then
Cells(i, 7).Value = Cells(i, j).Text
Else
Cells(i, 7).Value = Cells(i, 7).Value & a & Cells(i, j).Text
End If
End If
bura:
Next j
Next i
End Sub
Son Düzenleme: 22/03/2022, 03:37, Düzenleyen: tarkanaykın.