Executar Autofill

Mensagens : 4 Data de inscrição : 02/11/2011

Olá,

Necessito de ajuda com uma macro para correr um autofill.

A célula inicial será sempre a mesma sendo que só a final varia.
O autofill deverá terminar na célula indicada em A1.

Dim lastrow As String

lastrow = Cells(1, 1)
Selection.AutoFill Destination:=Range("A5", lastrow), Type:=xlFillDefault

Alguém me pode dizer porque é que não está a assumir a variável?
Obrigado

Assunto: Re: Executar Autofill Qua Nov 02, 2011 9:11 pm

Boa tarde!!!

Consegue adaptar essa linha...?

Código:: Sub lastrow()
Dim lastrow As Long

lastrow = Worksheets("sheet1").Range("E8").End(xlDown).Row
With Worksheets("Sheet1").Range("F8")
.AutoFill Destination:=Range("F8:F" & lastrow&)
End With
End Sub

Caso contrario poste sua planilha com detalhes...

Assunto: Re: Executar Autofill Qua Nov 02, 2011 9:21 pm

Seja bem vindo!!!
Tenta com base neste exemplo...

Código:: Public Sub MyAutoFill()
'by AutomateExcel.com

'Declare range Variables
Dim selection1 As Range
Dim selection2 As Range

'Set range variables = their respective ranges
Set selection1 = Sheet1.Range("A1:A2")
Set selection2 = Sheet1.Range("A1:A20")
'Autofill
selection1.AutoFill Destination:=selection2

End Sub

Abraços

» Executar PLaylist em WMPlayer via VBA
» Não executar codigo ao abrir
» executar macro em segundo plano:
» Executar macro apenas num livro
» Valor em células para executar macro