Tak, už to funguje celé. Pomohly ty (i) v závorkách TWsht.Range(TAddrArr(i)).Value = SWsht.Range(SAddrArr(i)) přikládám finální kód a moc děkuji za pomoc. Option Explicit Sub Aktualizovat() Dim SWbkN As String, TWbkN As String Dim SWbk As Workbook, TWbk As Workbook Dim SWsht As Worksheet, TWsht As W...

Moc děkuji, je to nádhera, když to takhle někdo umí. Teď jsem to zkoušel krokovat a hází to malou chybu na posledním řádku při vracení se na další hodnotu Next i budeš vědět? ' uprava na jednom listu, rozdilne bunky zdroj a cil Set TWsht = TWbk.Worksheets("Faktura Leden ZB") Set SWsht = SW...

Tak zatím jsem to zkoušel takhle: Ale určitě to půjde napsat i optimalizovaněji. Alespoň by se stále nemusel udávat název sešitů, ty by mohly být někde na začátku a pak už jenom odkazem. Jinak to už funguje na celý sešit. Option Explicit Sub Aktualizovat() ' Vstupní údaje Dim SWsht As Worksheet, TWs...

:D Super tohle funguje bezvadně. Děkuji i ostatním. Měl bych ještě jednu doplňující otázku, 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.............. Option Explicit...

Ahoj, potřeboval bych poradit jak automaticky opsat definované buňky z jednoho sešitu do druhého. Jedná se o výkazy elektrické energie, kde se do určených buněk vkládají vstupní hodnoty (adresa, stavy elektroměrů, ceny, apod.) v dalších listech jsou potom údaje zpracovávaný do měsíčních výkazů, fakt...