Nejste přihlášen/a.
Prosím o pomoc
Jak napsat makro v excelu, které vyhledá poslední buňku na posledním listu (např. list 6) v sešitě, zkopíruje ji a vloží hodnotu odzadu postupně do do stejných políček listů (postupně list6, list5, list4, list3 ...). Sešity nemají vždy stejný počet listů. Od listu1 do listu xx to mám, zpětně to prostě nedám. Poradí mi někdo?
Zdravím,
pokud jsem dotaz správně pochopil, mělo by pomoct následující makro. Pokud šlo o něco jiného, napište.
Sub lc()
pocet = Sheets.Count
pocitadlo = pocet - 1
Sheets(pocet).Select
ActiveCell.SpecialCells(xlLastCell).Select
sloupec = ActiveCell.Column
radek = ActiveCell.Row
hodnota = Cells(radek, sloupec).Value
Do While pocitadlo> 0
Sheets(pocitadlo).Select
Cells(radek, sloupec).Value = hodnota
pocitadlo = pocitadlo - 1
Loop
End Sub
Zdravím,
prosím jěště o jednu radu. Na každém listu je buňka s názvem "počet stran" ( místo P25, F18 atd.). Jak toto makro upravit, aby hodnota z konkrétní buňky na posledním listu (např. X46) byla zkopírována do všech listů sešitu právě do buněk "počet stran".
Sešity mají opět různý počet listů.
Sub lc()
pocet = Sheets.Count
pocitadlo = pocet - 1
Sheets(pocet).Select
ActiveCell.SpecialCells(xlLastCell).Select
sloupec = ActiveCell.Column
radek = ActiveCell.Row
hodnota = Cells(radek, sloupec).Value
Do While pocitadlo> 0
Sheets(pocitadlo).Select
Cells(radek, sloupec).Value = hodnota
pocitadlo = pocitadlo - 1
Loop
End Sub
Neneseme odpovědnost za správnost informací a za škodu vzniklou jejich využitím. Jednotlivé odpovědi vyjadřují názory jejich autorů a nemusí se shodovat s názorem provozovatele poradny Poradte.cz.
Používáním poradny vyjadřujete souhlas s personifikovanou reklamou, která pomáhá financovat tento server, děkujeme.