try this
Sub fillformula()
Dim lngLastRow As Long
Dim lngLastCol As Long
Dim wksAudit As Worksheet
Dim rnglookup As Range
Dim rngCriteria
Dim rngCell As Range
Set wksAudit = ThisWorkbook.Worksheets("Audit details")
Set rnglookup = wksAudit.UsedRange
Set rngCriteria = Sheet2.UsedRange.
moreover priti..
its working if C3 is Countsame way i need to calculate for Error.
Thanks & Regards,
Prabhu R
On 19 March 2014 14:35, Prabhu Pinky wrote:
> great...thanks priti..
>
>
> but the range you mentioned I3:I54... it could be vary.. its not dynamic.
>
>
> Thanks & Regards,
> Pra
great...thanks priti..
but the range you mentioned I3:I54... it could be vary.. its not dynamic.
Thanks & Regards,
Prabhu R
On 19 March 2014 13:08, priti verma wrote:
> HI,
> If you want to put formula by vba please try this
>
> Sub fillformula()
> Dim lngLastRow As Long
> Dim lngLastCol As
HI,
If you want to put formula by vba please try this
Sub fillformula()
Dim lngLastRow As Long
Dim lngLastCol As Long
lngLastRow = Sheet2.UsedRange.Rows.Count
lngLastCol = Sheet2.UsedRange.Columns.Count
Sheet2.Range("d3").Formula = "=iferror(if(" & Range("c3").Address(0, 1)
& "=" & """