Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing And Len(Target) > 0 Then
Rows(Target.Row + 1).Hidden = False
Cells(Target.Row + 1, 1).Select
End If
End Subcitovat
Zaslal/a marficek119 3.8.2011 16:02
Ahoj všem,
potřebuji radu. Mám formulář, kde jsou skryté řádky. Potřebuji, aby když vyplním buňku př C2, tak aby se mě odkryl následující řádek (skrytý). Pak opět budu vyplňovat buňku C3, odkryje se další následující řádek. Snad jsem to popsal srozumitelně:-). Pomůže někdo s kódem?
Díky M.
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.