• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Příoha

Nebo po jednom kopírování

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

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

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

Posli kod co mas

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.

dík za jakoukoliv radu

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

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

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse