Vba:ta

noduuliin...

Sub Poista()
Range("H:H").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Keep EXCELing
@Kunde

Kiitos Kunde, hyvin toimii.

Jos tuossa H sarakkeen soluissa on funktio niin tuo ohjelman pätkä ei poista niitä rivejä joilla funtio löytyy. Miten sen saisi lisättyä niin että se poistaa myös ne rivit jotka ovat tyhjiä kuten ketjun aloittaja kysyi, mutta joihin on sisälletty jokin funktio ?

Miten sen saisi lisättyä niin että se poistaa myös ne rivit jotka ovat tyhjiä kuten ketjun aloittaja kysyi, mutta joihin on sisälletty jokin funktio ?

tarkoitatko soluja, joissa kaava 'ja tulos on tyhjä vaiko
soluja, jotka tyhjiä solut, joissa kaava?

Solut jotka ovat tyhjiä solut joissa on kaava, muttei kuitenkaan niitä joihin kaava on jo laskenut tuloksen. Kiitos tarkennuksesta

Sub PoistaTyhjätKaavatKanssa()
Dim TyhjätKaavat As Range
Dim solu As Range
Range("H:H").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("H:H").SpecialCells(xlCellTypeFormulas).Select
For Each solu In Selection
If Len(solu) = 0 Then
If TyhjätKaavat Is Nothing Then
Set TyhjätKaavat = solu
Else
Set TyhjätKaavat = Union(TyhjätKaavat, solu)
End If
End If
Next
TyhjätKaavat.EntireRow.Delete
End Sub


Keep EXCELing
@Kunde