Página 1 de 1
Macro preenchimento Automatico
Enviado: 26 Mai 2022 às 20:25
por mdiego
Boa noite!
A meses estou quebrado a cabeça com um preenchimento automático, não consegui desenvolver nada, espero que alguém possa me dar uma luz e me ajudar.
Eu tenho uma planilha (formulário) onde possui vários códigos, preciso preencher com as operações e o tempo que estão na aba da planilha base.
Há mais informações no arquivo. Desde já agradeço.
At.te,
Re: Macro preenchimento Automatico
Enviado: 26 Mai 2022 às 23:57
por osvaldomp
Olá, @mdiego .
1. na planilha Base os dados que estão na coluna Código aparecem na coluna Descrição na RESULTADO ESPERADO.
Foi engano ou confirma que esse é o resultado desejado ?
2. na planilha DESENVOLVIMENTO o código que está em B6 será deslocado para B12.
Para evitar essa operação os códigos não poderiam inicialmente ficar em A4, A5, ..., eles seriam replicado na coluna B e por último seriam apagados na coluna A ?
Idem para os que estão em B22 e B26.
3. explique o que você quer dizer com "preenchimento automático". Seria preencher após que operação manual ?
Por exemplo, você pode inserir manualmente o código em B4 e a macro preencher as colunas D, G:H via evento WS_Change ?
Re: Macro preenchimento Automatico
Enviado: 27 Mai 2022 às 06:20
por mdiego
Osvaldo, Bom dia!
Suas observações estão corretas, foi um engano. O que eu chamo de preenchimento automático é colocar os códigos e as demais colunas serem preenchidas com as informações que estão na base.
Obrigado!
Re: Macro preenchimento Automatico
Enviado: 27 Mai 2022 às 09:24
por osvaldomp
Olá,
@mdiego .
Veja se o código abaixo lhe serve.
O "preenchimento automático" será executado pelo código após a inserção manual de um código na coluna B da planilha DESENVOLVIMENTO.
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim cód As Range, k As Long
If Target.Count > 1 Then Exit Sub
If Target.Column <> 2 Or Target.Value = "" Then Exit Sub
Set cód = Sheets("Base").[B:B].Find(Target.Value, lookat:=xlWhole)
If cód Is Nothing Then: MsgBox "Código não encontrado": Exit Sub
k = Application.CountIf(Sheets("Base").[B:B], Target.Value)
Sheets("Base").Cells(cód.Row, 3).Resize(k, 6).Copy Target.Offset(, 1)
End Sub
Re: Macro preenchimento Automatico
Enviado: 27 Mai 2022 às 17:45
por mdiego
Olá @osvaldomp , ficou excelente. Apesar de ter que preencher manual, mas já vai me economizar um tempo.
Obrigado!
Re: Macro preenchimento Automatico
Enviado: 27 Mai 2022 às 19:45
por osvaldomp
mdiego escreveu: ↑27 Mai 2022 às 17:45
Apesar de ter que preencher manual, ...
Não entendi. 
Preencher manualmente exatamente o quê ? Em quais células ? Em quais planilhas ?