Mitenkähän onnistuis piilottamaan rivin jos rivi on tyhjä (rivillä olevat solut ovat tyhjiä, soluissa on kaava), ja sitten kun siihen tulee tekstiä se tulisi näkyviin?
piilota rivi jos tyhjä
impivaarasta
2996
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 2
Vanhimmat
taulukon moduuliin
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Piilota_Näytä
End Sub
tee uusi moduuli,ja koodi sinne
Sub Piilota_Näytä()
Dim rivi As Long
Dim laskuri as Range
laskuri= Range("A1").CurrentRegion.Rows.Count
Application.ScreenUpdating = False
Cells.AutoFilter
With ActiveSheet
For rivi = 1 To laskuri
If .Cells(rivi, 1).Range("A1:B1").Text = "" Then
.Rows(rivi).Hidden = True
Else
.Rows(rivi).Hidden = False
End If
Next rivi
End With
Cells.AutoFilter
Application.ScreenUpdating = True
End Sub
If .Cells(rivi, 1).Range("A1:H1").Text = "" Then
muuta tässä sarakkeet mistä haluat etsiä tyhjiä
solua, nyt etsii sarakkeet A-H eli jos haluat esim. tsekata tyhjiä sarakkeista G-M niin muuta
If .Cells(rivi, 1).Range("G1:M1").Text = "" Then
keep Excelling
@Kunde
Voit poistaa noi Cells.AutoFilter rivit koodista (2 kpl) unohtuivat sinne...