Ahojte
Do včera som úspešne používal tu vytvorené makierko (Marjankaj) na prácu s prenosom dát - kopírovanie oblastí.
Všetko je rovnaké, natiahne mi dáta z webu do tých istých buniek ako predtým, ale prenesie ich inam..
V Exceli 2013 makro zlyhá vo vyznačenom riadku:

'VP PLÁN DENNE
Set oblast = Cells.Find("BF VP")
Range(oblast.Offset(3, 0), oblast.Offset(33, 0)).Copy
Sheets("UDAJE").Range("G10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Nedarí sa mi pridať prílohu tak hádam neskôr..
Ďakujem všetkým za pomoc.

Edit 23:20 - Už som na to prišiel.
Neviem síce prečo to Excelu 2007 nevadí a 2013 áno ale už s tým viem vybabrať.
Makro stále našlo na liste DRO_103 "nejaký text" a prekopírovalo na základe zadania oblasť na list UDAJE.
A takto sa to opakovalo viac krát.
V Exceli 2013 ale musím v makre zakaždým zapísať aby hľadalo text iba na liste DRO_103 inak prekopíruje oblať a hľadá text na liste UDAJE - pretože tam naposledy vykonalo operáciu..
takže už to mám v poriadku..
Pekný večer všetkým

'VP PLÁN DENNE
Sheets("103").Select
Set oblast = Cells.Find("BF VP")
Range(oblast.Offset(3, 0), oblast.Offset(33, 0)).Copy
Sheets("UDAJE").Range("G10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
'VP Skutočnosť DENNE
Sheets("103").Select
Set oblast = Cells.Find("BF VP")
Range(oblast.Offset(3, 2), oblast.Offset(33, 2)).Copy
Sheets("UDAJE").Range("G12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
'VP PLÁN MTD
Sheets("103").Select
Set oblast = Cells.Find("BF VP")
Range(oblast.Offset(3, 1), oblast.Offset(33, 1)).Copy
Sheets("UDAJE").Range("G11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
'VP SKUTOČNOSŤ MTD
Sheets("103").Select
Set oblast = Cells.Find("BF VP")
Range(oblast.Offset(3, 3), oblast.Offset(33, 3)).Copy
Sheets("UDAJE").Range("G13").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True