Sub makro()
With Worksheets("Hárok1")
.Activate
.Cells(1, 1).Value2 = Worksheets("Hárok2").Cells(1, 1).Value2
End With
Application.Wait (Now() + TimeSerial(0, 0, 2))
Worksheets("Hárok2").Activate
End Subcitovat
Zaslal/a frantilopa 6.2.2018 23:03
Zdravim Vas.
Vzdy ste mi pomohli a verim ze to bude opat..
Mam makro, ktore mi po spusteni v Harku 2 kopiruje riadok do Harku 1. Skopirije ten riadok a na zaver po skopirovani sa prepne do Harku 1.
Potreboval by som aby tam pohlad zotrval v Harku 1 napr. 2 sekundy a nasledne by sa vratil do povodneho Harku 2 kde som spustil makro.
....
Sheets("Harok 1").Select
(tuto by som potreboval zotrvat cca 2 sekundy)
Sheets("Harok 2").Select
Snad to nebude zlozite
Vopred Dakujem.
F.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.