|
 Saberexcel - o site de quem precisa aprender macros microsoft excel vba
Esse macro do Aplicativo Microsoftexcel Excel VBA, com auxilio de uma inputbox para o critério de deleção de linhas preserva a linha com ítem escolhido ou seja preserva valores únicos ou ao contrário deleta os únicos e preserva os duplicados, pois a deleção de dá pelo critério do nome contido na fórmula na coluna (C) - 'Único" ou "Duplicado". no final da página há um link para baixar o exemplo de planilha contendo o macro abaixo.
Espero que o exemplo possa ajudá-los.
'- - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - -
A Fórmula usada para retornar o critério dos duplicados é:
'=SE(CONT.SE($A$2:B2;B2)>1;"Duplicado";"Único")
'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub Loop_for_next_preservar_palavra_exluir_linha()
vCriterio = InputBox("Digite a palavra que desejar preservar:", "Escola Saberexcel VBA Estudos®", "Único")
If vCriterio = Cancel Then 'caso o usuário resolva cancelar a operação para nao ocorrer erro.
Exit Sub
End If
If CStr(vCriterio) <> "Único" And CStr(vCriterio) <> "Duplicado" Then
MsgBox ("valores não existente, digite novamente")
vCriterio = InputBox("Digite a palavra que deseja preservar:", "Escola Saberexcel VBA Estudos®", "Único")
If vCriterio = Cancel Then'caso o usuário resolva cancelar a operação para nao ocorrer erro.
Exit Sub
End If
End If
For i = ActiveSheet.Cells(65536, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 3).Value <> vCriterio Then
Cells(i, 3).EntireRow.Delete Shift:=xlUp
End If
Next i
MsgBox ("Linhas contendo dados [ ") & vCriterio & " ] foram PRESERVADAS!!!", _
vbInformation, "Saberexcel - o site das macros"
End Sub
Sub copiar_teste()
[a].Copy [b] 'aqui renomeiei a área 'a' (Plan(Auxiliar)(A1:D21)) a ser copiada e célula(A1) como [b] para receber os dados 'a'
End Sub
' - - - - - - - - - - - - - - - - - - - - - - -
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
|