Macro para eliminar fila en 2 hojas diferentes

Macro para eliminar fila en 2 hojas diferentes

Hola
Buen día
Solicito su ayuda
Quiero eliminar filas en dos hojas dirferentes
Más o menos así
En hoja2 tengo el registro Bolsas Negras Grandes y en hoja20 esta el mismo registro
con un combobox en un formulario elijo el registro y lo elimino con un botón.
Se elimina de la hoja2 pero no logro eliminarlo de la hoja20
uso este código
If OptionButton1.Value = True Then
For fila = 3 To 300
If Hoja20.Cells(fila, 1) = Hoja2.Cells(cbo_nombre, 1) Then
Hoja20.Cells(fila, 1).Select
Selection.EntireRow.Delete
Exit For
End If
Next
End If
El optionbutton1 me selecciona la hoja2

1 Respuesta

Respuesta
1

Qué tienes en el cbo_nombre, ¿tienes un nombre o un número?

Envíame tu archivo con el formulario y me explicas con un ejemplo cuál registro eliminarías de las 2 hojas.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “carlos arana” y el título de esta pregunta.

Te envíe el archivo

Con algunas instrucciones

Para borrar de la hoja20

        Cells(fCliente, 1).Select
        suministro = Cells(fCliente, 1).Value
        ActiveCell.EntireRow.Delete
        If OptionButton1.Value = True Then
            Set b = Hoja20.Columns("A").Find(suministro, lookat:=xlWhole)
            If Not b Is Nothing Then
                Hoja20.Rows(b.Row).Delete
            End If
        End If

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas