Příspěvky uživatele
< návrat zpět
Zdravím, chci se zeptat jestli někdo schopny by nejak dokazal z webu:
https://ec.europa.eu/taxation_customs/dds2/taric/measures.jsp?Lang=cs&SimDate=20190716&Area=&MeasType=&StartPub=&EndPub=&MeasText=&GoodsText=&op=&Taric=9027101000&search_text=goods&textSearch=&LangDescr=cs&OrderNum=&Regulation=&measStartDat=&measEndDat=
Vytahnout prehledne všechny data do excelu ve formatu:PŘ:
Sloupec A číslo celní nomenklatury (9027101000 )
Sloupec B, C, celní sazba pro třetí země (01-07-2019)(0%)
Případně jen data kde bude letošní datum *2019*.
Myslíte že je to nějak možný případně prosím alespoň o radu..
Rejpal DÍKY moc zkousel jsem snad všechny kombinace uvozovek atd ale tuhle ne. Díky moc funguje.
Zdravim všechny.. snazim se zadefinovat pohyblivi RANGE ale za boha se mi nedari sestavit sintaxi. Presto ze mam všechny potrebny bunky definovany? netusi někdo?
Sub NAJIT()
'
' najit Makro
Dim MALED As Long
Dim Sradek
Dim Kradek
Dim Temp As Range
Sradek = List1.Cells.Find("Material").Offset(1, 0).Address(False, False) 'List1 E8 start RANGE (False, False)znici $ z adresy
MALED = List1.Cells.Find("Material").Column 'List1 5 sloupec
Kradek = List1.Cells(Rows.Count, MALED).End(xlUp).Address(False, False) 'List1 E11 konec RANGE
Sheets("List1").Select
'Jak nahradit E8 = Sradek, E11 = K radek, do Range níže...
Range("E8:E11").Select
'*********************************************************
Selection.Copy
Sheets("SUM").Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("D4").Select
End Sub
Tak pod FUnction unix2 (dat) dej
On Error GoTo NEXT
a nad End Function dej
NEXT:
Snad to pujdu je to tezky bez realneho prikladu v priloze :D
Na začátek makra pod Sub bych dal
On Error GoTo NEXT
Na konec nad End Sub dej
NEXT:
Zdarvím, prosím ještě bych potřeboval do souboru přidat jednu vychytávku a to takovou ze to nebude vykopirovavat jasne danou oblast ale: Na Listu SUMABC.. z bunky B2 = Material bude hledat na vsech listech bunku kde je samotne Material (pokud by na jakem koli liste byla bunka Material vicekrat tak se makro zastavi a napise ze podklad dat neni v poradku) a nasledne teprve vezme vsechny data v tomto sloupci a vlozi na list SUMABC.. Pod Material. Atd s Kategorii, Cenou, atd co bych napsal jako podminku. (Je to nejak mozne,?? díky za napady.. 
Stalker: taky funguje, dík za další příklad ke zkoumani. SUPER díky moc 
pidlla: SUPER práce díky moc jdu si to projít a pochopit. DÍKY
Zdravím,
Mam makro ktere vykopirovava tri sloupce z kazdeho listu a vklada data do jednoho SUMlistu pod sebe (zde je tedy obsah ze vsech listu). Chci se zeptat jestli jde nejak lepe napsat procedura abych nemusel pri pridani listu vzdy zasahovat do makra? viz priloha DÍKY
Stalker: jinak formular na vybrani oblasti taky super diky 
Stalker: DÍKY stačí odmazat všechny kraviny před SELECTION.COPY a funguje to skvele. super díky.
Sub Makro2()
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Princip
http://wall.cz/index.php?m=topic&id=18954#post-18954
Zdravím všechny,
potřeboval bych poradit jak v makru které pracuje se zadefinovanou oblasti Range("A1:C3").Select nahradim tuto definovanou oblast za oblast kterou oznacim zrovna mysi = bude vzdy jina. Prikald v priloze. Děkuji za rady
mepexg: díky za nápad ale potrebuju ty kriteria nejak dostat dovnitr te funkce, pri vetsi databazi dat to nemuzu klikat nekde vedle jeste to by me uzivatele zabili. DÍKY
*Jeste jsem doladil logiku jak by se funkce mela chovat. Bylo by to masakr a ulehcilo by to spousty prace. Nejednou jsem narazil ze bych funkci potreboval. Viz podrobny popis v priloze. Pokud nekdo dokaze ?
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články