Skip to main content
adicionou 60 caracteres ao conteúdo
Fonte Link
Math
  • 31,3mil
  • 15
  • 95
  • 132
  1. Criei uma função para deletar uma string em uma função: Function deleteString(ByVal STRING_TO_BE_DELETED As String) ' ' Deleta um texto específico ' IMPORTANTE: A origem já deve estar selecionado ' Selection.Replace What:=STRING_TO_BE_DELETED, Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Function

     Function deleteString(ByVal STRING_TO_BE_DELETED As String)
     '
     ' Deleta um texto específico
     ' IMPORTANTE: A origem já deve estar selecionado
     '
         Selection.Replace What:=STRING_TO_BE_DELETED, Replacement:="", LookAt:=xlPart, _
             SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
             ReplaceFormat:=False
     End Function
    
  2. Outra função para deletar células em branco: Function deleteBlank(Optional NOT_IN_USE As Boolean) ' ' Deleta espaços em brancos ' IMPORTANTE: Os dados já devem vir selecionados ' Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.delete End Function

     Function deleteBlank(Optional NOT_IN_USE As Boolean)
     '
     ' Deleta espaços em brancos
     ' IMPORTANTE: Os dados já devem vir selecionados
     '
         Selection.SpecialCells(xlCellTypeBlanks).Select
         Selection.EntireRow.delete
     End Function
    
  3. Uma função que chama essas duas, única que será chamada pela macro: Function deleteString_Blank(ByVal RANGE_SELECTION As Range, ByVal LIST_TO_BE_DELETED As String) ' ' Deleta texto de uma seleção ' Dim arr As Variant Dim i As Integer RANGE_SELECTION.Select arr = Range(LIST_TO_BE_DELETED) For i = LBound(arr, 1) To UBound(arr, 1) deleteString arr(i, 1) Next i deleteBlank End Function

     Function deleteString_Blank(ByVal RANGE_SELECTION As Range, ByVal LIST_TO_BE_DELETED As String)
     '
     ' Deleta texto de uma seleção
     '
     Dim arr As Variant
     Dim i As Integer
         RANGE_SELECTION.Select
         arr = Range(LIST_TO_BE_DELETED)
         For i = LBound(arr, 1) To UBound(arr, 1)
             deleteString arr(i, 1)
         Next i
         deleteBlank
     End Function
    
  4. E por o código que chama as funções e envia as variáveis:

     deleteString_Blank Columns(1), "NOME_DA_LISTA"
    

deleteString_Blank Columns(1), "NOME_DA_LISTA"

  1. Criei uma função para deletar uma string em uma função: Function deleteString(ByVal STRING_TO_BE_DELETED As String) ' ' Deleta um texto específico ' IMPORTANTE: A origem já deve estar selecionado ' Selection.Replace What:=STRING_TO_BE_DELETED, Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Function

  2. Outra função para deletar células em branco: Function deleteBlank(Optional NOT_IN_USE As Boolean) ' ' Deleta espaços em brancos ' IMPORTANTE: Os dados já devem vir selecionados ' Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.delete End Function

  3. Uma função que chama essas duas, única que será chamada pela macro: Function deleteString_Blank(ByVal RANGE_SELECTION As Range, ByVal LIST_TO_BE_DELETED As String) ' ' Deleta texto de uma seleção ' Dim arr As Variant Dim i As Integer RANGE_SELECTION.Select arr = Range(LIST_TO_BE_DELETED) For i = LBound(arr, 1) To UBound(arr, 1) deleteString arr(i, 1) Next i deleteBlank End Function

  4. E por o código que chama as funções e envia as variáveis:

deleteString_Blank Columns(1), "NOME_DA_LISTA"

  1. Criei uma função para deletar uma string em uma função:

     Function deleteString(ByVal STRING_TO_BE_DELETED As String)
     '
     ' Deleta um texto específico
     ' IMPORTANTE: A origem já deve estar selecionado
     '
         Selection.Replace What:=STRING_TO_BE_DELETED, Replacement:="", LookAt:=xlPart, _
             SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
             ReplaceFormat:=False
     End Function
    
  2. Outra função para deletar células em branco:

     Function deleteBlank(Optional NOT_IN_USE As Boolean)
     '
     ' Deleta espaços em brancos
     ' IMPORTANTE: Os dados já devem vir selecionados
     '
         Selection.SpecialCells(xlCellTypeBlanks).Select
         Selection.EntireRow.delete
     End Function
    
  3. Uma função que chama essas duas, única que será chamada pela macro:

     Function deleteString_Blank(ByVal RANGE_SELECTION As Range, ByVal LIST_TO_BE_DELETED As String)
     '
     ' Deleta texto de uma seleção
     '
     Dim arr As Variant
     Dim i As Integer
         RANGE_SELECTION.Select
         arr = Range(LIST_TO_BE_DELETED)
         For i = LBound(arr, 1) To UBound(arr, 1)
             deleteString arr(i, 1)
         Next i
         deleteBlank
     End Function
    
  4. E por o código que chama as funções e envia as variáveis:

     deleteString_Blank Columns(1), "NOME_DA_LISTA"
    
Fonte Link
Evert
  • 2mil
  • 1
  • 15
  • 25

Solução encontrada:

  1. Criei uma função para deletar uma string em uma função: Function deleteString(ByVal STRING_TO_BE_DELETED As String) ' ' Deleta um texto específico ' IMPORTANTE: A origem já deve estar selecionado ' Selection.Replace What:=STRING_TO_BE_DELETED, Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Function

  2. Outra função para deletar células em branco: Function deleteBlank(Optional NOT_IN_USE As Boolean) ' ' Deleta espaços em brancos ' IMPORTANTE: Os dados já devem vir selecionados ' Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.delete End Function

  3. Uma função que chama essas duas, única que será chamada pela macro: Function deleteString_Blank(ByVal RANGE_SELECTION As Range, ByVal LIST_TO_BE_DELETED As String) ' ' Deleta texto de uma seleção ' Dim arr As Variant Dim i As Integer RANGE_SELECTION.Select arr = Range(LIST_TO_BE_DELETED) For i = LBound(arr, 1) To UBound(arr, 1) deleteString arr(i, 1) Next i deleteBlank End Function

  4. E por o código que chama as funções e envia as variáveis:

deleteString_Blank Columns(1), "NOME_DA_LISTA"

Lembrando que o número '1' em Columns(1) é a coluna selecionada e o "NOME_DA_LISTA" deve ser o intervalo nomeado contendo os dados que deverão ser deletados do intervalos de dados. No meu caso a lista é uma tabela com as seguintes opções, seguindo o exemplo acima (da pergunta):

Bom

Ruim

Ótimo

Espero ter ajudado!