Příspěvky uživatele

Zdravím,

vím, že to bude úplná blbost, ale nemůžu to najít na googlu nebo spíš nevím jak to mám napsat.

Potřeboval bych, aby mi to vyhledávalo ve sloupci A:B všechny shody a když to najde shodu napíše do sloupce F pod sebe všechny shody.

více v přiloženém souboru

Už jsem přišel na With ..
With Sheets(Active)

A už jsem na to přišel

děkuji

Zdravím, ještě jedna věc zkoušel jsem to dát do reportu a tam mi to nějak nefunguje.

Upravil jsem to tam a dal jsem tam více pozic odkud tahá data, ale nejede

EDIT: tam mi to nevyhledá ani směnu

Zdravím,

děkuji přesně tak jsem to chtěl.

Zkoušel jsem si přidat další list a jiný Range, ale nějak mi to nejede více v příloze

Zdravím, chtěl bych Vás požádat o radu.
Chtěl bych, aby se nakopírovali data z listu "data" do listu "List1" podle toho na jaké tlačítko kliknu.
Když kliknu na tlačítko např. "Data B", tak to vyhledá kde se nachází v A:O kde je písmeno B a pak nakopíruje pod něj do zeleného pole data z listu "data"

Sub data_A()
Dim i As Integer
Active = ActiveSheet.Name

A = WorksheetFunction.CountIf(Range("E1:Q2"), "A")

If A <> 1 Then
MsgBox "A neexistuje", vbCritical
Exit Sub
Else

i = WorksheetFunction.Match("A", Sheets(Active).Range("E1:Q2"), 1) 'tady se mi to sekne :-(

If WorksheetFunction.CountA(Range(Sheets(Active).Cells(16, i), Sheets(Active).Cells(18, i + 1))) > 0 Then
MsgBox "Pod A se nalézají data", vbCritical
Exit Sub
End If
'data
Sheets("Data").Range("O2:O4").Copy
Sheets(Active).Cells(16, i).PasteSpecial xlPasteValues

Sheets(Active).Select

End If
End Sub

viz příloha

děkuji moc krát za radu

Zdravím,

mám kód:
Dim myRange As Range, E()
Dim substr As String, endstr As String
Dim txtColor As Long, x As Long, y As Long, Pos As Long, endPos As Long, startPos As Long, LenEndStr As Long

Set myRange = Worksheets(Active).Range("E16:M138")
If myRange.Cells.Count > 1 Then E = myRange.Value Else ReDim E(1, 1): E(1, 1) = myRange.Value

substr = "Nezapsané prostoje-"
endstr = "min"
txtColor = 3
LenEndStr = Len(endstr)

For y = 1 To UBound(E, 1)
For x = 1 To UBound(E, 2)
Pos = 1
Do
startPos = InStr(Pos, E(y, x), substr, vbTextCompare)
If startPos <> 0 Then
endPos = InStr(startPos, E(y, x), endstr, vbTextCompare)
If endPos <> 0 Then
myRange.Cells(y, x).Characters(Start:=startPos, Length:=endPos - startPos + LenEndStr).Font.ColorIndex = txtColor
Pos = endPos + LenEndStr
End If
End If
Loop Until startPos = 0 Or endPos = 0
Next x
Next y

obarvuje mi to správně, ale chtěl bych přidat další "substr" aby mi to obarvovalo další častí kódu, ale jiné např. "substr2 = "Přechod" pod jinou barvou - např. txtColor2 = 3

Šlo by to nějak zkrátit ten kód, abych nemusel mít 2x za sebou stejný kód a jen upravené proměnné? těch barev a textu tam mam více.

Zdravím,

Prosím Vás mohl by mi někdo poradit. Mám tabulku, která vyhledává záznamy z listu Archiv, ale narazil jsem na problém, jelikož bych potřeboval, aby mi to zobrazovalo, tak jak to je, ale od spodu.

Momentálně je v poli D6 - 1244
Když přepíšete na 357, tak to vyhledá záznamy, ale od shora, ale potřeboval bych, aby to vyhledávalo podledních 20 záznamů z listu Archiv.

Díky za jakoukoliv pomoc

Zdravím,
Potřebuji, aby se mi vyhledala poslední hodnota ze sloupce F, ale je tam podmínka podle čísla figury podle buňky M1
Např. u Figury 763 to je poznámka kolo a potřebuji, když změním buňku M1 na např. 1244, aby mi to vyhledalo poznámku autobus (i když je figura 1244 i níže, ale není u ní vložená poznámka)
Výsledná hodnota by měla být v poli M3

Děkuji za pomoc
Zkoušel jsem i pomocí tabulky odšrknout prázné hodnoty a pomocí makra CTRL+UP a pak offsetem o jedno níže, ale stejnak mi to sjelo o pozici níže i když bylo pole prázdné a skryté v tabulce.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje