Anónimo
Ayuda con la implementación de función de búsqueda condicional en excel
Estoy tratando de formular un archivo en el cual tengo lo siguiente:
A B C D E
1 Juan 100 100 50 85
2 Javier 0 0 0 0
3 Arturo 24 75 825 20
4 Noe 0 0 0 0
5 Omar 0 0 0 0
6 Jorge 45 68 100 150
Necesito que me quede así
A B C D E
1 Juan 100 100 50 85
2 Arturo 24 75 825 20
3 Jorge 45 68 100 150
Estoy utilizando las siguientes formulas =SI(A1>0,A1,"") y =Buscarv pero no tengo exito espero me puedas ayudar
A B C D E
1 Juan 100 100 50 85
2 Javier 0 0 0 0
3 Arturo 24 75 825 20
4 Noe 0 0 0 0
5 Omar 0 0 0 0
6 Jorge 45 68 100 150
Necesito que me quede así
A B C D E
1 Juan 100 100 50 85
2 Arturo 24 75 825 20
3 Jorge 45 68 100 150
Estoy utilizando las siguientes formulas =SI(A1>0,A1,"") y =Buscarv pero no tengo exito espero me puedas ayudar
1 Respuesta
Respuesta de blooddragon
1
A ver si esta pequeña macro te sirve dale alt + f11 y pégala en un modulo
Sub Macro_prueba()
Dim i, j As Integer
Dim Bor As Boolean
i = 1
j = 2
ActiveSheet.Cells(1, 1).Activate
Do Until ActiveCell.Value = ""
For j = 3 To 7 Step 1
If ActiveSheet.Cells(i, j).Value = "" Then Exit For
If ActiveSheet.Cells(i, j).Value = 0 Then
Bor = True
Else
Bor = False
End If
Next
If Bor Then
ActiveSheet.Cells(i, 1).Select
Selection.EntireRow.Delete
ActiveSheet.Cells(i, 1).Value = i
i = i - 1
Else
ActiveSheet.Cells(i, 1).Value = i
End If
i = i + 1
ActiveSheet.Cells(i, 1).Activate
Loop
End Sub
Sub Macro_prueba()
Dim i, j As Integer
Dim Bor As Boolean
i = 1
j = 2
ActiveSheet.Cells(1, 1).Activate
Do Until ActiveCell.Value = ""
For j = 3 To 7 Step 1
If ActiveSheet.Cells(i, j).Value = "" Then Exit For
If ActiveSheet.Cells(i, j).Value = 0 Then
Bor = True
Else
Bor = False
End If
Next
If Bor Then
ActiveSheet.Cells(i, 1).Select
Selection.EntireRow.Delete
ActiveSheet.Cells(i, 1).Value = i
i = i - 1
Else
ActiveSheet.Cells(i, 1).Value = i
End If
i = i + 1
ActiveSheet.Cells(i, 1).Activate
Loop
End Sub