Mulla on K sarakkeessa määrä ja G sarakkeessa hinta. Haluaisin M sarakkeeseen tulon noista, eli K*G. Ongelma on se että joka rivillä ei ole tietoa, eli välissä on tyhjiä rivejä. Tein kaavan =JOS(K2=>0,01;K2*G2;"") joka tietenkin toimii mutta kun taulukossa on kymmeniä tuhaansia rivejä niin jos tuon saisi vba:na moduuliin niin että se laskisi joka rivin tiedot kun ehdot täyttyy niin helpottaisi kovasti.
Vba apua
apuuuva2
1143
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 1
Vanhimmat
Sub TäytäKaava()
Dim vika As Integer
vika = Range("K65536").End(xlUp).Row
Range("M1").FormulaR1C1 = "=IF(RC[-2]>0,RC[-2]*RC[-6],"""")"
Range("M1").AutoFill Destination:=Range("M1:M" & vika)
End Sub
Keep EXCELing
@Kunde