Ir ao conteúdo

Posts recomendados

Postado

existe duas planilhas,  uma com os dados e outra com um tamplete que precisa ser preenchido.

 

na planilha com os dados, preciso que por VBA a MACRO encontre o texto "PN" desça uma casa e copie ate o final das celulas preenchidas.

 

utilizei 

With rngProcura
    Set rngPN = .Find(what:="PN", LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
    If Not rngPN Is Nothing Then
        colunaPN = rngPN.Column
    End If
    
End With

 

porém não sei da continuidade no codigo para fazer o codigo, não sei se utilizo ultcell e como seleciono esses dados abaixo do "PN", depois preciso colar esses dados em outra planilha que preciso que encontre o campo "Item Number" 

e cole uma celula abaixo desse "item number" 

  • 2 semanas depois...
Postado
Em 14/10/2022 às 13:56, Basole disse:

@isabela queiroz se o que deseja copiar o que está abaixo de PN, ou seja a uma linha abaixo, utilize referenciando o endereço da linha e a respectiva coluna:

 

 

Cells(rngPN.Row+1, Coluna)

 

 

 

 

 

 

como eu utilizo esse "cells(rngPN.row+1.. ?

não sei onde colocar ele do codigo

 

tenho um passo a passo do que precisa ser feito 

 

'primeiro abrir a planilha "BOM.CO" pegar os "PN"  ex. "NXH - 2.4.1.20.0470"  DO SHEET "Details" e pesquise na planilha "Pier Distribution"
'encontrar o "NXH - 2.4.1.20.0470" e ver embaixo dele quais infos estão preenchidas
'reconhecer e copiar as info da frente da linha que estiver preenchida (tirar os repetidos)
'colar no item number da planilha "MACRO M"

 

 

Comecei o codigo assim mas acho que não esta funcionando

Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = wb.ActiveSheet

Dim rngProcura As Range: Set rngProcura = ws.Range("A1:XFD1048576")
Dim rngPN As Range
Dim colunaPN As Long


    Windows("BOM.CO").Activate 'SELECIONANDO A PLANILHA DA JANELA DO PROJETC BOM.CO
    Sheets("Details").Select
    

    Cells.Find(what:="PN", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
        
        
       With rngProcura
    Set rngPN = .Find(what:="PN", LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
    If Not rngPN Is Nothing Then
        colunaPN = rngPN.Column
    End If
    
End With

'Cells(rngPN.Row+1, Coluna)

 

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!