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.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.