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ää.
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ää.
Vastaukset 3
Vanhimmat
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
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