Bir alt hücreye taşıma

[steppe]

A sütunundaki tarihleri makro ile bir alt satıra taşımak istiyorum .Örnekte detaylı açıkladım.Yardımlarınız için şimdiden teşekkürler.

 

[Ziynettin]

Merhaba,

Sub steppe()
son = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To son Step 3
        If Range("B" & i).Offset(1, -1) = "" Then
            Range("A" & i).Offset(1, 0) = CDate(Range("A" & i))
            Cells(i, 1).ClearContents
            Else
            Exit Sub
        End If
    Next i
End Sub

 

[suleyman242]

A sütunundaki tarihleri makro ile bir alt satıra taşımak istiyorum .Örnekte detaylı açıkladım.Yardımlarınız için şimdiden teşekkürler.

Alternatif olarak

    For i = [A65536].End(3).Row To 1 Step -3
        Cells(i + 1, "A").Value = Cells(i, "A").Value
        Cells(i, "A").Value = ""
    Next