Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  3 4 5 6 7 8 9 10 11   další » ... 15
VBA smazaní v TextBoxu (4.7.2021 13:52)

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 1

VBA smazaní v TextBoxu (4.7.2021 8:03)

Zdravím,
prosím mohli by jste mi poradit jak smazat poslední písmeno z textboxu (tzv udělat backspace tlačítko)

Děkuji

porovnaj hodnoty na 2 zositoch (8.6.2021 22:10)

https://office.lasakovi.com/excel/data/porovnat-dve-tabulky-rozsireny-filtr-excel-2010/

Jedna možnost bez VBA

kontrola vzorcov v celom zosite (8.6.2021 22:03)

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)

VBA - aktualni datum - rok (6.6.2021 16:09)

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 9 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

VBA - aktualni datum - rok (6.6.2021 13:43)

foundRange je jedna bunka a format mam nastaveny dd.mm.yyyy

stejnak mi to nějak nejde 7

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

VBA - aktualni datum - rok (4.6.2021 18:23)

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.

VBA - aktualni datum - rok (4.6.2021 16:53)

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 ? 7

VBA - aktualni datum - rok (4.6.2021 15:42)

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

Zápis vzorce do buňky pomocí VBA (3.6.2021 2:30)

Vždy když se zapisují ve VBA uvozovky tak se musí napsat 2x

VBA - automaticky posouvat vzorec v KT (11.5.2021 20:25)

Zdravím,
chtěl bych se zeptat, jestli lze automaticky rozsirovat vzorec v kontingenci tabulce, jelikoz ted ji mam ted udělanou tak, že když pribude řádek tak se automaticky rozšíří, ale když jsou v ní nějaké vzorce tak ty se nerozšíří níž..

Dík za jakékoliv info

VBA - Prepsat range pod tlačítkem (25.4.2021 18:22)

Zdravím,
asi mi to už nemyslí, ale nějak se mi to furt nedaří..

Mám:
ActiveSheet.Range("S" & ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row).Offset(0, 0).Value
pod tlačítkem se nachazí číslo 1 potřebuji to přepsat na 2, jelikož mám podmínku když 1 tak něco udělá a chci, aby to přepsalona 2 a když 2 tak něco jiného

Díky moc za jakoukoliv radu 7

Odeslani emailu po vyplneni data v bunce (23.4.2021 20:55)

Tak mě napadlo, že bych vytvořil: pokud se ve sloupci Smlouva zadají data tak se zobrazí ve sloupci T tlačítko, kterým se to odešle nebo když se v sloupci Smlouva udělá změna tak to automaticky odešle mail, ale nevím kde bude emailová adresa

když tak pisnete nejak to udelam 1

Převod každého znaku na jiný podle předlohy (22.4.2021 15:08)

Tak funguje perfektně to by mě nenapadlo i když jsem už tohle i dělal a v tomto případě mě to nenapadlo..

Děkuji moc krát

Převod každého znaku na jiný podle předlohy (22.4.2021 13:19)

Mrkněte na to hned vecer diky moc doufam, ze to nejak dokoncim


Strana:  1 ... « předchozí  3 4 5 6 7 8 9 10 11   další » ... 15

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje