Seleccionar un rango
Estimado Leo, tengo otra pregunta con el mismo tema, ya conseguí eliminar los datos en la hoja 1 pero como puedo hacer para eliminar los datos de la hoja dos que tiene en una celda el criterio del Combobox10 osea como puedo eliminar en ambas hojas desde un solo botón los datos relacionados con el criterio.
1 respuesta
Respuesta de leone
1
Para elimnarlo de la hoja2 solo debes repetir el código seleccionando antes la hoja2 así:
Te envío todo el código de ambas eliminaciones:
Dim NroFila As Integer
Sheets("Hoja1").Select
Range("A1").Select 'selecciono esta celda para que comience la busqueda desde el principio de la hoja
On Local Error Resume Next
Cells.Find(What:=ComboBox10.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
If Err.Number <> 0 Then
On Error GoTo 0
MsgBox "Texto No Encontrado en la Hoja1", vbInformation, "No Encontrado"
else
On Error GoTo 0
NroFila = ActiveCell.Row
Rows(NroFila & ":" & NroFila).Select
Selection.Delete Shift:=xlUp
End If
'Repite el codigo para la hoja2 la cual requieres eliminar tambien otra fila
Sheets("Hoja2").Select
Range("A1").Select 'selecciono esta celda para que comience la busqueda desde el principio de la hoja
On Local Error Resume Next
Cells.Find(What:=ComboBox10.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
If Err.Number <> 0 Then
On Error GoTo 0
MsgBox "Texto No Encontrado en la Hoja2", vbInformation, "No Encontrado"
else
On Error GoTo 0
NroFila = ActiveCell.Row
Rows(NroFila & ":" & NroFila).Select
Selection.Delete Shift:=xlUp
End If
Te envío todo el código de ambas eliminaciones:
Dim NroFila As Integer
Sheets("Hoja1").Select
Range("A1").Select 'selecciono esta celda para que comience la busqueda desde el principio de la hoja
On Local Error Resume Next
Cells.Find(What:=ComboBox10.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
If Err.Number <> 0 Then
On Error GoTo 0
MsgBox "Texto No Encontrado en la Hoja1", vbInformation, "No Encontrado"
else
On Error GoTo 0
NroFila = ActiveCell.Row
Rows(NroFila & ":" & NroFila).Select
Selection.Delete Shift:=xlUp
End If
'Repite el codigo para la hoja2 la cual requieres eliminar tambien otra fila
Sheets("Hoja2").Select
Range("A1").Select 'selecciono esta celda para que comience la busqueda desde el principio de la hoja
On Local Error Resume Next
Cells.Find(What:=ComboBox10.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
If Err.Number <> 0 Then
On Error GoTo 0
MsgBox "Texto No Encontrado en la Hoja2", vbInformation, "No Encontrado"
else
On Error GoTo 0
NroFila = ActiveCell.Row
Rows(NroFila & ":" & NroFila).Select
Selection.Delete Shift:=xlUp
End If
EXCELENTE! Leone soy tu hincha hermano muchas gracias por completar mis ideas y ayudarme con las preguntas, más adelante te estaré molestando. Un abrazo Gracias
