Loop com critérios
Enviado: 16 Mar 2020 às 11:34
Bom dia a todos !
Pessoal, estou tentando com um loop puxar informações de outra aba, mas não estou conseguindo ! Se alguém puder ajudar, agradeço !
A partir de um inputbox, a macro vai importar todas as referências desse forma base para a aba anterior !
Segue o código abaixo e a planilha exemplo em anexo !
'Apaga Referências que estão na planilha
Sheets("Base").Select
Range("BY5504:BY5513").ClearContents
Dim incluir As Variant
incluir = InputBox("Qual forma base a distribuir ?", "Controle distribuição grade")
'Range("BY5498").Select
'ActiveCell.Value = incluir
'Loop puxa somente sku´s da ref base informada
ultimalinha = Plan5.Cells(Rows.Count, "I").End(xlUp).Row
Lin = 5504
For i = 5504 To ultimalinha
If Plan5.Cells(i, 9) = incluir Then
Plan2.Cells(Lin, 77) = Plan5.Cells(i, 3)
Lin = Lin + 1
End If
Next
Pessoal, estou tentando com um loop puxar informações de outra aba, mas não estou conseguindo ! Se alguém puder ajudar, agradeço !
A partir de um inputbox, a macro vai importar todas as referências desse forma base para a aba anterior !
Segue o código abaixo e a planilha exemplo em anexo !
'Apaga Referências que estão na planilha
Sheets("Base").Select
Range("BY5504:BY5513").ClearContents
Dim incluir As Variant
incluir = InputBox("Qual forma base a distribuir ?", "Controle distribuição grade")
'Range("BY5498").Select
'ActiveCell.Value = incluir
'Loop puxa somente sku´s da ref base informada
ultimalinha = Plan5.Cells(Rows.Count, "I").End(xlUp).Row
Lin = 5504
For i = 5504 To ultimalinha
If Plan5.Cells(i, 9) = incluir Then
Plan2.Cells(Lin, 77) = Plan5.Cells(i, 3)
Lin = Lin + 1
End If
Next