Snasui Excel Forum

Code: Select all

Sub ad()
    Dim x As Range, lst As Long
    lst = Range("c" & Rows.Count).End(xlUp).Row
    Set x = Range("c2").End(xlDown)
    [c2].Select
   Range(Selection, Selection.End(xlDown)).Select
    
    Do While x.Row < lst
        Set x = x.End(xlDown)
        Range("c2", x).Select
    Loop
End Sub

Code: Select all

Sub ad()
    Dim x As Range, lst As Long
    lst = Range("c" & Rows.Count).End(xlUp).Row
    Set x = Range("c2").End(xlDown)
    Do While x.Row < lst
        Set x = x.End(xlDown)
        Range("c2", x).Select
    Loop
End Sub

Code: Select all

[c2].Select
Range(Selection, Selection.End(xlDown)).Select 'cannot go down cross blank cell to next usedrange
Cells(Rows.Count, 4).End(xlUp).Offset(, -1).Resize(, 2).Copy Cells(Rows.Count, 3).End(xlUp).Offset(4)
Cells(Rows.Count, 4).End(xlUp).Offset(, -1).Resize(, 2).Copy Cells(Rows.Count, 3).End(xlUp).Offset(4)

Code: Select all

Sub ad()
[c2].Select
Range(Selection, Selection.End(xlDown)).Insert Shift:=xlToRight 'cannot go down cross blank cell to next usedrange
Cells(Rows.Count, 4).End(xlUp).Copy Cells(Rows.Count, 4).End(xlUp).Offset(4)
Cells(Rows.Count, 4).End(xlUp).Copy Cells(Rows.Count, 4).End(xlUp).Offset(4)
End Sub

Code: Select all

Sub ad()
For b = 1 To Sheets.Count
Sheets(b).Select
Sheets(b).Name = b
If [d1] = "order date" Then Exit Sub
[d:d].Insert
[d1].Value = "order date"
[d2].Formula = "=DATE(C2,B2,A2)" 'not calcucate
Range("D2", "D" & Cells(Rows.Count, 5).End(xlUp).Row).FillDown
[d2].Columns.AutoFit
[C2].Select
Range(Selection, Selection.End(xlDown)).Select  'cannot go down cross blank cell to next usedrange
Cells(Rows.Count, 3).End(xlUp).Copy Cells(Rows.Count, 3).End(xlUp).Offset(4)
Cells(Rows.Count, 3).End(xlUp).Copy Cells(Rows.Count, 3).End(xlUp).Offset(7)
Range("C2", "C" & Cells(Rows.Count, 4).End(xlUp).Row).Insert Shift:=xlToRight
Next b
End Sub
Sub del()
For b = 1 To Sheets.Count
Sheets(b).Select
Sheets(b).Name = b
If [d1] = "order date" Then [d:d].Delete
Next b
End Sub

Code: Select all

Sub ad()
For b = 1 To Sheets.Count
Sheets(b).Select
'Sheets(b).Name = b
[c2].Select
Range(Selection, Selection.End(xlDown)).Select  'cannot go down cross blank cell to next usedrange
Cells(Rows.Count, 3).End(xlUp).Copy Cells(Rows.Count, 3).End(xlUp).Offset(4)
Cells(Rows.Count, 3).End(xlUp).Copy Cells(Rows.Count, 3).End(xlUp).Offset(7)
Selection.Offset(0, 1).Select
Selection.FillDown
Next b
End Sub

Code: Select all

Sub ad()

For b = 1 To Sheets.Count
Sheets(b).Select
Sheets(b).Name = b


If [d1] = "order date" Then Exit Sub
[d:d].Insert
[d1].Value = "order date"
[d2].Formula = "DATE(C2,B2,A2)"  'not calcucate
[d2].Columns.AutoFit

[c2].Select
Range(Selection, Selection.End(xlDown)).Select  'cannot go down cross blank cell to next usedrange



Selection.Offset(0, 1).Select
Selection.FillDown
Next b

End Sub

Code: Select all

Sub del()


For b = 1 To Sheets.Count
Sheets(b).Select
Sheets(b).Name = b
If [d1] = "order date" Then [d:d].Delete

Next b

End Sub