Proč si myslíš, že máš něco speciálního (mimo ne zcela vhodného uspořádání dat). Možností je více. Třeba ve zdroji ověřovacích kritérií vzorec: =INDEX(range_cylindr;0;POZVYHLEDAT(typ;range_typ;0)) (lepší je to pojmenovat a používat jméno, pozor na absoulutní/relativní odkazy) Nebo, když se sloupce p...

Sub faktura_vydana() Dim rCil As Range ' na listu "VYDANÉ FAKTURY" vybereme výchozí buňku ".Range("a1")" a1 ' Tuto buňku si zapamatujeme v proměnné rCil "Set rCil = ..." Set rCil = Sheets("VYDANÉ FAKTURY").Range("a1") ' Pokud je tato buňka...

Opraveno. Hledá první prázdnou buňku za zadanou, není ošetřen případ, kdy je celý sloupce vyplněn. Sub faktura_vydana() Dim rCil As Range ' vybere listu faktura, vybere buňku a zkopíruje Set rCil = Sheets("VYDANÉ FAKTURY").Range("a1") ' první buňku neznám If Not IsEmpty(rCil) The...

Když už jsi to celé naklepal záznamíkem, proč jsi nedodal pár klapek(ctrl šipka)? Activate, select je zbytečný, jen zpomaluje makro Kopíruje od A1 Sub faktura_vydana() Dim rCil As Range ' vybere listu faktura, vybere buňku a zkopíruje Set rCil = Sheets("VYDANÉ FAKTURY").Range("a1"...

Do G3:
=H3&"."&I3&"."&J3&"."&K3
A zkopírovat dolů

Do F3:
=SVYHLEDAT(A3&"."&B3&"."&C3&"."&E3;$G$3:$L$14;6;0)

Zadani je dane jednoznacne a bude to jednodussi kdyz se nebudou hledat chyby tam, kde nejsou a menit zadani. Cilem je dostat data z Excelove tabulky do cehokoliv, co je dokaze zobrazit a nesmi to pritom zamykat zdrojovy soubor. Zobrazovaci zarizeni ani umisteni souboru na to nema vliv. > Pokud zadán...

Maticové vzorce jsou pomalé, ale jsou v buňce. Jinak vzorcema přes pomocné buňky. Pomocí pozvyhledat hledat sloupec jednotlivých položek a pak to indexem (například) vypsat. Nebo makro. Ovšem jestli to PC má za 5 minut vytaženo, tak makro za 5 minut nevyrobím. (Pro 1000 sloupců je třeba ve vzorcích ...

Například maticové vzorce (ukládejí se trojhmatem ctrl-shift-enter) B16: =IFERROR(INDEX($B$2:$H$2;SMALL(KDYŽ($B3:$H3>0;(SLOUPEC($B$2:$H$2)-SLOUPEC($A$3));1000);SLOUPEC()-SLOUPEC($A$16)));"") B27: =IFERROR(INDEX($B$2:$H$2;SMALL(KDYŽ($B3:$H3=1;(SLOUPEC($B$2:$H$2)-SLOUPEC($A$3));1000);SLOUPEC...

Pomotal jsi to. Mrkni příležitostně do nápovědy, co dělá a jak se používá volba UserInterfaceOnly. Sub VSEfiltr() Dim PASSWORD As String Dim bSdileno as Boolean PASSWORD = "heslo" With ActiveWorkbook bSdileno = .MultiUserEditing ' Zapamatovat stav pro případnou obnovu If .MultiUserEditing ...

Použij před svým kódem



Makro poběží, ochrana před uživatelem zůstává. Nastavení platí do zavření sešitu.

Lze:

Function barva(rng As Range) As Long
Application.Volatile
barva = rng.Interior.Color
End Function

Má to ale několik ale: Buňka může mít pár miliónů barev, která je správná červená? Potom změna barvy není změnou z hlediska výpočtu excelu, je nutné funkci přepočítávat ručně.

Function fnPocetDni(DatumOd As Date, DatumDo As Date, bDen As Byte) As Integer Dim Pocet As Integer Dim dt As Date Dim i As Long Dim svatky As Variant Pocet = (DatumDo - DatumOd) / 7 For dt = dtDatumOd + Pocet * 7 To dtDatumDo 'zda vyhovuje cislo dne If CByte(DatePart("w", dt, vbMonday)) ...