A
AND
Hi,
by this script, I filter some data except the data filled in inputbox.
Now I would delete each data hidden except the data shown
Can u help me please?
thanks a lot.
Private Sub button1_Click()
Dim rng As Range
Dim c As Range
Dim nr As Long
Dim cond(10) As Variant
Dim i As Integer
Dim S As Intege
S = InputBox("Qual è il numero degli addetti per l'internaz DIURNO?")
Sheets("INT_GG").Select
For i = 1 To S
cond(i) = InputBox("Inserire condizione " & i, "tuoTitolo")
Next
Set rng = Foglio19.Range("G6:G800")
rng.Rows.Hidden = True
For Each c In rng
Select Case c.Value
Case Is = cond(1), cond(2), cond(3), cond(4), cond(5), cond(6), cond(7),
cond(8), cond(9), cond(10)
Foglio19.Rows(c.Row).Hidden = False
Case Else
End Select
Next
End Sub
Public Sub mScopri1()
Dim rng As Range
Set rng = Foglio19.Range("G6:G800")
rng.Rows.Hidden = False
by this script, I filter some data except the data filled in inputbox.
Now I would delete each data hidden except the data shown
Can u help me please?
thanks a lot.
Private Sub button1_Click()
Dim rng As Range
Dim c As Range
Dim nr As Long
Dim cond(10) As Variant
Dim i As Integer
Dim S As Intege
S = InputBox("Qual è il numero degli addetti per l'internaz DIURNO?")
Sheets("INT_GG").Select
For i = 1 To S
cond(i) = InputBox("Inserire condizione " & i, "tuoTitolo")
Next
Set rng = Foglio19.Range("G6:G800")
rng.Rows.Hidden = True
For Each c In rng
Select Case c.Value
Case Is = cond(1), cond(2), cond(3), cond(4), cond(5), cond(6), cond(7),
cond(8), cond(9), cond(10)
Foglio19.Rows(c.Row).Hidden = False
Case Else
End Select
Next
End Sub
Public Sub mScopri1()
Dim rng As Range
Set rng = Foglio19.Range("G6:G800")
rng.Rows.Hidden = False