Hi,
I have a simple formula like;

=PattMatch(A2,MainMap!$A$12:$F$15,MainMap!$H$11:$I$17,MainMap!$A$19:$B
$24)

I have a command button to enter it into Range("C2")

How do I copy & paste it into all rows below?

Thank you for your help.

Hi,

I suspect you don't really mean all rows so change the autifill destination
to the last row you want.

Range("C2").Formula =
"=PattMatch(A2,MainMap!$A$12:$F$15,MainMap!$H$11:$I$17,MainMap!$A$19:$B$24)"
Range("C2").AutoFill Destination:=Range("C2:C31")

Mike

"ChipButtyMan" wrote:

> Hi,
> I have a simple formula like;
>
> =PattMatch(A2,MainMap!$A$12:$F$15,MainMap!$H$11:$I$17,MainMap!$A$19:$B
> $24)
>
> I have a command button to enter it into Range("C2")
>
> How do I copy & paste it into all rows below?
>
> Thank you for your help.
>
>
>
>
>
>

Excellent! Thanks Mike!

Sub Auto_Fill()
Dim Lrow As Long
With ActiveSheet
Lrow = .Range("B" & Rows.Count).End(xlUp).Row
.Range("C2:C" & Lrow).FillDown
End With
End Sub

You could use one macro to add the formula to C2 then copy down.

Sub Auto_Fill()
Dim Lrow As Long
With ActiveSheet
.Range("C2").Formula = "=PattMatch(A2,MainMap!$A$12:$F$15," & _
"MainMap!$H$11:$I$17,MainMap!$A$19:$B$24)"
Lrow = .Range("B" & Rows.Count).End(xlUp).Row
.Range("C2:C" & Lrow).FillDown
End With
End Sub



Gord Dibben MS Excel MVP

On Tue, 14 Oct 2008 12:27:47 -0700 (PDT), ChipButtyMan
<(E-Mail Removed)> wrote:

>Hi,
> I have a simple formula like;
>
>=PattMatch(A2,MainMap!$A$12:$F$15,MainMap!$H$11:$I$17,MainMap!$A$19:$B
>$24)
>
>I have a command button to enter it into Range("C2")
>
>How do I copy & paste it into all rows below?
>
>Thank you for your help.
>
>
>
>