Úprava Makra
Napsal: 31 kvě 2017 13:55
Prosím o radu na úpravu makra.
Mám takovýto skript.
po zadání názvu firmy do pole C2 mi to vypíše info o dané firmě do dalších buňěk.
Potřeboval bych, aby makro vždy ověřilo název firmy v poli C5, doplnilo IČO do pole D5 a poskočilo o řádek níže kde uělá to samé s C6 a doplní do D6...... až do řádku 500...
Děkuji za radu
Mám takovýto skript.
Kód: Vybrat vše
Sub ares()
Application.ScreenUpdating = False 'potlačí obnovování obrazovky
Application.DisplayAlerts = False 'potlačí varovné hlášky
'vloží nový list na konec se jménem ares
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "ares"
Sheets("ares").Activate 'přesun na tento nový list
'XML dotaz do ARESU s tím, že ičo máme na první listu v buňce C2 a importovná data chceme vložit do buňky A1
ActiveWorkbook.XmlImport URL:="http://wwwinfo.mfcr.cz/cgi-bin/ares/darv_std.cgi?obchodni_firma=" & Sheets(1).Range("C2").Value, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")
Sheets(1).Activate 'přesun zpět na první list
'přenesení údajů z pomocného listu do kolonek formuláře
Sheets(1).Range("C4") = Sheets("ares").Range("AK3") 'přenesení iča firmy
Sheets(1).Range("C6") = Sheets("ares").Range("DA3") 'přenesení ulice
Sheets(1).Range("C8") = Sheets("ares").Range("CW3") 'přenesení města
Sheets(1).Range("C10") = Sheets("ares").Range("DF3") 'přenesení PSč
Sheets("ares").Delete 'smazání pomocného listu
Application.ScreenUpdating = True 'zapne obnovování obrazovky
Application.DisplayAlerts = FaTruelse 'obnoví varovné hlášky
End Subpo zadání názvu firmy do pole C2 mi to vypíše info o dané firmě do dalších buňěk.
Potřeboval bych, aby makro vždy ověřilo název firmy v poli C5, doplnilo IČO do pole D5 a poskočilo o řádek níže kde uělá to samé s C6 a doplní do D6...... až do řádku 500...
Děkuji za radu