Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  2 3 4 5 6 7 8 9 10   další » ... 16
VBA: Změna barvy u části textu (17.12.2021 21:42)

Zdravím,
u této části mi to zežloutne a napíše chybu:
Hodnota = Replace(sHodnota & ":00", "h", ":")

RunTime Error 13

Ale když to mám u tebe v souboru tak to jede, jen to překopíruji do mého a tam to hodí chybu 8

Zamknout pozici formu (15.12.2021 21:45)

Zdravím,
jde zamknout pozici, aby sní nešlo hýbat?

Dík

Tlačítko na zavření všech formů (15.12.2021 20:46)

elninoslov napsal/a:

https://stackoverflow.com/questions/48562941/closing-any-open-userform


Dík jsem zkoušel dost takových kodu, které jsem našel, ale tady tenhle jsem nevyzkoušel.

Ještě jednou díky

podmienený formát sviatky funkcia MATCH (15.12.2021 17:45)

elninoslov napsal/a:

Stačí vytvoriť novú premennú "sviatky" ale pre celý zošit. Starú lokálnu zmazať.

jak to udělat ? to neznám on má udělané měsíce, ale jak to udělat ani ja nevim :( ja vzdy odkazuji na konkretní bunky

podmienený formát sviatky funkcia MATCH (15.12.2021 17:37)

elninoslov napsal/a:

Tipujem, že je to pre to, lebo "sviatky" je lokálny Definovaný názov pre list NEMAZAT. Nie pre celý zošit

Přesně tak: =MATCH($A4;NEMAZAT!$C$5:$C$20;0)

Tlačítko na zavření všech formů (15.12.2021 17:34)

Zdravím,
jak můžu zavřít všechny formy najednou tlačítkem?

Mám kód u jednoho formu, že nelze zavřít a potřebuji dodat tlačítko s heslem pro zavření všech formů. (heslo zvládnu, ale potřebuji všechny formy zavřít)

Díky za jakékoliv info

VBA: Změna barvy u části textu (15.12.2021 13:06)

Příoha

kopirováná dat s "formátem" (10.12.2021 23:31)

GeorgeK napsal/a:

Fantasyk napsal/a:Nebo po jednom kopírováníPříloha: 51674_51655_prevdzapisu.zip (15kB, staženo 3x)

Díky,
funkční to je :-)
Jen kdyby to bylo univerzalnější... V realu je řádků přes tisíc a vyskytuje se v různých sloupcích.


Zkus stáhnout ten první odkaz (maximálně upravit kam uložit ve VBA kodu), kdyby jsis nevěděl rady tak pisni pomůžu..

GeorgeK chce aby mu zkopírovalo text bez formátu (tzv. co je teď v buňce):
Př.
v buňce A1 má 10.12.2021 a chce, aby mu to zkopírovalo přímo text, který se v té buňce nachází a né, aby mu to zkopírovalo 44540

momenátlně má:
1-10/2020-4444-VI (vlastní formát: @"/2020-4444-VI") a chce, aby mu to ve sloupci B ukázalo: přímo text, který to obsahuje a né: "1-10"

kopirováná dat s "formátem" (10.12.2021 4:55)

Nebo po jednom kopírování

kopirováná dat s "formátem" (10.12.2021 2:53)

Zdravím,
nedalo mi to..
udělal jsem to sice hodně neohrabaně,
1 Tlačítko:
Uloží to soubor jako .txt unicode otevře zpět první soubor(nesmí se měnit název) a txt zavře.
2 Tlačítko:
Vloží data z TXT do sloupce B

jinak mě to nenapadlo :-)

PS: asi někdo vymyslí lepší způsob, ale na nic jiného jsem nepřišel..

VBA: Změna barvy u části textu (9.12.2021 23:40)

Zdravím,
Mám kód (viz níže), který mi přebarví část textu v buňkách. (momentálně to je, když najde Neevidované prostoje- blablabla min)

všechno od Neevidovaného prostoje po min, ale potřeboval byhc tam přidat ještě jednu podmínku, aby to obarvilo jen, když najde vyšší číslovku než 20.

Př.
blablabla Neevidované prostoje- 25min blablabla - tady to zbarví

Př.2
blablabla Neevidované prostoje- 18min blablabla - tady to nezbarví.

Ale jště tam je problém v tom, že tam je někdy "Neevidované prostoje- 1h15min" a to bych taky potřeboval zbarvit 7

Dim mysRangessse As Range, JE()
Dim substrsse As String, endstrsse As String, neevidovane As String
Dim txtColorsse As Long, xsse As Long, ysse As Long, Possse As Long, endPossse As Long, startPossse As Long, LenEndStrsse As Long

Set mysRangessse = Worksheets(Active).Range("E16:L138")
If mysRangessse.Cells.Count > 1 Then JE = mysRangessse.Value Else ReDim JE(1, 1): JE(1, 1) = mysRangessse.Value
neevidovane = Range("G48").Value

substrsse = neevidovane
endstrsse = "min"
txtColorsse = 7
LenEndStrsse = Len(endstrsse)



For ysse = 1 To UBound(JE, 1)
For xsse = 1 To UBound(JE, 2)
Possse = 1
Do
startPossse = InStr(Possse, JE(ysse, xsse), substrsse, vbTextCompare)
If startPossse <> 0 Then
endPossse = InStr(startPossse, JE(ysse, xsse), endstrsse, vbTextCompare)
If endPossse <> 0 Then
mysRangessse.Cells(ysse, xsse).Characters(Start:=startPossse, Length:=endPossse - startPossse + LenEndStrsse).Font.ColorIndex = txtColorsse
Possse = endPossse + LenEndStrsse

End If
End If

Loop Until startPossse = 0 Or endPossse = 0

Next xsse
Next ysse

díky za jakoukoliv radu

VBA: find od spodního řádku (26.11.2021 21:24)

elninoslov napsal/a:

Set compld2 = Range("B:B").Find(What:=idsearch, After:=Range("B1"), LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious)


děkuji

obrazok (26.11.2021 21:08)

Posli kod co mas

VBA: find od spodního řádku (26.11.2021 21:04)

Zdravím,
mám kód:
Dim compld2 As Range
Sheets("SAP").Select
idsearch = Sheets("Data").Range("B7").Text
Set compld2 = Range("B:B").Find(What:=idsearch, LookIn:=xlValues, LookAt:=xlWhole)

compld2.Offset(0, 5).Value2 = CommandButton3.Caption
Unload Me

Funguje správně až na to, že pokud se vyskytuje více compld2 tak to vloží do prvního co najde, ale potřeboval bych, aby to vyhledalo a vlozilo od spodního radku co najde. 7

dík za jakoukoliv radu

Error VBA - object variable or with..... (1.11.2021 5:02)

Budu u PC až o víkendu ( Long mi negungoval 7 ) zkusím potom nějak udělat přílohu.


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

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