Kód: Vybrat vše
=HYPERTEXTOVÝ.ODKAZ(CONCATENATE("#'";SVYHLEDAT(vzorce!B3;seznam!B2:G13;4;NEPRAVDA);"'!A2");"odkaz")
Přejít na rozšířené vyhledávání
Kód: Vybrat vše
=HYPERTEXTOVÝ.ODKAZ(CONCATENATE("#'";SVYHLEDAT(vzorce!B3;seznam!B2:G13;4;NEPRAVDA);"'!A2");"odkaz")
Potřebuji, aby se mi buňka s číslem objednávky výrazně změnila (nejlépe zabarvením textu či výplně, ale i obyčejná "fajfka" stačí), když budou všechny díly z ní vyrobené nebo zrušené.
Kód: Vybrat vše
Sub kopie ()
Sheets(Array("CDG", "HYP")).Copy After:=Sheets(Sheets.Count)
End sub
Kód: Vybrat vše
For i = 1 to 100
'něco
next i
Kód: Vybrat vše
While i < 20
i = i + 1
Wend
Kód: Vybrat vše
Sub VlozPouzeHodnotu()
'
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
End Sub