Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Criar linhas de aco...
 
Notifications
Clear all

Criar linhas de acordo com a mesclagem

 
2024 - VBA & Macros
Post Recente por Jhonata01 5 anos atrás
2 Posts
1 Usuários
0 Reactions
743 Visualizações
RSS
 Jhonata01
(@jhonata01)
Posts: 2
New Member
Topic starter
 

Prezados,
bom dia!
Venho aqui neste fórum, procurar uma possível ajuda de vossos membros.

Eu possuo duas planilhas:

PLANILHA A:
Possui
referencia1 - 1° coluna
referencia2 - 2° coluna
valores - 3° coluna

PLANILHA B:
Possui
referencia1 - 6° coluna

Meu problema:
Eu preciso pesquisar na PLANILHA A, a referencia2 e os valores e colar na PLANILHA B usando como base de pesquisa a referencia1 que constam em ambas planilhas.
Acontece que,
Na planilha A, os valores e a referencia2 estão em mais de uma linha, e o valor base a ser pesquisado (referencia1) está mesclado.

Na planilha B, só existe 1 linha para cada referencia.

eu precisava de algum macro que além de pesquisar as referencia na planilha A, ele copie todas as linhas ao lado da celula mesclada e cole ao lado da referencia1 na planilha B e crie as linhas abaixo necessárias, sem substituir nada já existente.

Agradeço pela ajuda!!

 
Postado : 21/11/2019 4:03 pm
 Jhonata01
(@jhonata01)
Posts: 2
New Member
Topic starter
 

Boa tarde!
Alguém poderia me dar uma luz, por favor?
Eu consegui uma macro para criar x linhas abaixo de uma condição especifica.. não é o que eu queria, mas já me ajuda.

Sub AdicionaLinhaBranco()


  Dim strValorProcurado As String
  Dim wks As Worksheet
  Set wks = ThisWorkbook.Sheets("1")
  
  
  strValorProcurado = "condição"
  
  Do
  
    Set c = wks.Range("A1:A100").Find(strValorProcurado, lookat:=xlWhole)
    
    If Not c Is Nothing Then
      
      c.Value = c.Value & "-Verificado"
      wks.Range(wks.Cells(c.Row + 1, 1), wks.Cells(c.Row + 2, 1)).EntireRow.Insert
      
    Else
      Exit Do
    End If
    
  Loop
  
  wks.Range("A1:A100").Replace "-Verificado", "", xlPart
  
End Sub

Mas a formula matricial não está funcionando para puxar meus dados.

=SEERRO(ÍNDICE(Plan2!$A$3:B6;MENOR(SE(Plan2!$A$3=Plan1!$F$4;LIN(Plan2!A1:A999)-LIN(A1));LIN(A2));2);"")

NO A3=PLAN até o A6=PLAN, está a referencia1 mesclada, juntamente ao lado direito com a referencia2 e valores.
ao acrescentar mais uma linha, com outra referencia1, ele não puxa os dados delas.

 
Postado : 02/12/2019 1:35 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico