makro - vyhledávání hodnoty

[Domisek]

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?

[Reklama]

[cmuch]

Vítej na PC-Help

Co třeba takto

Kód: Vybrat vše

Sub Makro5()

Dim hledej As Variant

hledej = Range("E30")

Range("A35").Select
Windows("vyúčtování.xls").Activate
Sheets("list 2").Select
Cells.Find(hledej, 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

[Domisek]

To je přesně to co jsem potřebovala :)

Moc děkuju, hodně mi to pomůže...