A problem on VBA

[ericvu23]

Hi everyone,
I get a problem with my VBA codes,
As you can see:

Sub Flexible_average()
Dim n As Variant
Dim q As Variant
Dim m As Variant
Dim L As Variant
n = 7
rng1 = Range("A4").Value
rng2 = Range("A5").Value
Set Wtf = Application.WorksheetFunction

For i = 0 To 25
Range("H" & n + i) = WF.Average("B" & n + i & ":B" & n + i * rng1)
Next

End Sub

It is not working, can someone help me please??

Many thanks,

 

[VoG]

Maybe

Sub Flexible_average()
Dim n As Long
Dim i As Long
Dim rng1
n = 7
rng1 = Range("A4").Value

For i = 0 To 25
    Range("H" & n + i) = WorksheetFunction.Average("B" & n + i & ":B" & n + i * rng1)
Next

End Sub

 

[ericvu23]

Hi,
Thanks but it is still not working.
Cheers,

 

[VoG]

Maybe something like this

Sub Flexible_average()
Dim n As Long
Dim i As Long
Dim rng1
n = 7
rng1 = Range("A4").Value

For i = 0 To 25
    Range("H" & n + i).Value = WorksheetFunction.Average(Range("B" & n + i & ":B" & n + i * rng1))
Next

End Sub

 

[Norie]

Try this.

Sub Flexible_average()
Dim n As Variant
Dim q As Variant
Dim m As Variant
Dim L As Variant
Dim ans
    n = 7
    rng1 = Range("A4").Value
    rng2 = Range("A5").Value

    For i = 0 To 25
        
        ans = Application.Average(Range("B" & (n + i) & ":B" & (n + i * rng1)))
        If Not IsError(ans) Then
                Range("H" & n + i) = ans 
        End If
    Next
End Sub

 

[ericvu23]

Try this.

Sub Flexible_average()
Dim n As Variant
Dim q As Variant
Dim m As Variant
Dim L As Variant
Dim ans
    n = 7
    rng1 = Range("A4").Value
    rng2 = Range("A5").Value
 
    For i = 0 To 25
 
        ans = Application.Average(Range("B" & (n + i) & ":B" & (n + i * rng1)))
        If Not IsError(ans) Then
                Range("H" & n + i) = ans 
        End If
    Next
End Sub

Thanks , i will see what it gives.

Cheers mate,