Příspěvky uživatele
< návrat zpět
elninoslov napsal/a:
A čo ak tam bude figura 3x alebo viac? Ako porovnám dátumy? 1-2, 1-3, 2-3, max-min?
Když bude 3x nebo vícekrát tak stále napíše jenom jednou do sloupce G
Porovnat datumy, když najde shodu s figurou u dvou lisů a je rodíl mezi datumy víc než 7 dní tak do sloupce G nic nenapíše, pokud bude 6dní tak napíše figuru
Zdravím,
Potřeboval bych, aby to v tabulce vyhledalo figuru, která se už v tabulce nachází (oranžové pozadí), ale za podmínek: musí se jednat o jiný lis a rozdíl v datumu musí být menší než 7 dní a napsalo do sloupce G
Díky moc za jakoukoliv radu
Zdravím,
nestalo se Vám náhodou, když se chcete spustit:
Application.FileDialog(msoFileDialogFilePicker)
tak se vám zasekne celý excel? ( viz obr. )
Ale když ho restartnu tak normálně jede až po nějaké době když kliknu na tlačítko tak se mi to zasekne.
(víc než rok to jelo bez problémů)
Díky za jakoukoliv radu
Začátek i konec, aby to viděla čtečka musí být označený hvězdičkou
Např.
*vysledek*
a dát do formátu 3 of 9 Barcode
Zdravím,
potřeboval bych pomoct se zaokrouhlením času v tlačítkách.
Např. Nyní je 12:21
a do tlačítka 1 potřebuji napsat -1 hodinu a tu zaokrouhlit dolů na 11:00
Tlačítko 2 : 11:30
Tlačítko 3 : 12:00
Tlačítko 4 : 12:30
prozatím tam přenáším a odečítam časy ale bez zaokrouhlení 
Private Sub UserForm_Initialize()
Dim cas0 As String, cas1 As String, cas2 As String, cas3 As String, cas4 As String
cas0 = Now() - 1 - TimeSerial(0, 30, 0)
cas0 = Format(cas0, "hh:mm")
cas1 = Now() - TimeSerial(1, 0, 0)
cas1 = Format(cas1, "hh:mm")
cas2 = Format(Now, "hh:mm")
cas3 = Now() + TimeSerial(0, 30, 0)
cas3 = Format(cas3, "hh:mm")
Label1.Caption = "Aktuální čas: " & cas2
CommandButton1.Caption = cas0
CommandButton2.Caption = cas1
CommandButton3.Caption = cas2
CommandButton4.Caption = cas3
End Sub
elninoslov napsal/a:
Prílohu som nevidel, skúsim od boku z mobilu bez skúšky:
TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
Děkuji taky bych chtěl takový mobil
Zdravím,
prosím mohli by jste mi poradit jak smazat poslední písmeno z textboxu (tzv udělat backspace tlačítko)
Děkuji
https://office.lasakovi.com/excel/data/porovnat-dve-tabulky-rozsireny-filtr-excel-2010/
Jedna možnost bez VBA
Dotaz: ja se třeba setkávám po čase, že se mi vymaže jeden vzorec i když je zamknutý heslo mám k němu jen já a používají ho 3 lidé, kteří nemají ponětí jak vůbec odemknout list natož smazat a pak zamknout. ( Už jsem si sice zvykl a naučil se ten vzorec nazpaměť i buňky, ale pořád mě to trochu štve ) a nechápu jak je to možné.
Je to sice velmi velmi zdlouhavé...ale je možné všechny vzorce napsat do makra a když naleznete nějakou anomalii, aby jste to nemusel dohledávat, tak potom stačí jen spustit makro a přepíše všechny vzorce ve všech listech, ale pokud jich máte hodně, tak to nebude asi vhodné (jen takový "blbý" nápad)
Jiří497 napsal/a:
Chybí vám tam podmínka.
Za "or" musí být to co jsem psal v prvním příspěvku. To co je mezi if - then napište mezi or - then
Ja jsem lopata
díky moc stále se musím učit, jsem si myslel, že si to furt pamatuje tu prvotní podmínku..
fakt mockrát děkuji
foundRange je jedna bunka a format mam nastaveny dd.mm.yyyy
stejnak mi to nějak nejde
Mám momentálně kod:
' kontrola platného GDPR
Dim GDPR As Integer, prijmeni As String
prijmeni = foundRange.Offset(0, 5).Value
Worksheets("Database").Unprotect Password:="xxxxx"
Sheets("Database").Select
If foundRange.Offset(0, 17).Value = "" Or DateSerial(Year(Date) - 1, Month(Date), Day(Date)) Then
GDPR = MsgBox(prijmeni & ": odevzdal(a) souhlas GDPR?", vbQuestion + vbYesNo, "Není platné GDPR")
Select Case GDPR
Case vbYes
foundRange.Offset(0, 17).Value2 = Date
id.Text = ""
Case vbNo
Worksheets("Database").Protect Password:="xxxxx", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, AllowUsingPivotTables:=True
Sheets("Archiv").Select
ThisWorkbook.Worksheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).Select
id.Text = ""
MsgBox "Je nutné odevzdat souhlas o GDPR!!!" & vbCrLf & "bez tohoto souhlasu nelze evidovat záznam o testu!", vbCritical
Exit Sub
End Select
Else
'pokracovani kodu
Pokud smažu podmínku .. or Dateserial.... tak to funguje, ale chci přidat pokud je datum v buňce starší než jeden rok, tak opět musí vyskočit okno ohledně souhlasu GDPR jinak pokračuje v kódu vyskakovacího okna
Jiří497 napsal/a:
Další výstřel naslepo:
If Range("A5").Value < Format(DateSerial(Year(Date) - 1, Month(Date), Day(Date)), "dd.yy.mmmm") Then
Jako byste nevěděl, že s přílohou to mohlo být napoprvé přesně.
Tak teď děkuji za to, že jsi mě pamatujete :-) ( chápu po tolika otázkách co jsem tu měl "učnovských".), akurát ten soubor co dělám má momentálně přes 2MB a to neberu data, která obsahuje, takže už je dost složité to z toho vytáhnout.., abych tu vložil příklad.
PS: smekám kloubouk před Vámi a ostatními "kalibry", kteří tady radí ostatním.
Jiří497 napsal/a:
Jedna možnost:
If foundRange.Offset(0, 17).Value < DateSerial(Year(Date) - 1, Month(Date), Day(Date)) Then
Bohužel nefunguje a druhá možnost by nebyla ?
Zdravím hekři :-),
prosím o pomoc v těch datumech mám stále nedostatečné znalosti.
Mám kód:
If foundRange.Offset(0, 17).Value < Date Then
a u toho Date bych chtel kontrolovat Date minus rok, aby to kontrolovalo datum starší než jeden rok..
Děkuji za jakékoliv nakopnutí.
(Datum a čas je pro mě tabu)
Díky
Vždy když se zapisují ve VBA uvozovky tak se musí napsat 2x
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