Planilha Excel VBA Shapes 27 carrega imagem dir se x ou y
Planilha Excel VBA duplicados deletar base dados coluna B
Este Macro do Aplicativo MS Excel VBA(Visual Basic Application), deleta duplicados com base quantidade de dados
digitados na coluna (B) de determinada folha de Planilha.
‘//==================’
‘Escola saberexcel VBA Estudos®
Sub sbx_duplicados_deletar()
Dim tDados, sDados(), j&, k&, N&, x
tDados = Range(Cells(1, 1), Cells(WorksheetFunction.Max(Cells(Rows.Count, 1).End(xlUp).Row, Cells(Rows.Count, 2).End(xlUp).Row), 2)).Value
N = 1
ReDim sDados(1 To 2, 1 To N)
sDados(1, N) = tDados(1, 1)
sDados(2, N) = tDados(1, 2)
For j = 2 To UBound(tDados, 1)
x = tDados(j, 1) & “#” & tDados(j, 2)
For k = 1 To N
If sDados(1, k) & “#” & sDados(2, k) = x Then Exit For
Next k
If k > N Then
N = k
ReDim Preserve sDados(1 To 2, 1 To N)
sDados(1, N) = tDados(j, 1)
sDados(2, N) = tDados(j, 2)
End If
Next j
Range(Cells(1, 1), Cells(WorksheetFunction.Max(Cells(Rows.Count, 1).End(xlUp).Row, Cells(Rows.Count, 2).End(xlUp).Row), 2)).ClearContents
Cells(1, 1).Resize(UBound(sDados, 2), 2) = WorksheetFunction.Transpose(sDados)
Cells(1, 1).Resize(UBound(sDados, 2), 2).Font.ColorIndex = 1
MsgBox “Duplicados deletados….”, vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub
‘//==================’
Sub sbx_mensagem()
MsgBox (“clique na vassourinha ao lado…rs”), vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub
‘//==================’
Sub sbx_copiar_teste()
[a].Copy [b]
MsgBox (“Dados copiados com sucesso para realização do Teste”), vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub
‘//==================’
Para preencher ou deletar a célula com determinado valor para praticarmos com nosso macro acima.
Sub sbx_inserir_numero()
If [b3].Value = 0 Then
[b3].Value = 3
Else
[b3].Value = “”
End If
End Sub
‘//==================’
Sub sbx_msgbx()
MsgBox “Deletar da determinada da coluna(B) para baixo”, vbInformation, “Escola Saberexcel VBA Estudos®”
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.
| Compre pelo PagSeguro | Cartão | Compre pelo PayPal |
 |
 |
|
| Contas Bancárias: | Bancos: | |
| http://www.saberexcel.com.br | Brasil, Itaú, Bradesco, Caixa Federal |
 Baixe o exemplo de planilha contendo os macros acima |
 Planilha Excel VBA duplicados deletar base dados coluna B |
| <<Link Download: Verificar também a Caixa de itens excluídos >> |
