Vapaa kuvaus

Isaan Rules WFF CCC If you walked away smiling-then for you the price was right Keep Exceling Suosikkibändit/artistit: Queen, Rammstein, genesis, Bruce Bringsteen, Kino, Mandref Mann Earth band Who Lempikirjat: ohjelmointi... Suosikkipalstat Suomi24 Keskusteluissa: EXCEL, Kivitalot, EPS En pidä: pakkanen ja loskakelit Ruoka & juoma: loimulohi ja valkkari Linkit: http://www.kundepuu.com, Khorat Koulutus: --- Ammatti: Tiede/teknologia Työskentelen: freelancer Ase tai siviilipalvelus: yliluutnantti Siviilisääty: Varattu Lapset: --- Hakusanat: Thaimaa, korat, Excel, VBA, ACAD, CNC, Polyurea, EPS, MgO elementti

Aloituksia

7

Kommenttia

1374

  • Uusimmat aloitukset
  • Suosituimmat aloitukset
  • Uusimmat kommentit
  1. 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