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
396
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
- 453813
Riikka on siis suomalaisille velkaa 84 mrd
Jos kauhukabinetti istuu vaalikauden loppuun. Keskimäärin yli 20 miljardia uutta velkaa rikkaiden veronalennuksiin jokai783258Yritystuet 10 mrd. vuodessa, eli yrittäjäriski valtiolla kuten kommunismissa
Pelkästään Viking Linen viinanhakuristeilyitä sponsoroidaan 20 miljoonalla eurolla vuosittain. Dieselin verotukikin on03070Luotathan siihen tunteeseen, joka välillämme on?
Uskothan myös, että se kestää tämän? Kaipaan sinua valtavasti. Vielä tehdään yhdessä tästä jotain ihmeellistä ja kaunist303045Sanna on suomalaisille siis velkaa 24 mrd euroa
Muistanette vielä kuinka Italian remonttirahoja perusteltiin sillä, että italialaiset ostaa suomalaisilta paidatkin pääl1632801En saa sua mielestäni vaikka tekisin mitä
Mikä tähän auttaa.. ei mikään. Edes aika. Kaivan sut kohta vaikka kivenkolosta että saan kysyä haluatko sinäkin💛142647- 252319
Onnettomuus
Hukkajärventiellä kolaroi lavetti ja henkilöauto. Uutista ei missään! Hys hys ollaanko hiljaa tästäkin?41950Kirjotan ikävää ulos
Haluaisin kuulla mitä ajattelet minusta. ihan mitä vaan mitä mietit. Voisit kertoa minulle, tai sitten kirjoittaisit run141748Sinä se vaan jaksat
Suosittelen lopettamaan hyvissä ajoin, tuo toimintas ei auta unohtamiseen. Jossain vaiheessa asia julkistuu enkä usko et231677