Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Executar Autofill

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
KURLL



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

MensagemAssunto: Executar Autofill   Qua Nov 02, 2011 8:27 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: 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...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: 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 Laughing
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Executar Autofill   Hoje à(s) 10:56 am

Voltar ao Topo Ir em baixo
 
Executar Autofill
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Fazer GM executar código externo - Consegui - Porém outros problemas...
» [Resolvido] Estranho bug ao executar arquivos externos
» [Script] Exec: executar código gml de um arq. txt
» [Resolvido]VBA para executar consulta ???
» Suporte a Flash

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: