makro - vyhledávání hodnoty
Napsal: 23 dub 2012 12:26
Zdravím,
potřebovala bych poradit s makrem, které by ze souboru "vzor" vzalo hodnotu z buňky "E30" a vyhledalo ji v souboru "vyúčtování" sheet "list 2". Poté zkopírovalo buňku pod nalezenou hodnotou a vložilo ji do souboru "vzor" buňka "A35".
*hodnota z buňky "E30" v souboru "vzor" se pokaždé mění.
V prohledávané databáze jsou jsou tabulky, přičemž každá tabulka obsahuje vždy jednu hledanou hodnotu.
zatím jsem přišla na tohle, ale nevím jak do hledané hodnoty dosadit údaj z buňky a ne číslo napevno dané...
Sub Makro5()
'
' Makro5 Makro
'
'
Range("E30").Select
Selection.Copy
Range("A35").Select
Windows("vyúčtování.xls").Activate
Sheets("list 2").Select
Cells.Find(What:="A8063B", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.End(xlDown).Select
Application.CutCopyMode = False
Selection.Copy
Windows("vzor.xls").Activate
ActiveSheet.Paste
End Sub
neporadil byste mi někdo prosím?
potřebovala bych poradit s makrem, které by ze souboru "vzor" vzalo hodnotu z buňky "E30" a vyhledalo ji v souboru "vyúčtování" sheet "list 2". Poté zkopírovalo buňku pod nalezenou hodnotou a vložilo ji do souboru "vzor" buňka "A35".
*hodnota z buňky "E30" v souboru "vzor" se pokaždé mění.
V prohledávané databáze jsou jsou tabulky, přičemž každá tabulka obsahuje vždy jednu hledanou hodnotu.
zatím jsem přišla na tohle, ale nevím jak do hledané hodnoty dosadit údaj z buňky a ne číslo napevno dané...
Sub Makro5()
'
' Makro5 Makro
'
'
Range("E30").Select
Selection.Copy
Range("A35").Select
Windows("vyúčtování.xls").Activate
Sheets("list 2").Select
Cells.Find(What:="A8063B", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.End(xlDown).Select
Application.CutCopyMode = False
Selection.Copy
Windows("vzor.xls").Activate
ActiveSheet.Paste
End Sub
neporadil byste mi někdo prosím?