Este fórum está sendo desativado

[Burucaweb]

Na célula A1 temos a foto "BUR17MMSJ00702" e na célula B1 temos o número 621, certo?
Nas células A2 e A3, temos as fotos "BUR17MMSJ00703" e "BUR17MMSJ00704". Como as células B2 e B3 estão vazias. o Excel deve preenche-las com o número da célula B1, ou seja 621.
Quando encontrar outra célula preenchida, se existirem células vazias abaixo, o Excel deve preenche-las com o mesmo número da célula preenchida. Assim sucessivamente até o final da planilha.

Um abraço
José Carlos

[Burucaweb]

Na célula A1 temos a foto "BUR17MMSJ00702" e na célula B1 temos o número 621, certo?
Nas células A2 e A3, temos as fotos "BUR17MMSJ00703" e "BUR17MMSJ00704". Como as células B2 e B3 estão vazias. o Excel deve preenche-las com o número da célula B1, ou seja 621.
Quando encontrar outra célula preenchida, se existirem células vazias abaixo, o Excel deve preenche-las com o mesmo número da célula preenchida. Assim sucessivamente até o final da planilha.

Um abraço
José Carlos

[Burucaweb]

Desculpe acabei enviando a mensagem duas vezes.

[FelipeMGarcia]

José Carlos,

Veja se agora ficou melhor.

Abs

[Burucaweb]

Não seria assim. Será que você não está pegando a planilha errada?
Enviei duas planilhas, uma planilha original, onde eu digitei os números e outra planilha preenchida, como o Excel deve preencher.
Vou reenviar as duas.

Um abraço

José Carlos

[Burucaweb]

O que está em vermelho na planilha preenchida é o que o Excel deve fazer. Compare as duas planilhas e verá que o que está escrito em preto na planilha preenchida é idêntico a planilha original.

Um abraço
José Carlos

[Niltoncsp]

Senhor José Carlos, acho que tenho a sua resposta. O código é esse aí logo abaixo:

Sub Preencher01()
Lin = 7
Do While Cells(Lin, 1).Value <> ""
If Cells(Lin + 1, 1).Value <> "" And Cells(Lin, 2).Value <> "" And Cells(Lin + 1, 2).Value = "" Then

Range(Cells(Lin, 2), Cells(Lin, 5)).Select
Selection.Copy

Range(Cells(Lin + 1, 2), Cells(Lin + 1, 5)).Select
ActiveSheet.Paste
Selection.Font.ColorIndex = 3

End If
Lin = Lin + 1
Loop

Range("F1").Select
Application.CutCopyMode = False
End Sub

Segue abaixo o link da vídeo resposta com as explicações necessárias:
https://youtu.be/9HG_Wkcgw2c

Veja se realmente é o que desejava!

Abraços;
Niltoncsp.

[Niltoncsp]

Senhor José Carlos, acho que tenho a sua resposta. O código é esse aí logo abaixo:

Sub Preencher01()
Lin = 7
Do While Cells(Lin, 1).Value <> ""
If Cells(Lin + 1, 1).Value <> "" And Cells(Lin, 2).Value <> "" And Cells(Lin + 1, 2).Value = "" Then

Range(Cells(Lin, 2), Cells(Lin, 5)).Select
Selection.Copy

Range(Cells(Lin + 1, 2), Cells(Lin + 1, 5)).Select
ActiveSheet.Paste
Selection.Font.ColorIndex = 3

End If
Lin = Lin + 1
Loop

Range("F1").Select
Application.CutCopyMode = False
End Sub

Segue abaixo o link da vídeo resposta com as explicações necessárias:
https://youtu.be/9HG_Wkcgw2c

Veja se realmente é o que desejava!

Abraços;
Niltoncsp.

[Burucaweb]

Boa tarde Niltoncsp,
Mestre, o código que enviaste funcionou perfeitamente, era bem isto que eu precisava.
Fiz apenas quatro pequenas alterações:
1- retirei o painel superior que estava congelado pra poder inserir dados desde a linha 1.
2 - Alterei o código da linha inicial 7 pra 1.
3 - Ampliei o range de colunas que o código abrange de 5 pra 16.
4- Alterei a cor de texto de 3 pra 1.
No demais tudo ficou perfeito.
Muito obrigado pela ajuda, vai ajudar muito no meu trabalho.
Quero agradecer também os outros membros (gfranco e FelipeMGarcia), do Guru do Excel que também tentaram me ajudar.

Um grande abraço
José Carlos