Laske tyhjät rivit lukujen väleistä ?

Timo _

Minkälaisella kaavalla saisin laskettu esim.
tyhjä,tyhjä,12,12,14,tyhjä,tyhjä,tyhjä,tyhjä,200,100,60,20,tyhjä,tyhjä,100 =vastaus 4 ja 2

Oikea tulos lähtisi laskemaan ensimmäisen luvun loputtua eli 14 jonka jälkeen laskisi 4 tyhjää ennen kuin tulisi 200 luku. Toinen luku tulisi kun laskisi 20 ja 100 välissä olevat tyhjät rivit eli 2 tyhjää.

3

391

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      laskee nyt A-sarakkeesta tyhjät välit alkaen solusta A1 viimeiseen riviin asti ja tulostaa F1 soluun. Tyhjiä välejä voi olla useampiakin kuin pyytämäsi 2

      moduuliin...

      Sub LAskeTyhjätVälit()
      Dim vika As Long
      Dim i As Long
      Dim tulos As String
      vika = Range("A65536").End(xlUp).Row
      For i = 2 To Range("A1:A" & vika).SpecialCells(xlCellTypeBlanks).Areas.Count
      tulos = tulos & Range("A1:A" & vika).SpecialCells(xlCellTypeBlanks).Areas(i).Cells.Count & ", "
      Next
      Range("F1") = Left(tulos, Len(tulos) - 2)
      End Sub

      Keep Excelling
      @Kunde

      • Timo__

        Hienosti toimi laskukaava ylhäältä alas.
        En vain huomannut tarkentaa.
        Tyhjiä pitäisi laskea E5:AE5 välistä kyseisen kohdan tyhjät voisi ilmoittaa AH5 kohtaan.
        Koko alue mistä tyhjiä lasketaan on E5:AE370 jokaisen rivin tyhjät yllä olevilla ehdoilla ilmoitetaan aina AH(NRO) kohtaan.

        Olisko tähän neuvoa?

      • kunde
        Timo__ kirjoitti:

        Hienosti toimi laskukaava ylhäältä alas.
        En vain huomannut tarkentaa.
        Tyhjiä pitäisi laskea E5:AE5 välistä kyseisen kohdan tyhjät voisi ilmoittaa AH5 kohtaan.
        Koko alue mistä tyhjiä lasketaan on E5:AE370 jokaisen rivin tyhjät yllä olevilla ehdoilla ilmoitetaan aina AH(NRO) kohtaan.

        Olisko tähän neuvoa?

        Sub LAskeTyhjätVälit2()
        Dim vika As Long
        Dim i As Long
        Dim rivi As Long
        Dim tulos As String

        Range("AH:AH").Clear

        For rivi = 5 To 370

        vika = Range("IV" & rivi).End(xlToLeft).Column

        For i = 2 To Range(Cells(5, 5), Cells(5, vika)).SpecialCells(xlCellTypeBlanks).Areas.Count
        tulos = tulos & Range(Cells(5, 5), Cells(5, vika)).SpecialCells(xlCellTypeBlanks).Areas(i).Cells.Count & ", "
        Next

        If Not tulos = "" Then
        Range("AH" & rivi) = Left(tulos, Len(tulos) - 2)
        tulos = ""
        End If

        Next
        Range("AH:AH").NumberFormat = "@"
        Range("AH:AH").EntireColumn.AutoFit
        End Sub

        Keep Excelling
        @Kunde

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Janni Tikkanen ohjattiin miesten pukuhuoneeseen

      Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu
      Kajaani
      87
      2335

    2. Keskisarja loisti A-studiossa, vauhkoontunut Sofia Virta munasi itsensä

      Keskisarja taas puhui 100% faktaa maahanmuuttoon liittyen. Kokoomuksen Kaumalta tuli pari hyvää puheenvuoroa, joskin muu
      Maailman menoa
      466
      2271

    3. Rakastan ja ikävöin sinua

      Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä
      Ikävä
      77
      1462

    4. Tiedän ettet tehnyt tahallasi pahaa

      Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo
      Ikävä
      110
      1430

    5. Vihjeketju naisille

      Kirjoita tähän vihjeesi kaivatullesi.
      Ikävä
      67
      1323

    6. Sä olet epävakaa

      tai ainakin yrität onnistuneesti vaikuttaa siltä. Ei sun kanssa uskalla ruveta yhtään mihinkään, menis hommat ojasta all
      Ikävä
      18
      1271

    7. Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien.

      Venäläistä sukellusvenettä jahdataan Norjassa Sukellusvenettä on etsitty sunnuntaista lähtien. Norjassa on käynnissä ve
      NATO
      109
      1092

    8. Haluatko tietää totuuden?

      Olen kyllästynyt sinuun. Et herätä enää mielenkiintoa. Samat jutut x 100. Kuten narskuilla aina. Samalla tunnen myötätun
      Ikävä
      87
      1083

    9. Teräväkielinen Virta jauhotti totaalisesti sössöttävän Keskisarjan

      Harvoin on noin suvereenia jauhotusta A-studiossa nähty. Ja minä äänestän demareita, joita ei oltu paikalle edes kutsut
      Maailman menoa
      261
      1060

    10. Sofia Virta pyyhkii pöytää Keskisarjalla A studiossa

      Hurjaa on meno. Keskisarja ihan kanveesissa.
      Perussuomalaiset
      271
      1042
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt