Help with autofill

[polska2180]

Hello,

below is a part of the code im using. I want this code to be flexible enough so that any range of data will work with it. Thus I want the autofill part to not be limited to N2:n1860. I may have data thats only N2:n100 or n2:n3000.


Selection.AutoFill Destination:=Range("N2:N1860")
Range("N2:N1860").Select
Range("O2").Select
Selection.AutoFill Destination:=Range("O2:O1860")
Range("O2:O1860").Select
Columns("O:O").Select
Selection.Style = "Percent"
Columns("N:N").Select
Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Columns("N:N").EntireColumn.AutoFit
Range("M:M,K:K,J:J,F:F").Select

What code would I use to popup the save as window at the end of my code?

Thanks for the help

 

[Norie]

How would you be determining the row to fill to?

 

[polska2180]

Well a report is run on monthly basis and it varies with the number of rows. I'm trying to write a script that would be used by various users throughout my company. I need to make this very simple for them to use as most of them don't know computer at all.

 

[Norie]

So how would you determine the row to fill to?

Is it based on data in a particular column?

 

[polska2180]

Basically, using VBA I want the autofill to only go as far as column M goes.

 

[polska2180]

Okay i got part of the way with this code which i didn't write but works on one column, i need it done on three columns

Dim DestinationRng, OriginalRng As Range

Dim end_row As Integer
end_row = Sheets("Sheet1").Range("a65536").End(xlUp).Row

Set DestinationRng = Sheets("Sheet1").Range("H2:H" & end_row)
Set OriginalRng = Range("H2")

OriginalRng.AutoFill Destination:=DestinationRng, Type:=xlFillDefault

I get a error: Duplicate declaration in current scope., when I use this code for all three columns.

Help with fixing the code so that it can be used for three columns where I would replace H with N and O.

Thanks for the help

 

[pooj_malh]

Hi ,
i have a problem autofilling my sheet with variable row data.

Did you got a solution?

Please let me know how to autofill the data.

This is my code

Sub Time_macro()
'
' Time_macro Macro
' Macro recorded 9/27/2006 by Herbst
'

'
    Range("C22").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=RC1+R16C2/86400"
    Range("C22").Select
    Selection.NumberFormat = "h:mm:ss.000 AM/PM"
    Range("C22").Select
    Selection.ClearContents
    ActiveCell.FormulaR1C1 = "=R16C2+RC1/86400"
    Range("C22").Select
    Selection.AutoFill Destination:=Range("C22:C521")
    Range("C22:C521").Select
End Sub

Regards

 

[polska2180]

I didn't get a solution yet

 

[pooj_malh]

I got my thing working


Yahoooooooooooooooooo

 

[Norie]

polska2180

Can you post the code that's giving the error?

pooj_malh

Can you post your working code?

It might help polska2180 or other board members.