Este fórum está sendo desativado

[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,

[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 ?

[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!

[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 todos

Private 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

[mdiego]

Olá @osvaldomp , ficou excelente. Apesar de ter que preencher manual, mas já vai me economizar um tempo.

Obrigado!

[osvaldomp]

Apesar de ter que preencher manual, ...
Não entendi.
Preencher manualmente exatamente o quê ? Em quais células ? Em quais planilhas ?