|
 Saberexcel - o site das macros
Esta macro deleta valores e linhas onde determinados valores estão inseridos neste caso a palavra "Saber", observe que aqui também ensino como voce poderá copiar dados de uma outra planilha ou da mesma folha de planilha de forma bem simples, alias todo meu trabalho será voltado para tentar fazer um tipo de programação bem simples e de fácil entendimento.
veja as Planilhas exemplos COMO FAZER - Programação MS Excel VBA - Saberexcel.
Option Explicit
Sub Deletar_com_AutoFiltro()
Dim vDeletaValor As String
Dim vRange As Range
Dim vModoCalcular As Long
With Application
vModoCalcular = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
'preencha o valor que voce deseja excluir
'Variavel vDeletaValor = "<>'Saber" 'inserir diferente<> deleta todas as palavras diferentes "Saber"
vDeletaValor = "Saber"
'Use a folha de planilha com o nome que desejar neste caso é direcionado para planilha ativa
With ActiveSheet
'primeiramente deverá remover o autofiltro
.AutoFilterMode = False
'aplicando o autofiltro e critérios para coluna(A)
.Range("A1:A" & .Rows.Count).AutoFilter Field:=1, Criteria1:=vDeletaValor
With .AutoFilter.Range
On Error Resume Next
Set vRange = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If Not vRange Is Nothing Then vRange.EntireRow.Delete
End With
'Removendo autofiltro novamente
.AutoFilterMode = False
End With
With Application
.ScreenUpdating = True
.Calculation = vModoCalcular
End With
[D6].Value = "Todas as linhas com as palavras [Saber] foram deletas......"
End Sub
Essa macro é um jeito simples de copiar alguma que ensino nas planilhas dos módulos como fazer - Programação MS Excel VBA
observe como fica bem mais simples e funciona com uma performance muito maior.
Sub copiar_teste()
Saber2.[A1:A105].Copy Saber1.[A1] 'busca os dados pelo nome da folha de código.
[D6].Value = "Todos os dados foram copiados para o teste!"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel
|