Zaslal/a thums 26.7.2011 10:13
Private Sub CheckBox1_Click()
For i = 5 To 21
If CheckBox1.Value = True Then
If Cells(i, 3).Value = ActiveCells Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
Else
Rows(i).Hidden = False
End If
Next i
End Sub
Zdravím, potřeboval bych, když vložím nový řádek mezi data ( 5 - 20 ), zadám hodnotu do sloupce 2, zadám skrýt, aby se mi zobrazil i řádek nad vloženým. Čili vložený řádek + řádek nad ním.
Díky
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.