Makro - na vyhledávání a přepisování
Napsal: 12 pro 2015 22:27
Ahoj,
chtěl bych vás poprosit o pomoc. Snažím se vytvořit v excelu makro na vyhledávání a přepisování, ale jsem úplný žačátečník a nedostanu se přes první krok.
Potřeboval bych, aby makro sáhlo do "List 2" buňky A1 tu vyhledalo v "List 1" a nahradilo jí položkou z "List 2" buňkou A2, atd. až do poslední buňky, která je vyplněná na "List 2" ve sloupci A.
Bohužel jsem se dostal pouze k tomuto, a nechce se mi to kopírovat až do poslední buňky ručně, nejde to nějak urychlit?
Sub Najdianahraď()
'
' Najdianahraď Makro
'
'
Sheets("List2").Select
Range("A1").Select
Selection.Copy
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("List1").Select
Cells.Replace What:="Free", Replacement:="Zdarma", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("List2").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("List1").Select
Cells.Replace What:="Product", Replacement:="Produkt", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Děkuji mnohokrát za info
Jirka
chtěl bych vás poprosit o pomoc. Snažím se vytvořit v excelu makro na vyhledávání a přepisování, ale jsem úplný žačátečník a nedostanu se přes první krok.
Potřeboval bych, aby makro sáhlo do "List 2" buňky A1 tu vyhledalo v "List 1" a nahradilo jí položkou z "List 2" buňkou A2, atd. až do poslední buňky, která je vyplněná na "List 2" ve sloupci A.
Bohužel jsem se dostal pouze k tomuto, a nechce se mi to kopírovat až do poslední buňky ručně, nejde to nějak urychlit?
Sub Najdianahraď()
'
' Najdianahraď Makro
'
'
Sheets("List2").Select
Range("A1").Select
Selection.Copy
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("List1").Select
Cells.Replace What:="Free", Replacement:="Zdarma", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("List2").Select
Range("A2").Select
Application.CutCopyMode = False
Selection.Copy
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("List1").Select
Cells.Replace What:="Product", Replacement:="Produkt", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Děkuji mnohokrát za info
Jirka