Je velice chvalihodne, ze ses pusti do samostane prace s VBA. Zatim ti poradim ja dal v procedure Duplikace, jedno z moznych reseni: Po dobehnuti smycky For Each Cll In Blk.Cells setrid blok podle pomocneho sloupce (nahraj si makro, uprav) a pak v pomocnem sloupci identifikuj blok bunek s indikatore...

Koukal jsem na informace o UniDDE, nejspis postaci odstranit mazani obsahu bunek A2:A4. Procedura reaguje na zmeny v bunkach A1:A4 a podle hodnoty xx v A1 transponuje obsah bunek A2:A4 do bunek Bxx:Dxx: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim SBlk As Range With Me If ...

To, ze muze nastat stav, kdy bude zapsana nova hodnota do A1 a nebudou zapsany dalsi hodnoty A2:A4 jsi neuvedl. Cekani na zapis posledni hodnoty jsem zvolil z duvodu uspory casu behu procedury, cca 1/5 proti provedeni bez cekani, coz muze mit negativni dopad pri taktu 10 ms. Takze upravena procedura...

Ciste z formalniho hlediska jsi mel upravit i radek:

For i = LBound(TAddrArr) To UBound(TAddrArr)

No a jakou chybu to "hazi"? Nejspis bude potreba upravit kod v radcich: For i = LBound(TAddrArr) To UBound(SAddrArr) TWsht.Range(TAddrArr).Value = SWsht.Range(SAddrArr) ve vsech pripadech pouziti teto casti kodu v procedure, zvyraznuji zmenu: For i = LBound(TAddrArr) To UBound( T AddrArr) ...

Trochu polidstena procedura je nize. Urcite by se dalo jeste vice zjednodusit, ale dalsi doplnovani by kvuli neprehlednosti bylo komplikovane. Protoze nemam testovaci soubory, musis overit funkcnost na kopiich souboru a pripadne chyby vychytat, dopln si dalsi potrebne aktualizace. Option Explicit Su...

Pri kopirovani hodnoty z jine bunky do bunky s nastavenym formatem nesmis pouzit Vlozit (Ctrl+v) (kopiruje vcetne formatu bunky), ale Upravy>Vlozit jinak>vybrat Hodnoty>OK nebo si dopln prislusne tlacitko do panelu nastroju (Zobrazit>Panely nastroju>Vlastni>karta Prikazy>Kategorie: Upravy> Prikazy: ...

jak v tomto scriptu definuji změnu na dalších listech? Jde o číslování dokladů, takže na listu "faktura leden" potřebuji zkopírovat D2,D3 "faktura unor" D2,D3.............. zkus to upresnit, lepsi ale bude, kdyz pripojis ukazku sesitu Energie1, pripadne Energie2 a vyznacis podba...

V editoru VBA vloz do modulu prislusneho listu udalostni proceduru, je to pracovni verze, predpoklad je, ze bunky A1:A4 jsou naplnovany postupne pocinaje A1: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim SBlk As Range If Not Intersect(Target, Me.Range("a4")) Is No...

Postup ma smysl (a to jsem predpokladal i kdyz dotaz byl obecny), pokud na duhem listu jsou dalsi sloupce, ktere nejsou na prvim, pokud by se jednalo jen o jeden sloupec, pak samozrejme to je kopie prvniho listu a nema to smysl

Pokud je zapotrebi aktualizovat vybrane bunky na stejnych adresach, pak lze pouzit proceduru ve standardnim modulu VBA, treba soubor Energie1: Option Explicit Sub Aktualizovat() Dim SWsht As Worksheet, TWsht As Worksheet Dim TBlk As Range, TCll As Range Set SWsht = Workbooks("Energie1.xls"...

Pro jednorazove pouziti. Na druhem listu vloz do pomocneho sloupce vzorec (uprav rozsah prohledavane oblasti): =KDYŽ(JE.CHYBHODN(SVYHLEDAT(A1;List1!$A$1:$A$3;1;NEPRAVDA));"";"*") kopiruj podle poctu radku oba sloupce setrid podle pomocneho sloupce sestupne a odstran radky bez zna...