VBA inserir LINHA intermediária na tabela Excel com método Insert do objeto Range

Para adicionar linha intermediária com todas as fórmulas originais na tabelas Excel com VBA usando o método Insert com o argumento xlShiftDown do objeto Range. Foi necessário desabilitar todos os eventos do Excel com a expressão EnableEvents com o valor falso para o código não aciona nenhum evento. Em seguida tudo ficou mais fácil. Bastou abrir um espaço na tabela para colar a linha de origem com todas as fórmulas e formatações. Uma observação importante: usamos a expressão EndxlUp para descobrir a última linha preenchida da planilha para impedir o código de funcionar abaixo da tabela o que seria desnecessário. Confira nosso vídeo! excel vba excelvba ? QUEM SOMOS: Nosso canal tem como objetivo ensinar Excel e VBA a internautas com pouco ou nenhum conhecimento sobre o assunto. VBA ou Visual Basic for Application é uma linguagem de programação que automatiza qualquer tarefa em suas planilhas. Confira! ? VÍDEOS MENCIONADOS: 00:56 min: Enable Events - ? CÓDIGO DESTE VÍDEO: Sub Lin_Inter Application.EnableEvents False Dim LinA LinU Resp LinA ActiveCell.Row LinU A1000000.EndxlUp.Row If LinA MENOR 11 Or LinA MAIOR LinU Then MsgBox Proibido inserir linha aqui. Application.EnableEvents True Exit Sub End If Resp MsgBoxIncluir linha antes da ativa? vbOKCancel If Resp vbOK Then RowsLinA.Select Selection.Insert Shift:xlDown A2:L2.Copy ActiveSheet.Paste CellsLinA 2.Select Else Application.EnableEvents True Exit Sub End If If A11.Interior.ColorIndex 15 Then Call Zebra_Sim End If Application.CutCopyMode False Application.EnableEvents True End Sub ? DOWNLOAD ARQUIVOS GRÁTIS: ? PLAYLIST PERGUNTAS DOS INTERNAUTAS: ? PLAYLIST DICAS RÁPIDAS: ? PLAYLIST PROCEDIMENTOS: ? PLAYLIST FORMULÁRIOS: ,

#Excel #Excelvba #Vba