Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6 7 8 9   další » ... 15
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.

Error VBA - object variable or with..... (31.10.2021 1:48)

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

Vyhledávání jedinečných hodnot v tabulce s podm. (4.10.2021 14:04)

veny napsal/a:

Fantasyk napsal/a:
1 z 2
sry ale z toho moc moudřejší nejsem


Dva nejbližší Datum k aktuálnímu datu tzn. 2.10. A 7.10

Vyhledávání jedinečných hodnot v tabulce s podm. (4.10.2021 13:40)

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


1 z 2


Strana:  « předchozí  1 2 3 4 5 6 7 8 9   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