Boa tarde!! Porque que no seu arquivo modelo, na guia Sheet1, tem apenas: Projeto Peça OS Status Qnt Dado1 Dado2 Dado3 Dado4 Dado5 180 A25 1 Finaliza...

Belan, não sei se teremos ganho de performance, mas pode tentar a rotina abaixo, a diferença da a que o colega Wagner indicou, é que na rotina dele es...

Se entendi corretamente, o problema (ou demanda) é recorrente nos vários fóruns, com titulos diferentes, mas com mesmo objetivo. Veja no tóipico http&...

Agora estou no celular, assim que possível posto o arquivo, por favor de uma olhada geral e se encontrar erros por favor me avise. Obrigado!

Wagner, boa noite! funcionou a validação impede a gravação, no seu código vc colou um msgbox, copiei seu código para meu formulario mas a msgbox não e...

Uma planilha de exemplo vale por mil palavras. Se já na tua primeira mensagem, você tivesse anexado uma planilha de exemplo, provavelmente a tua dúvid...

Boa noite Rafael Eu não entendi. []s

Boa tarde!! Considerando que os dados (A, B, C, D) estão em C. Tente a formula =ÍNDICE($C$1:$C$4;MOD(LIN(A1)-1;4)+1) Arrate para baixo! Att

Boa tarde!! Eu te recomendo postar um arquivo modelo compactado, nele explicando manualmente o antes e depois do objetivo esperado!! Att

Boa tarde!! Você pode usar o SOLVER. Veja também:

Ainda bem que o código serviu de base, pois você começou se referindo a controle ComboBox, valores na planilha e finalizou com um Loop em 31 controles...

Com certeza é possível, mas como os colegas disseram o ideal é um modelo e detalhar melhor, e se entendi seria mais ou menos assim : Ressaltando que ...

Boa tarde!! Sub AleVBA_17980() Dim actionRange As Range Set actionRange = Range("A38:A51") On Error Resume Next W...

Bom dia!! Já tentou algo assim. Sub AleVBA() On Error Resume Next Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Dele...