Autofill mist 1 cell

Status
Niet open voor verdere reacties.
M

MEradus

Gebruiker
Lid geworden
25 nov 2012
Berichten
287
Hoi,

Ik heb onderstaande code verwerkt in een macro, alleen nou pakt ie de laatste cel die hij wel moet hebben, niet.
Hoe zou ik dan simpel kunnen oplossen?

Code: 
Dim LastRow As Integer
LastRow = Range("R" & Rows.Count).End(xlUp).Row


Range("R3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]<=30,IF(RC[-7]>0.23,""fout"",""goed""),""goed"")"
   Selection.AutoFill Destination:=Range("R3:R" & LastRow)

Bvd voor het kijken!

Ik hoop trouwens dat het kan zonder vb bestand. :eek:
 
Geen idee zonder vbtje
Zoiets?
Code: 
Sub Dotchie()
Dim LastRow As Long
LastRow = Range("R" & Rows.Count).End(xlUp).Row
Range("R3").Activate
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-5]<=30,IF(RC[-7]>0.23,""fout"",""goed""),""goed"")"
   ActiveCell.AutoFill Destination:=Range("R3:R" & LastRow + 1)
End Sub
 
Bij mij werkt je code prima. Toch zou ik het zo doen:
Code: 
Dim LastRow As Long
LastRow = Range("R" & Rows.Count).End(xlUp).Row

With Range("R3")
    .FormulaR1C1 = "=IF(RC[-5]<=30,IF(RC[-7]>0.23,""fout"",""goed""),""goed"")"
    .AutoFill Destination:=Range("R3:R" & LastRow)
End With

Je bepaalt eerst de laatste regel van kolom R en daarna ga je diezelfde kolom vullen.
Weet je zeker dat dat goed is?
 
Bij mij werkt het ook prima, zij het dat een integer maar tot 32.768 gaat.
Altijd declareren als 'long'.

Ook kan de formule wel iets anders volgens mij.
Code: 
Dim LastRow As Long
LastRow = Range("R" & Rows.Count).End(xlUp).Row
With Range("R3")
   .Formula = "=IF(and(RC[-5]<=30,RC[-7]>0.23),""fout"",""goed"")"
   .AutoFill Destination:=Range("R3:R" & LastRow)
 End With
 
Waar zat de fout?
 
Harry, in eerste instantie heeft de "+1" gewerkt. Maar ik ga ook zeker de "Long" even proberen! Heb er alleen nog geen tijd voor gehad. Rapportages moesten af, maar heb nu wat tijd om te finetunen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan