Zdravím,
píše mi to error: object variable or with block variable not set u tučně vyznačeného řádku.
Ale jednou mi to jde a podruhé zase ne.
Omlouvám se mám velice rozsáhlý kód s daty, které nemůžu publikovat.
Dim I As Integer, o As Integer, p As Integer, l As Integer, n As Integer, m As Integer, N1 As Integer, datumbunka As Date
Application.ScreenUpdating = False
Active = ActiveSheet.Name
B = WorksheetFunction.CountIf(Range("A2:U2"), "B")
If B <> 1 Then
MsgBox "Smena B není obsažena v Reportu!", vbCritical
Exit Sub
End If
I = WorksheetFunction.Match("B", Sheets(Active).Range("A2:U2"), 0) - 1
o = WorksheetFunction.Match("B", Sheets(Active).Range("A2:U2"), 0)
m = WorksheetFunction.Match("B", Sheets(Active).Range("A2:U2"), 0) + 1
n = WorksheetFunction.Match("B", Sheets(Active).Range("A2:U2"), 0) + 2
N1 = WorksheetFunction.Match("B", Sheets(Active).Range("A2:U2"), 0) + 3
'zápis do STATISTIKY
datumbunka = Range("Y2").Value
With Sheets("STATISTIKA_B").Range("A:A")
Set Rng = .Find(What:=datumbunka)
'
Sheets("STATISTIKA_B").Cells(Rng.Row, 2).Value = Sheets(Active).Cells(47, o).Value
Sheets("STATISTIKA_B").Cells(Rng.Row, 3).Value = Sheets(Active).Cells(12, o).Value
Sheets("STATISTIKA_B").Cells(Rng.Row, 4).Value = Sheets(Active).Cells(64, o).Value
Sheets("STATISTIKA_B").Cells(Rng.Row, 5).Value = Sheets(Active).Cells(83, o).Value
Sheets("STATISTIKA_B").Cells(Rng.Row, 6).Value = Sheets(Active).Cells(13, n).Value + Sheets(Active).Cells(13, N1).Value
End With
Dík za jakékoliv info, které mi pomůže
veny napsal/a:
Fantasyk napsal/a:
1 z 2
sry ale z toho moc moudřejší nejsem
veny napsal/a:
no on to podle mě elnino myslel tak, co dělat když tam figura bude třikrát s jiným datem. Třeba by bylo:
700001 2.10.2021 565F205
700003 7.10.2021 565F205
700005 10.10.2021 565F205
pokud to může nastat tak jak to chcete porovnávat? První s posledním? Každé dvě po sobě jdoucí datumově? Poslední dvě?
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?
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)
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
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ě.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.