EXCEL VBA DO LOOP UNTIL - LAÇO de REPETIÇÃO + ANÁLISE com IF 

De nada.

Bom dia, obrigado, acredito que a estrutura de análise vai ser semelhante.

@@CanalSGP With Planilha9 Do Linha = Linha + 1 Loop Until .Cells(Linha, 11).Value = "" .Cells(Linha, 11).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Aqui eu não estou conseguindo fazer com que ela use a coluna 2 como referencia e cole o mesmo resultado em loop até o final da planilha na coluna 11. Do jeito que está, ela está somente identificando a ultima linha vazia na coluna 11 e colando uma vez só.

Boa tarde, se deseja a coluna 2 altere onde tem 11 para 2

Obrigado

Boa tarde, pode solicitar a planilha de exemplo no e-mail do site do canal, link na descrição do vídeo.

Boa noite, acredito que o Loop Until vai atender a necessidade, porque pode colocar ifs dentro e analisar mais de uma coluna ao mesmo tempo.

Bom dia, teste colocar With Activesheet

Bom dia, infelizmente não fiz código com funções semelhantes até o momento.

Boa tarde, já recebi esta dúvida algumas vezes, mas não consegui desenvolver algo viável ainda.

@@CanalSGP Consegui esses 2 dois códigos abaixo, 1º com desenvolvido com "IA", não envia tudo de uma só vez, envia com uma certa quantidade, mas, funciona certinho. Já o 2º é seria perfeito, porém, está tendo um pequeno probleminha, nele consta o link do vídeo. 1º CÓDIGO -------------------------------------------------------------- Sub TransferirTodosDados() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim rng1 As Range Dim rng2 As Range Dim cel As Range Dim crit As String ' Defina as planilhas Set ws1 = ThisWorkbook.Sheets("REGISTRO") Set ws2 = ThisWorkbook.Sheets("SAIDAS") ' Defina o critério (por exemplo, "Valor X") crit = "SAÍDA" ' Defina o intervalo de dados na coluna D da Planilha1 Set rng1 = ws1.Range("G1:G" & ws1.Cells(ws1.Rows.Count, "G").End(xlUp).Row) ' Percorra cada célula na coluna D da Planilha1 For Each cel In rng1 If cel.Value = crit Then ' Copie a linha inteira para a Planilha2 cel.EntireRow.Copy ws2.Cells(ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row + 1, 1) ' Exclua a linha da Planilha1 cel.EntireRow.Delete End If Next cel End Sub ----------------------------------------------------------------------------- 2º CÓDIGO Sub Transferir_Saidas() Dim LinhaPlan1, LinhaPlan2 As Long Dim ColunaPlan2 As Integer inicio: LinhaPlan1 = 2 While Planilha2.Range("A" & LinhaPlan1).Value "" If Planilha2.Range("G" & LinhaPlan1).Value = "SAÍDA" Then LinhaPlan2 = 2 While Planilha7.Range("A" & LinhaPlan2).Value "" LinhaPlan2 = LinhaPlan2 + 1 Wend For ColunaPlan2 = 1 To 51 Planilha7.Cells(LinhaPlan1, ColunaPlan2).Value = Planilha2.Cells(LinhaPlan1, ColunaPlan2).Value Next ColunaPlan2 Planilha2.Cells(LinhaPlan1, ColunaPlan2).EntireRow.Delete GoTo inicio End If Wend LinhaPlan1 = LinhaPlan1 + 1 'ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-RP3KSSqOTDQ.html End Sub

Que bom que conseguiu.

@@CanalSGP obrigado

Boa tarde, teste gravar uma macro para capturar o código fazendo o processo de forma manual. Depois pode acrescentar o código a sua macro que salva o registro.

Bom dia, obrigado, não tentei fazer algo assim ainda.

Bom dia, o ponto é porque referenciei a guia da planilha com With, portanto não preciso repetir o nome da guia, mas dentro do with precisa colocar ponto para informar que se trata da guia do with.

Obrigado, Professor!

De nada.

Boa noite, não fiz algo semelhante ainda, não sei dizer se é possível.

Boa noite, acredito que vai precisar utilizar o comando copy, segue like de vídeo sobre esse tema. ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-ynrEzQMmwbI.html

@@CanalSGP obrigado

De nada

Bom dia, não tentei algo assim ainda, mas vou estudar se tem como.

Bom dia, pode colocar um número de linhas fixo para saída do loop, por exemplo: Do until Linha = 100 Vai fazer o laço até a linha 100 e parar.

@@CanalSGP obrigado deu certo, só fiquei na dúvida se eu quiser usar um If para data específica, eu colocaria assim ? Exemplo If .Cells (Linha,38).Value < “01/01/1900” then Erro = MsgBox …

Boa tarde, provavelmente vai precisar transformar a data comparativa em número.

Bom dia, não fiz procedimento assim ainda.

@@CanalSGP estou quebrando cabeça, consigo fazer toda a lógica do loop, o problema é que o loop é tão rápido que trava o carregamento da consulta, e sem este carregamento não tem como fazer a análise dos dados. Se puder me dá uma luz ficarei eternamente grato com vc.

Boa noite, talvez o que possa fazer é transferir os dados para uma array no VBA e posteriormente fazer a consulta no array.

Bom dia, pode ser um Loop de fato sem do ou um if que está sem o end if

Bom dia, depende e quais objetos vai utilizar na análise.

Bom dia, segue link de vídeo sobre localizar próxima linha vazia. ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-7xYugUHnf78.html

Boa tarde, com encomendas não trabalho mais, estou trabalhando para uma empresa agora.

Obrigado

Bom dia, não fiz algo semelhante ainda, com fórmulas talvez com a função se, mas como se trata de hora provavelmente vai precisar colocar mais uma coluna e transformara a data em hora.