filtering and macros

G

gerry405

thanks Dave,


I have tried the populating code as you suggested, it works fine fo
one column(only), but I can't adjust it to do more than one column
partly because I don't understand what your code is doing, more so a
the part below

ie

.Range("D2").AutoFill _
Destination:=.Range("d2:d" & LastRow)
what does "d2:d2 stand for

When I run my macro I would like to populate more than one column s
I've tried to adjust to no avail, I thought I could do the followin
with your code:

Option Explicit
Sub testme02()

Dim LastRow As Long
Dim wks As Worksheet

Set wks = ActiveSheet
With wks
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

.Range("D2").AutoFill _
Destination:=.Range("d2:d" & LastRow)

.Range("F2").AutoFill _
Destination:=.Range("d2:d" & LastRow)

.Range("L2").AutoFill _
Destination:=.Range("d2:d" & LastRow)

End With

End Sub

But this does not work, I expect you'll know why, but to me it's doubl
dutc
 
D

Dave Peterson

I'm guessing that this:
what does "d2:d2 stand for
was a typo

and you really meant:
what does "d2:d" stand for

It's easier to see with this:

Range("d2:d" & LastRow)

If the lastrow was 12345 (just for talking purposes), then

you'd get: Range("d2:d" & 12345)
or
Range("d2:d12345")
Which is column D rows 2:12345.

So I'm betting you really meant something like:

Range("F2").AutoFill _
Destination:=.Range("F2:F" & LastRow)

Range("L2").AutoFill _
Destination:=.Range("L2:L" & LastRow)

You start in L2 and finish with the last cell in column L
(lastrow=lastusedrow in column A)
 
G

gerry405

Dave,

Thanks, that now works a treat, now that I understand whats going o
with that part of the code...
 
Top