• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Lepšie a jednoduchšie.
Ďakujem veľmi pekne.
Nech sa Vám darí

Skúsil som to takto a funguje to.
Možno to ide aj inak. ???
If Range("A10").Value = "" Then
Rows("10").Hidden = True
End If
If Range("A11").Value = "" Then
Rows("11").Hidden = True
End If
If Range("A12").Value = "" Then
Rows("12").Hidden = True
End If
ĎAkujem.

NA začiatku práce je treba aby boli všetky riadky odkryté.
Napríklad do A10 až A15 sa kopírujú dáta z inej tabulky.
Ak budú zaplnené len bunky A10 až A13 Tak riadok 14 a 15 sa po spuštení makra skryje.
Následne pri novej práci sa odkryjú riadky a všetko ide nanovo.
Ďakujem

Tiež sa pripojím s prosbou.
Skúšal som to a aj našiel nejaké súbory s podobným problémom ale nič. Nakoniec som sa dostal k tomuto.

Sub skry()
'
' skry Makro
Rows("10:15").Hidden = True
End Sub

Sub Vsetko()
Rows("10:15").EntireRow.Hidden = False
End Sub

Do skry by som ešte potreboval podmienku, že keď bude prázdna bunka napr. A11 a A12 tak po aktivovaní makra sa tieto riadky schovajú.
Ďakujem vopred za pomoc.

Ďakujem za radu, makro funguje perfektne. Dorobil som bunky ktoré potrebujem. Mal som tam ešte jeden problém ale ten som vyriešil. Ešte raz ďakujem.

Zdravím
Potreboval by som pomocou VBA meniť počet desatinných miest vo vybratých bunkách. Vždy pridať / ubrať o jednu úroveň. Vopred ďakujem za radu.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse