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 | 
 

 Do while BUSCAR E TRAANSFERIR

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



Mensagens : 1
Data de inscrição : 02/10/2016

MensagemAssunto: Do while BUSCAR E TRAANSFERIR   Dom Out 02, 2016 2:55 pm

Ola pessoal.

estou com a seguinte dificuldade:

tenho uma pasta de trabalho com varias Sheets (planilhas, abas).

estou querendo fazer um busca na panilha "retorno de unidade" e quando encontrar o valor igual que esta na planilha "Monitoramento". quero copiar e colar na planilha Monitoramento.

Planilha Monitoramento

os Valores de busca se encontram na coluna B a partir do range B8

OS valores DE COMPARACAO SE ENCONTRAM NA PLANILHA RETORNO DE UNIDADE

na coluna c a partir da range C3

e quero transferir os dados quando iguais da coluna D da planilha Retorno de Unidade para a Planilha Monitoramento coluna C8 em diante....

escrevi o seguinte codigo...

Sub retornomonitoramento()
            Application.ScreenUpdating = False
            Application.DisplayAlerts = False
Dim w As Worksheet
Dim w2 As Worksheet
Dim Nf As Long
   Set w = Sheets("Monitoramento")
   Set w2 = Sheets("Retorno Unidades")
'Nf = w.Range("B")
w2.Select
w2.Range("c3").Select
'===========================================================

Do While ActiveCell.Value <> ""

    If ActiveCell = Nf Then
    ActiveCell.Offset(0, 1).Value = w.Range("c8").Value
   
   
   
           End If
       ActiveCell.Offset(1, 0).Select
       
   Loop
w.Select
w.Range("A1").Select

'===================================================================



MsgBox " Retorno atualizado"

            Application.ScreenUpdating = True
            Application.DisplayAlerts = True

End Sub


QUEM PUDER AJUDAR AGRADEÇO
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Do while BUSCAR E TRAANSFERIR
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Buscar tema no hitskin
» Ferramenta "buscar"
» Como personalizar o meu "buscar" da minha página inicial?
» Buscar novo da forumeiros
» Personalizar o buscar

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: