Snasui Excel Forum

Code: Select all

Sub data_Split()
  Dim wb As Workbook
  Dim ThisSheet As Worksheet

  Dim WorkbookCounter As Integer


  Application.ScreenUpdating = False

  'Initialize data
  Set ThisSheet = ThisWorkbook.ActiveSheet
  WorkbookCounter = 1

'number will standstill if not move to other column
    If IsNumeric(wb.Sheets(1).Range("J3").Offset(RangeCounter, 0).Value) = True Then
 
    'do nothing
 
    Else
 
    Selection.Cut
    Range("K3").Offset(RangeCounter, 0).Select
    ActiveSheet.Paste
 
    End If
    
    RangeCounter = RangeCounter + 1

    'Save, and close it
    wb.SaveAs ThisWorkbook.Path & Filename & Format(Now, "DD-MM-YYYY")
    wb.Close
    
  Application.ScreenUpdating = True
  Set wb = Nothing
End Sub

Code: Select all

'Other code...
For Each r In Range("j3:j100")
    If IsNumeric(r.Value) = False Then
    r.Cut
    r.Offset(, 1).Select
    ActiveSheet.Paste
End If
Next r
'Other code...