I have a few worksheets that uses the same code for each, it really slows down the macro, Ive been going through all sorts of code from various sources but I just cant translate it to VB code that would work.
There has to be a shorter more beneficent way to condense this code. Ive been looking at arrays, but I dont know how to fit this code into it.
Please can anyone help.
Sheets("imported").Select
Columns("A:A").Select
Selection.NumberFormat = "@"
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("B:B").Select
Selection.NumberFormat = "@"
Columns("C:C").Select
Selection.NumberFormat = "General"
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("D:D").Select
Selection.NumberFormat = "General"
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("E:F").Select
Selection.NumberFormat = "dd.mm.yyyy"
Columns("G:G").Select
Selection.NumberFormat = "General"
Columns("H:H").Select
Selection.NumberFormat = "General"
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("I:I").Select
Selection.NumberFormat = "General"
Columns("J:J").Select
Selection.NumberFormat = "General"
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("K:K").Select
Selection.NumberFormat = "General"
Columns("L:N").Select
Selection.NumberFormat = "dd.mm.yyyy"
Columns("O:AR").Select
Selection.NumberFormat = "General"
Columns("AS:AS").Select
Selection.NumberFormat = "dd.mm.yyyy"
Columns("AT:AU").Select
Selection.NumberFormat = "General"
Columns("A:AU").Select
ActiveSheet.Range("A:AU").RemoveDuplicates Columns:=Array(1, 2, 3, 16), _
Header:=xlYes
Columns("AT:AT").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
There has to be a shorter more beneficent way to condense this code. Ive been looking at arrays, but I dont know how to fit this code into it.
Please can anyone help.
Sheets("imported").Select
Columns("A:A").Select
Selection.NumberFormat = "@"
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("B:B").Select
Selection.NumberFormat = "@"
Columns("C:C").Select
Selection.NumberFormat = "General"
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("D:D").Select
Selection.NumberFormat = "General"
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("E:F").Select
Selection.NumberFormat = "dd.mm.yyyy"
Columns("G:G").Select
Selection.NumberFormat = "General"
Columns("H:H").Select
Selection.NumberFormat = "General"
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("I:I").Select
Selection.NumberFormat = "General"
Columns("J:J").Select
Selection.NumberFormat = "General"
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("K:K").Select
Selection.NumberFormat = "General"
Columns("L:N").Select
Selection.NumberFormat = "dd.mm.yyyy"
Columns("O:AR").Select
Selection.NumberFormat = "General"
Columns("AS:AS").Select
Selection.NumberFormat = "dd.mm.yyyy"
Columns("AT:AU").Select
Selection.NumberFormat = "General"
Columns("A:AU").Select
ActiveSheet.Range("A:AU").RemoveDuplicates Columns:=Array(1, 2, 3, 16), _
Header:=xlYes
Columns("AT:AT").Select
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select