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ää.
Laske tyhjät rivit lukujen väleistä ?
Timo _
3
415
Vastaukset
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? 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ä.
Luetuimmat keskustelut
IS: Väitöstutkimus - Pyöräilybuumi oli pelkkä kupla!
Pyöräilybuumista paljastui karu totuus Väitöstutkimuksen mukaan suuri suomalainen pyöräilyrenessanssi olikin vain pelkk141359Turussa Varissuolla bussikuski ajoi lapsen yli lapsi kuoli
Poliisi " Epäilee " kuskia törkeästä liikenneturvallisuuden vaarantamisesta ja törkeästä kuolemantuottamuksesta.1991309Milloin bikineistä
Tuli juhla tai esiintymis asu? Pikkasen harkintaa vois käyttää. Bikinit kuuluvat uimarannalle. No, mitä maailman tähdet1451179Mene perheinesi arkkiin - kasteelle !
Juutalaiset oli hyvin lapsirakkaita, mitään ehkäisyä ei käytetty. Perheissä oli paljon lapsia. Viiden koko perheen kast4701007- 134959
Olimmeko molemmat
ujoja ja hankalia, vai minä vain? Mietin, oliko se silloin epävarmuutta vai kiinnostuksen puutetta.73913Johanna Tukiainen ei suostu muuttamaan pois vuokra-asunnosta!
Seiska kertoi tänään, että Johanna Tukiainen ei ole suostunut poistumaan Helsingin Munkkisaarenkadun vuokra-asunnostaan.66847Mun on ikävä sua J ,
Mun on ikävä sua J, haluaisin tutustua paremmin (vaikka tämä aivan älytöntä onkin). Voitaisiinko nähdä ja jutella ihan47832- 68794
Apostolit kastoivat eri tavalla kuin kirkko
Raamatussa on kaksi ristiriitaista kastekaavaa. Toinen ei voi olla oikea. Kumpi on alkuperäinen? "Menkää siis ja tehkää397776