Olá pessoal, boa tarde
Não tenho conhecimento da linguagem necessária para programação em VBA, porém, vasculhando a internet, consegui um código que atendeu muito bem as minhas necessidades.
Quero realizar a limpeza de uma planilha especifica, utilizando macro. Para isso, utilizo os códigos abaixo, porém, preciso criar um botão para cada critério de exclusão.
Desta forma, gostaria de analisar com vocês, se é possível unificar os comandos em um único botão.
Código mestre:
Function DeleteRowsByCriteria(ByVal firstRow As Integer, ByVal lastRow As Integer, ByVal criteriaColumn As Integer, ByVal criteria As String) As Integer
Dim deletedRows As Integer
Dim I As Integer
deletedRows = 0
With ActiveSheet
I = firstRow
While I < lastRow
If CStr(.Cells(I, criteriaColumn).Value) = criteria Then
.Rows(I).Delete
deletedRows = deletedRows + 1
Else
I = I + 1
End If
Wend
End With
DeleteRowsByCriteria = deletedRows
End Function
Critério de exclusão através de todas as linhas que possuem a string "Historico das U" na coluna 5
Sub dasU()
MsgBox DeleteRowsByCriteria(1, 30000, 5, "Historico das U") & " rows has been deleted"
End Sub
Critério de exclusão através de todas as linhas que possuem a string "Item" na coluna 1
Sub Cabecalho()
MsgBox DeleteRowsByCriteria(1, 30000, 1, "Item") & " rows has been deleted"
End Sub
E assim em diante. Atualmente, possuo 9 comandos de exclusão.
Além de um comando especifico para remoção de linhas em vazias e outro para caractere coringa " * ".
Conto com a ajuda de vocês, muito obrigado!