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 | 
 

 Ajuda Urgente - Range em Macro

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



Mensagens : 2
Data de inscrição : 04/08/2013

MensagemAssunto: Ajuda Urgente - Range em Macro   Dom Ago 04, 2013 11:00 pm

Prezados, preciso muito da ajuda de voces.

Tenho o seguinte código:

Sheets("BI").Range("tbBaseIn[#All]").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("A1:A2"), CopyToRange:=Range( _
"A18:H30000"), Unique:=False

Sheets("BO").Range("tbBaseOut[#All]").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A18:H30000"), Unique:=True

Pra cada atualização em uma determinada célula (a1, a2) ele vai na tabela BI e copia os dados que estão la e cola na minha tabela atual. Isso quando o cabeçalho é igual ao que tá lá (range = a18). Perfeito.
Porém tenho a seguinte dificuldade, preciso que ao terminar de copiar os dados da sheet BI ele vá para a ultima linha preenchida na coluna A e faça o mesmo para a sheet Bo. É aí que aparece meus problemas:

1 - Preciso que para a Sheet BO ao inves de definir A18 a H30000 ele pegue a coluna A , ultima linha.
2 - Outra dificuldade. Meu cabeçalho está na A18. Sendo assim para a sheet BO, ele deveria trazer o que está na tbBaseOut para a minha tabela atual levando em consideração o que está na A18 porém copiando para a linha atual.

Alguem para ajudar?
Abs,
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: Ajuda Urgente - Range em Macro   Dom Ago 04, 2013 11:12 pm

Boa tarde!!

Usar título com "urgente" não é coerente!!!No 

Poste seu arquivo em site gratuito como sendspace ou outros e nos mande o link!!

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
inavoigfm



Mensagens : 2
Data de inscrição : 04/08/2013

MensagemAssunto: Re: Ajuda Urgente - Range em Macro   Dom Ago 04, 2013 11:25 pm

Meu caro, obrigado pela resposta.

Urgente é porque realmente é urgente. Estou há vários dias trabalhando na função e tenho deadline para concluir o trabalho que é extremamente curto.

O código está assim

Sheets("BI").Range("tbBaseIn[#All]").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A18:H30000"), Unique:=False
LRow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

Sheets("BO").Range("tbBaseOut[#All]").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A" & LRow & ":H30000"), Unique:=True

O problema é que só me traz o conteudo da sheet BI. Da sheet BO nao traz porque a ultima linha LROW nao contem o cabeçalho da sheet A18. Este é o problema. Ele deveria verificar se o cabeçalho da sheet b0 é igual ao cabeçalhado da sheet atual que estou mexendo e ai ir pra ultima linha e copiar la o conteudo. Ele faz diferente, ele vai na ultima linha e busca o cabeçalho como no caso da A18 mais la nao vai encontrar.

Abs,
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Ajuda Urgente - Range em Macro   Hoje à(s) 5:16 am

Voltar ao Topo Ir em baixo
 
Ajuda Urgente - Range em Macro
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [ajuda urgente!] como banir usuários permanentemente?
» Ajuda urgente, sistema de registro do fórum está apresentando problemas.
» #Ajuda Urgente
» [Resolvido]Ajuda URGENTE ! Mikrotik + Radio Airlive 5460V2 Trbalhando em AP+WDS !
» # Ajuda Urgente # Configuração NanoStation M5

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: