marco acv,

Bom dia!

O códigos VBA devem ser inseridos aqui no fórum entre as TAG CODE.

Olá,

como faço isso? "O códigos VBA devem ser inseridos aqui no fórum entre as TAG CODE"

Só informar a macro como eu fiz não serve?

Marco

Conforme as regras do fórum, o título deve ser um resumo da dúvida, não sendo permitido usar termos como "ajuda", pois atrapalha a ferramenta de pesquisa do fórum.
Favor ler as regras do fórum acessando o link abaixo:
viewtopic.php?f=7&t=203

Para utilizar a ferramenta Code é muito simples, é só selecionar o código e clicar na ferramenta Code.
(No código que você postou eu já apliquei a ferramenta Code).

[]s

Patropi - Moderador

Na imagem anexa, contém mais dados para entendimento dos colegas.

A imagem é inútil, disponibilize uma amostra do seu arquivo Excel com o código instalado.

Prezados,

Segue planilha contendo o código.

Preciso fazer com a macro entenda que os dados agora estão na linha2, a partir da coluna A.

Muito obrigado a todos!

Atenciosamente,
Marco

Private Sub CommandButton1_Click()
 Dim cod As Range, codAdd As String, m As Long, p As String, c As Long, pr As Range, r As Long
  r = Cells(Rows.Count, 16).End(3).Row
   Set cod = Rows(r).Find("<cod>", lookat:=xlWhole)
     If Not cod Is Nothing Then
      codAdd = cod.Address
       Do
        c = Application.Match("<produto>", Rows(r), 0) + cod.Column - 1
        p = Cells(r, c + 1)
        m = Sheets("meu cadastro").Cells(Rows.Count, 4).End(3).Row
        For Each pr In Sheets("meu cadastro").Range("D2:D" & m)
          If LCase(p) Like "*" & LCase(pr.Value) & "*" Then
          cod.Offset(, 1).Value = Sheets("meu cadastro").Cells(pr.Row, 2)
          Exit For
         End If
        Next pr
        Set cod = Rows(r).FindNext(after:=cod)
       Loop While cod.Address <> codAdd
     End If
End Sub

Osvaldo,

Peço desculpas, muitas desculpas mesmo (eu informei a planilha errada para você )

Na meio de tantas coisas para resolver eu acabei informando a planilha errada, por favor, me desculpe.

Segue a planilha correta (tudo é quase igual, porém a única diferença é os sinais <>), eles não existem na planilha

Seria mais ou menos assim:

Exemplo errado:
<cadastro><cod>20</cod><produto>TECLADO PRETO</produto><cod>50</cod><produto>MESA VERMELHA</produto></cadastro>

Exemplo correto:
Cadastro cod 20 /cod produto TECLADO PRETO /produto cod 50 /cod produto MESA VERMELHA /produto /cadastro

Eu estou enviando a planilha correta, se for possível (POR FAVOR) você poderia me ajudar?

Eu entenderei se não for possível (eu sei eu deveria ter informado antes a planilha correta, mas devido a correria do dia a dia, eu acabei “comendo bola”)

Muito obrigado pela sua atenção e colaboração até agora.

Atenciosamente,
Marco

Na meio de tantas coisas para resolver eu acabei informando a planilha errada, por favor, me desculpe.

Relaxe, todo gênio é distraído.

Dúvidas:
1. os dados sempre estarão na linha 2 e sempre começarão na coluna 'A' ?
2. os códigos a serem substituídos sempre estarão em 'D2' e em 'L2' ?

Se para ao menos uma das dúvidas acima a resposta for não, você precisa disponibilizar T O D A S as variações prováveis da disposição dos dados.

Olá, bom dia

Muito obrigado pela atenção, obrigado mesmo

Então, respondendo suas perguntas

1. Sim, os dados sempre vão estar na linha 2, a partir da coluna A.

2. Os códigos que serão substituídos sempre vão estar entre os campos: cod e /cod (não tem uma coluna fixa )
Pode ser d2.l2.j2. Pode ser qualquer coluna.

A planilha meu cadastro sempre será nessa condição.

Considerei:
1. dados na linha '2' a partir da coluna 'A'
2. código do produto à direita do campo "cod" e nome do produto à direita do campo "produto"
3. a existência de 2 produtos entre os dados

testaí:

Private Sub CommandButton1_Click()
 Dim cod As Long, m As Long, p As String, c As Long, pr As Range
  For m = 1 To 2
   cod = Rows(2).Find("cod", after:=Cells(2, cod + 1), lookat:=xlWhole).Column
    c = Rows(2).Find("produto", after:=Cells(2, cod + 1), lookat:=xlWhole).Column
     p = Cells(2, c + 1)
      For Each pr In Sheets("meu cadastro").Range("B2:B" & Sheets("meu cadastro").Cells(Rows.Count, 2).End(3).Row)
        If LCase(p) Like "*" & LCase(pr.Value) & "*" Then
         Cells(2, cod + 1) = Sheets("meu cadastro").Cells(pr.Row, 1)
         Exit For
        End If
      Next pr
  Next m
End Sub

Bom dia!

Osvaldo, a macro não funcionou

Em anexo, segue planilha para que você possa analisar e verificar onde foi que eu errei.

Muito obrigado pela sua ajuda e colaboração em me ajudar .

Atenciosamente,
Marco

"marco acv"
Em anexo, segue planilha para que você possa analisar e verificar onde foi que eu errei.

O último código foi preparado com base no arquivo que você disponibilizou no seu post anterior.
Agora você disponibilizou outro arquivo com lay out diferente.
Então, se você quer que o código preparado para um lay out funcione em um lay out diferente, óbvio, você precisa fazer as alterações necessárias no código.
Good lucky

Osvaldo,

Peço desculpas, eu estava usando a macro na planilha inadequada mesmo.

Eu usei na planilha correta para fazer um teste na macro, a macro funciona (substitui os códigos), porém (infelizmente tem um porém  ) a macro está invertendo os códigos dos produtos após realizar a substituição.

Em anexo segue a tela contendo detalhes (logo após eu vou enviar a planilha)

Através da imagem você vai entender o que pode estar acontecendo com a macro.

Por favor, você poderia verificar por qual motivo será que ela inverte os códigos após substituí-los?

Desde já agradeço pela sua atenção e colaboração.

Muito obrigado mesmo!

Atenciosamente,
Marco

Repetindo: o código funciona na sua amostra, que já deve ser décima quinta versão que você coloca aqui, e lá não existe nem pera e nem abacaxi.

Eu desisto de tentar te ajudar.