Excel VBA - automatização de encontrar dados em uma planilha (find) e colocar em outra

[Midori]

Pode postar o print da tabela da aba Produtos?

[isabela queiroz]

@Midori ta assim, só mudei a cor em cima

[Midori]

@isabela queiroz Suas planilhas estão com as tabelas assim nestas colunas? E com os filtros ativados?

 

 

[isabela queiroz]

@Midori pior que estão 

 

 

4 minutos atrás, isabela queiroz disse:

@Midori pior que estão 

 

 

 

 

agora foi mas  ta colando o nome junto 

4 minutos atrás, isabela queiroz disse:

 

 

 

 

 

 

 

[Midori]

@isabela queiroz Se quer pegar a partir da coluna C, pode editar a linha do comando Copy,

 

Busca.Offset(0, 1).Resize(1, 41).Copy

 

[isabela queiroz]

@Midori

agora, Midori disse:

@isabela queiroz Se quer pegar a partir da coluna C, pode editar a linha do comando Copy,

 

Busca.Offset(0, 1).Resize(1, 41).Copy

 

beleza! olha to tentando fazer a tabela de produtos ser copia da sheet1 pra depois ficar mais fácil caso apareça mais produtos em outros casos, que ai eu só precisaria fazer a parte do tamplete da tabela "produtos" como voce colocaria? tava colocando assim mas acho que vai da errado por ter que mudar o nome da tabela 

1 minuto atrás, isabela queiroz disse:

@Midori

beleza! olha to tentando fazer a tabela de produtos ser copia da sheet1 pra depois ficar mais fácil caso apareça mais produtos em outros casos, que ai eu só precisaria fazer a parte do tamplete da tabela "produtos" como voce colocaria? tava colocando assim mas acho que vai da errado por ter que mudar o nome da tabela 

e na verdade no fim do codigo eu precisava que ficasse assim 

 

basicamente com o "SKU" de cada produto na frente onde ta ficando o nome eu queria que ficasse o sku

 

[isabela queiroz]

Em 12/09/2022 às 16:33, isabela queiroz disse:

@Midori

beleza! olha to tentando fazer a tabela de produtos ser copia da sheet1 pra depois ficar mais fácil caso apareça mais produtos em outros casos, que ai eu só precisaria fazer a parte do tamplete da tabela "produtos" como voce colocaria? tava colocando assim mas acho que vai da errado por ter que mudar o nome da tabela 

e na verdade no fim do codigo eu precisava que ficasse assim 

 

basicamente com o "SKU" de cada produto na frente onde ta ficando o nome eu queria que ficasse o sku

 

 

esse foi o mais longe que eu cheguei

 

Sub Atualiza()
    Dim Produto As Range
    
    Set Produto = ThisWorkbook.Sheets("Produtos").[A2]
    

    Sheets("Sheet1").Select
    Columns("C:C").Select
    ActiveSheet.Range("$A$1:$C$1048259").AutoFilter Field:=3
    Selection.Copy
    Sheets("Produtos").Select
    Columns("A:A").Select
    ActiveSheet.Paste
    'ActiveWindow.SmallScroll Down:=-12
    
    ActiveSheet.Range("A1:C1000").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

    
    While Produto <> ""
        Call CopiaProduto(Produto, Produto(1, 2))
        Set Produto = Produto(2)
    Wend
    
    
    
    
    
End Sub

Sub CopiaProduto(ByVal Produto As String, ByVal Template As String)
    Dim Area    As Range
    Dim Busca   As Range
    
    Set Area = ThisWorkbook.Sheets("Sheet1").[A1].CurrentRegion
    Call Area.AutoFilter(Field:=3, Criteria1:=Produto)
    Set Area = Area.Resize(Area.Rows.Count, 1)
    
    If Area.Offset(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
        Set Busca = ThisWorkbook.Sheets("TEMPLATE_PESO_MEDIDA").[B:B].Find( _
            What:=Template, LookIn:=xlValues, LookAt:=xlWhole)

        If Not Busca Is Nothing Then
            Set Area = Area.Resize( _
                Area.Rows.Count - 1, 1).Offset(1, 3).SpecialCells(xlCellTypeVisible)
            
            Busca.Resize(1, 42).Copy
            Area.PasteSpecial xlPasteValues
            Application.CutCopyMode = False
        End If
    End If
End Sub