Excel- Reemplazar Datos
Enviado por wiccho • 14 de Mayo de 2013 • 394 Palabras (2 Páginas) • 379 Visitas
Sub Replace()
'
' Replace Macro
'
'
Cells.Replace What:="Mexico", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="COMPANY", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.CutCopyMode = False
Cells.Replace What:="Inventory CODE------", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:= _
"DATE-- WAREH. BIN TT CT BATCH NUMBER BATCH ID---- BT ORDER----- REF.-I AMOUNT QTY PRICE/EA QTY AMOUNT PRICE/EA" _
, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:= _
"=============================================================================================================================================================" _
, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _
False, SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:="Inventory VALUE:", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="------------- ------------ ------------", Replacement _
:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Cells.Replace What:= _
"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
...