Příspěvky uživatele
< návrat zpět
=MOD(D2-A2;1)
Je to taková prasárna, ale účel to splní. Pokud by jsi nechtěl PowerQuery.
Ještě zkus tohle.
Někdo to musí dotáhnout. 
Sub Import()
Dim CESTA As String
Dim SOUBOR As String
Dim ZDROJ As String
Dim CIL As String
Dim LIST As String
CESTA = "C:\Users\Desktop\"
ZDROJ = "Zdroj.xlsm"
CIL = "CIL.xlsm"
SOUBOR = CESTA & ZDROJ
If Dir(SOUBOR) = "" Then MsgBox "Soubor " & SOUBOR & " neexistuje!", vbCritical: Exit Sub
Workbooks.Open Filename:=SOUBOR, UpdateLinks:=0
LIST = Application.InputBox("Zadejte název listu:", Type:=2)
If LIST = "False" Then Exit Sub
Workbooks(CIL).Sheets("List1").Range("B2").Resize(14, 2).Value = Workbooks(ZDROJ).Sheets(LIST).Range("B2").Resize(14, 2).Value
Workbooks(ZDROJ).Close SaveChanges:=False
End Sub
Třeba
Sub Copy()
Dim POCET As Long
Dim RADEK As Long
Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")
Application.ScreenUpdating = False
RADEK = wsDATA.Cells(Rows.Count, "B").End(xlUp).Row - 1
If RADEK > 0 Then wsDATA.Range("B2").Resize(RADEK, 1).ClearContents
POCET = WorksheetFunction.Match("nic", wsDATA.Range("A:A"), 0) - 2
wsDATA.Range("B2").Resize(POCET, 1).Value = wsDATA.Range("A2").Resize(POCET, 1).Value
wsDATA.Range("B1:B" & POCET + 1).Sort key1:=wsDATA.Range("B1"), order1:=xlAscending, Header:=xlYes
Application.ScreenUpdating = True
End Sub
Ještě úprava, před kopírováním nejprve smazat stará data a odstranění probliknutí.
Robo11 napsal/a:
Kedysi dávno som na jednom fóre videl ze to bolo robene cez rozbalovaci zoznam pri každej položke . A potom následne z rátalo bunky kde sa nachádzal text. Text do rozbalovacieho zoznamu by bral s tabuľky účel . S definovaním textom by som mal problém ze obi a bauhaus je záhrada lebo táto položka môže bytpre chatku a druha pre stavbu.
Snad jsem to pochopil správně.
Robo11 napsal/a:
Lugr super moze byt Dakujem.
Len skoda ze sa neda vytvorit este ten ucel pri kazdej polozke. Jedine ako to riesim je ze si dam automaticky sucet a vyklikam vsetky bunky kde je trebas tankovanie a vysledok dam pod text tankovanie
To by jste si musel ještě přidat další sloupec, aby bylo jasné, že OBI, Bauhaus, atd. je např. zahrada.
Já bych to taky řešil KT. Proč si to komplikovat.
husita napsal/a:
Moc děkuji, je to naprosto úžasné. Mám se ještě hodně co učit. Ještě jednou moc děkuji
J.
Není za co.
KT tam bude na pevno, jen se ti budou měnit data v tabulce. Pouze si KT nastav podle představ.
husita napsal/a:
Ahoj Lugre,
děkuji za tvůj příspěvek, jelikož v makrech trochu plavu, mohu požádat o popis funkcí makra? Předpokládám, že po sloučení jednotlivých listů do jednoho jsi KT udělal ručně
Děkuji za odpověď
J
Zjednodušil jsem ti to makro a popsal.
ještě by to šlo sjednotit do jedné tabulky a až potom KT.
Taková blbost a kolik to nadělá radosti že? 
Předělal jsem to na 30 zaměstnanců.
€Ł мσşqμΐτσ napsal/a:
Dovolil jsem si tabulku upravit.
A ano šlo by to udělat. viz odkaz
Lugrovi se tedy omluvám Příloha: 51828_tabulka-dovolenych-2022.xlsx (88kB, staženo 2x)
Není se proč omlouvat, v pohodě.
Jak píše Pavlus nejjednodušší řešení je přes pomocný sloupeček a funkci KDYŽ
Uživatelské menu
\nFormulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články