Příspěvky uživatele
< návrat zpět
Luxusni, ale pokud to bylo na me tak nejsem manager :-)
Elninoslov mohl by jsi i ucit za prachy tady to..
Kdyz dáš ctrl+c tak klikni na buňku, kterou chceš a v levo nahoře je vložit rozroluj to a tam je vložit hodnoty
Dekuji mockrat,
To by me nebapadlo, jelikoz to ani nechapu jak jsi to udelal..
Mohl by jsi mi to trochu vysvetlit?
Dik
Zdravím,
potřeboval bych vyřešit takový problém...
Mám v listu STOPS tabulku ( zdroj pro vyhledávání )
pak tam je list DISORDER_A
tam je uveden ve sloupci A Lis (vyhledávací parametr) potřeboval bych:
Lis 700136 ( v listu STOPS ozn. žlutě )
aby to vyhledalo, když ve sloupci K+M něco najde ozn. červeně přepsalo do buňky v DISORDER_A, ( označeně červeně )
a tak samo převedlo i ten čas ( označené zeleně ) .
Př.
v listu DISORDER_A-
v řádku kde je 700136 ve sloupci (E - Porucha 1) - napsalo:
Přestavba forem - oprava posma a ve sloupci (F čas) napsalo:30 Sloupec (H - Porucha 2) napsalo: Sklad supportu a sloupci (F čas) napsalo: 3
a těch poruch tam může být i 20
Děkuji moc za pomoc
A nevíte někdo jestli jde vyhledat posledni stazeny soubor?
elninoslov napsal/a:
Maticový vzorec:
=SUM((LEN(A1:A10)-LEN(SUBSTITUTE(LOWER(A1:A10);LOWER(G1);"")))/LEN(G1))
=SUMA((DÉLKA(A1:A10)-DÉLKA(DOSADIT(MALÁ(A1:A10);MALÁ(G1);"")))/DÉLKA(G1))
V G1 je hľadaný text.
Děkuji moc elninoslov jsi luxusní mooooc děkuji
Zdravím, chci se zeptat, jestli jde udělat nějak jako je např:
=COUNTIF(A1:A10;"*Auto*")
ale, když se nachází v buňce A2 např. - (Auto má kola a automatickou převodovku)
Aby to sečetlo všechny slova auto = tedy výsledek by byl 2
Díky
EDIT: nyní to píše 1
lugr napsal/a:
A nestačilo by to jen takhle jednoduše?
Sub Add()
Dim WS As Worksheet
Dim Nazev As String
Nazev = Format(Date, "dd.mm.yyyy")
On Error Resume Next
Set WS = Worksheets(Nazev)
On Error GoTo 0
If Not WS Is Nothing Then MsgBox "Nelze přidat, jelikož se aktuální den už v sešite nachází!", vbExclamation: Exit Sub
Sheets("VZOR").Visible = True
Sheets("VZOR").Copy After:=ActiveSheet
ActiveSheet.Name = Nazev
ActiveWindow.Zoom = 100
ActiveSheet.Range("A1").Select
Sheets("VZOR").Visible = False
End SubPříloha: 47622_add-sheets.zip (19kB, staženo 0x)
jojo to máš pravdu = v jednoduchosti je síla
děkuji
Fantasyk napsal/a:
tak to elninoslov nefungovalo, ale upravil jsem trochu to tvojeSub add()
Dim WS As Worksheet, Nazev As String
Nazev = Format(Now, "dd.mm.yyyy")
On Error Resume Next
Set WS = Worksheets(Nazev)
On Error GoTo 0
If Not WS Is Nothing Then MsgBox "Nelze pridat, jelikož se aktuální den už v sešite nachází!", vbExclamation: Exit Sub
Dim copr As String
copr = ActiveSheet.Name
Sheets.add After:=Worksheets(Sheets.Count):
Range("A1").Value = Format(Now, "dd.mm.yyyy")
Range("A1").Select
Selection.Value = WorksheetFunction.Text(Selection, "dd.mm.yyyy")
bunka = Range("A1").Value
ActiveSheet.Name = bunka
ActiveWindow.SelectedSheets.Visible = True
Worksheets("VZOR").Select
Cells.Select
Selection.Copy
ActiveWindow.SelectedSheets.Visible = False
Sheets(bunka).Activate
Cells.Select
ActiveSheet.Paste
ActiveWindow.Zoom = 55
End Sub
Omyl:
Sheets("VZOR").Visible = True
Misto
ActiveWindow.SelectedSheets.Visible = True
Ale dekuji mockrat..
Ted jsem se vrhl na ještě složitější makro tak jsem zvedav
tak to elninoslov nefungovalo, ale upravil jsem trochu to tvojeSub add()
Dim WS As Worksheet, Nazev As String
Nazev = Format(Now, "dd.mm.yyyy")
On Error Resume Next
Set WS = Worksheets(Nazev)
On Error GoTo 0
If Not WS Is Nothing Then MsgBox "Nelze pridat, jelikož se aktuální den už v sešite nachází!", vbExclamation: Exit Sub
Dim copr As String
copr = ActiveSheet.Name
Sheets.add After:=Worksheets(Sheets.Count):
Range("A1").Value = Format(Now, "dd.mm.yyyy")
Range("A1").Select
Selection.Value = WorksheetFunction.Text(Selection, "dd.mm.yyyy")
bunka = Range("A1").Value
ActiveSheet.Name = bunka
ActiveWindow.SelectedSheets.Visible = True
Worksheets("VZOR").Select
Cells.Select
Selection.Copy
ActiveWindow.SelectedSheets.Visible = False
Sheets(bunka).Activate
Cells.Select
ActiveSheet.Paste
ActiveWindow.Zoom = 55
End Sub
Ahojte,
mám takoví problém přidám list přejmenuji ho podle aktuálního data, ale nastane problém, když někdo v jeden den klikne 2x ( napíše to chybu, jelikož se název listu už v sešitu nachází 
)
Sub add()
Sheets("VZOR").Visible = True
Dim copr As String
copr = ActiveSheet.Name
Sheets.add After:=Worksheets(Sheets.Count):
Range("A1").Value = Format(Now, "dd.mm.yyyy")
Range("A1").Select
Selection.Value = WorksheetFunction.Text(Selection, "dd.mm.yyyy")
bunka = Range("A1").Value
ActiveSheet.Name = bunka
Worksheets("VZOR").Select
Cells.Select
Selection.Copy
ActiveWindow.SelectedSheets.Visible = False
Sheets(bunka).Activate
Cells.Select
ActiveSheet.Paste
ActiveWindow.Zoom = 55
End Sub
vím, že to bude nějaké if a else, ale nějak mi to do toho nejde zakomponovat 
Jen, aby to napsalo :
MsgBox "Nelze přidat, jelikož se den už v sešitě nachází", vbExclamation
Díky moc za radu
Nevíte někdo?
Stále se nějak trápím a stále mi to nějak nejde..
Pro připomenutí..
Potřebuji, aby to v listu Program
Vypsalo z archívu posledních 10 řádků z listu Archív ( podle figury ) momentálně tam je předepsané 859.
Takže to co Vám najede tak akurát opačně a posledních 10
Děkuji moc za pomoc
Mati napsal/a:
Dobrý den,
Mě to nefunguje.
Můžete mi prosím poslat přílohu.
Děkuji
viz příloha
EDIT:
teď jsem si přečetl, že budeš chtít asi něco jiného..
pošli přílohu
elninoslov napsal/a:
@Jiří497: preklep - bodka
@Fantasyk: A čo ak nenájde?
Sub pokus()
Dim Compld As Range
Set Compld = Range("C:N").Find(What:=Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
If Compld Is Nothing Then
Range("B1").ClearContents
MsgBox "Nenalezeno !", vbExclamation
Exit Sub
End If
Range("B1").Value = Cells(Compld.Row, 3).Value
'...
End Sub
Dekuji, jojo kdyz nenajde jsem chtel jeste dopsat, akurat jsem furt resil, aby to naslo
, ale dekuji
Uživatelské menu
\nMenu
Formulář 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