Eli olisi tarkoitus saada laskettua ko. SUMIFS aina niin alas mitä arvoja riittää, määrä vaihtelee kuukausittain.
A-sarakkeessa koodi, B-sarakkeessa laskettava arvo ja C-saralleeseen sitten vastaus.
Mitä pitäisi laittaa että "Shift End pikku-nuoli alas" toteutuisi?
Kiitos :)
*****************************
Sub Test1()
'
' Test1 Macro
'
'
ActiveCell.Offset(0, 2).Range("A1").Select
' siirrytään soluun C1 jonne laskeen SUMIFS tulos
ActiveCell.FormulaR1C1 = "=SUMIFS(R1C2:R6C2,R1C1:R6C1,RC[-2])"
' solussa A on koodi ja solussa B on arvo
Selection.AutoFill Destination:=ActiveCell.Range("A1:A6")
'vastaus lasketaan soluun C ja kaava kopioidaan alas
ActiveCell.Range("A1:A6").Select
End Su
A-sarakkeessa koodi, B-sarakkeessa laskettava arvo ja C-saralleeseen sitten vastaus.
Mitä pitäisi laittaa että "Shift End pikku-nuoli alas" toteutuisi?
Kiitos :)
*****************************
Sub Test1()
'
' Test1 Macro
'
'
ActiveCell.Offset(0, 2).Range("A1").Select
' siirrytään soluun C1 jonne laskeen SUMIFS tulos
ActiveCell.FormulaR1C1 = "=SUMIFS(R1C2:R6C2,R1C1:R6C1,RC[-2])"
' solussa A on koodi ja solussa B on arvo
Selection.AutoFill Destination:=ActiveCell.Range("A1:A6")
'vastaus lasketaan soluun C ja kaava kopioidaan alas
ActiveCell.Range("A1:A6").Select
End Su
Vastaukset 3
Vanhimmat
Function LastRow(C, Optional Taulu)
' Viimeinen käytetty tietoa sisältävä rivi halutussa sarakkeessa
' C on halutun sarakkeen numero- tai kirjaintunnus tai Range
' Funktio päivittyy automaattisesti vain, jos parametri C on Range
' ja taulukko muuttuu tällä alueella.
' Ellei parametri Taulu muuta kerro, oletuksena on aktiivinen taulukkosivu
' Taulu voi olla joko taulukkosivun indeksi tai nimi.
On Error Resume Next
C = C.Column
If Not IsMissing(Taulu) Then
LastRow = Sheets(Taulu).Cells(65536, C).End(xlUp).Row
Else
LastRow = Cells(65536, C).End(xlUp).Row
End If
End Function
Kiitos tuosta lähden ihmettelemään :)
Ihmetellä saat pitkääkin, kun minäkään en ymmärrä miten toi tekee sen .. ;-)
Keep EXCELing
@Kunde