Příspěvky uživatele

nějak mi ten příkaz na označení posledního obrázku nefunguje. Mám list Quality a jak jsem psal obrázky nazvané Picture 118 atd., i přesto, že jsem se snažil jakkoli doplnit příkaz select, pro označení, tak se mi to nedaří.

děkuji

tak mě napadlo, že by mi stačilo vymyslet příkaz v makru, který by mi označil poslední vložený obrázek. Např. mám první obrázek s názvem Picture 118, dalším rozkopírováním tabulky mi vznikne Picture 119. Nyní když potřebuji smazat poslední tabulku mi stačí označit obrázek s číslem 119. Poradil by mi někdo s tímto příkazem? Děkuji

Dobrý den, rád bych se zeptal zda existuje příkaz pro makro, které by provedlo následující:
označí dané pole řádků (např. celé řádky 6 až 30)
v tomto poli se nacházejí data, vzorce, ale i obrázky a funkční tlačítka maker
po označení dojde ke kompletnímu smazání všech dat včetně formátování buňěk (doteď to mám vyřešené)
makro smaže i obrázky a tlačítka obsažené v tomto označeném poli (nikde jinde).... toto je oříšek, na který nemůžu přijít

Do této chvíle mám připravený tento skript:
Application.ScreenUpdating = False 'zajistí běh makra na pozadí
If ActiveCell.Value = "ANO" Then 'aktivní buňka musí obsahovat slovo ANO
Dim mySheet As Worksheet
Set mySheet = Worksheets(1)
mySheet.Activate
mySheet.Unprotect "heslo"
ActiveCell.Rows("1:37").EntireRow.Select
Selection.Delete 'tímto se mi smažou data z buněk, ale zůstanou obrázky a tlačítka
ActiveWindow.SmallScroll Down:=-40
Range("A15").Select
ActiveCell.FormulaR1C1 = "ANO" 'vepsání slova ANO do buňky, která je o 37 polí výše tzn. v předchozí tabulce
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=10
mySheet.Protect "heslo", True, True, True
Else: MsgBox "Tuto tabulku nelze smazat!!", vbInformation, "Upozornění"
End If
Application.ScreenUpdating = True 'zobrazí výsledek makra

End Sub

Děkuji za odpověď vše funguje jak má. Jenom bych se ještě rád zeptal jak napsat makrem příkaz pro smazání označených řádků (např. označených řádků 15 až 25), ale tak aby byly smazány krom dat i obrázky, tlačítka, které jsou vloženy do této označené oblasti. Bohužel nevím jak to vyřešit, když každou další kopii dostane makrem vložený obrázek a tlačítko nové číslo (nelze tedy na tyto objekty zpětně odkázat pevným názvem)
Děkuji

Dobrý den, v mé připravované tabulce by mi naprosto přesně vyhovovalo použití funkce fotoaparát. Mám totiž jednu hlavní tabulku a druhou doplňkovou, kterou bych rád pomocí makra (např. tlačítko) přidal pod hlavní tabulku. Manuálně jsem funkci fotoaparát našel a vše funguje tak jak má. Pokud, ale makro nahraju, tak se mi tabulka jako obrázek na příslušné místo nevloží. Taktéž po prostudování makra, jsem našel pouze příkaz pro kopírování a vložení. Chtěl bych se tedy zeptat zda jde makrem nějak vyřešit funkci fotoaparát.
Děkuji

Zatím se mi nedaří využít tuto funkci prostřednictvím makra. Rád bych se zeptal, zda k této funkci existuje jednoznačný příkaz pro makra.

Mnohokráte děkuji za pomoc, překvapivě to nepracuje se samotnou oblastí tisku, ale zvýrazní to danou oblast a pak tiskne jen zvýrazněné tabulky. Ještě jednou děkuji a začnu přemýšet o kurzu Makra v excelu

Děkuji za rychlou odpověď, avšak makro mi píše chybu Compile Error "Expected function variable". Ještě asi raději upřesním, že v této chvíli mám tiskové pole označené až do konce excelu (cca 22 tis. stránek), stačil by mi tedy skript který najde poslední stránku na které je text a číslo této stránky automaticky vloží do políčka TISK DO.... v dialogovém okně tisku.

Dobrý den,
v programování maker jsem úplný začátečník, ale potřeboval bych poradit jak naprogramovat jeden konkrétní úkol.

V excelu na listu Quality mám několik tabulek, zčehož mám jednu tabulku, kterou mám naformátovanou k tisku. Dále protože někdy zákazník požaduje několik takových tabulek mám vložené makro, které stávající tabulku nakopíruje dolů pod stávající tabulku a vloží na začátek nové tabulky "konec stránky". Otázkou pro mě je jak správně naprogramovat makro, které by ohraničilo tiskové pole takto:
zhora M10 až AD10 a zespoda, aby to vždy protáhlo to tiskové pole až po poslední řádek, který obsahuje vzorec.

Výsledkem bude, že když makrem "naklonuju" 3 tabulky, budu v rychlém tisku tisknout max. 3 tabulky, naklonuju 10 tabulek bude se tisknout 10 tabulek max.

Ideální stav by byl upravit makro tak, aby bylo použitelné na nové tlačítko TISK, kterým by se zobrazilo okno s výběrem tiskárny a už by zde byl nastaven rozsah stránek.

Předem děkuji všem, kdo mi jakkoli poradí.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje