Tira-RJ,
Não é que seja impossível! Creio que seja inviável, do ponto de vista do processamento. A menos que você tenha uma super máquina, com muita memória e com um super processador, sua máquina vai travar ou passar horas executando o código. O que você está pedindo é para verificar em toda a área de uma planilha, onde está uma célula que tenha a palavra Fulano. Uma planilha tem 1.048,576 linhas e 106.384 colunas. Isso significa dizer que o código vai processar, 106.384 vezes 1.048.576 através de uma célula que tenha a palavra Fulano para poder apagar a linha em que ele se encontrar.
Assim, se você conseguir rodar isso na sua máquina (na minha, um modesto Core I7, com 16GB de RAM e 720 de HD, não foi possível), cole o código abaixo no lugar do que enviei anteriormente.
Sub ApagarComCondiçao()
Dim i, j, UltimaLinha, UltimaColuna As Long
UltimaLinha = 1048576
UltimaColuna = 16384
Application.ScreenUpdating = False
For j = 1 To UltimaColuna
For i = UltimaLinha To 1 Step -1
If Cells(i, j).Value = "Fulano" Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
End If
Next
Next
Application.ScreenUpdating = True
Range("B4").Select
MsgBox "Linha Excluída com Sucesso!", vbDefaultButton1, "!EXCLUSÃO DE LINHAS"
End Sub
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 03/02/2013 7:43 pm