[SOLUCIONADO] macro para eliminar filas

[plambreton]

Hola:

tengo problemas con una macro que no logro hacer funcionar, la macro es la siguiente:

Sub eliminareceta()
'
' eliminareceta Macro
'

'
Range("D3").Select
Selection.Copy
Sheets("CONSULTA RECETA").Select
Sheets("INFO RECETAS").Visible = True
Sheets("INFO RECETAS").Select
Range("A2").Select
Cells.Find(What:="4954", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ExecuteExcel4Macro "()"
Sheets("INFO RECETAS").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("CONSULTA RECETA").Select
Sheets("INFO PREP").Visible = True
Sheets("INFO PREP").Select
Range("A2").Select
Cells.Find(What:="4954", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Selection.Delete Shift:=xlUp
ExecuteExcel4Macro "()"
Sheets("INFO PREP").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub

lo que trato de hacer es lo siguiente:

Tengo una pestaña donde pongo el codigo de una receta y me da la infomacion que requiero de la misma, esta pestaña esta ligada a otras dos pestañas donde toda la informacion por cada producto esta en una fila.

lo quiero que haga la macro es que cuando presiones el boton de borrar receta, busque el codigo del producto en las otras dos pestañas y al encontrarlo borre la linea que pertenece a cada producto en ambas.

el primer problema con el que me topo, es que cuando genere la macro haciendolo con Find, copio el numero de codigo que busco y asi mismo lo traslada a la macro y no como un copiar y pegar que es lo que hice, el codigo se encuentra en la primera pestaña en la celda d3 y deberia de encontrarlo en las otras dos pestañas para borrar la linea en la que el codigo este .

espero haberme explicado y ojala alguien pueda ayudar

Saludos
Pepe Lambreotn

[mrocf]

Hola! plambreton. Intenta con:

Código PHP:

  Sub EliminaReceta_2() 
On Error Resume Next 
Sheets("INFO RECETAS").Cells.Find(What:=Range("D3"), LookIn:=xlFormulas).EntireRow.Delete 
Sheets("INFO PREP").Cells.Find(What:=Range("D3"), LookIn:=xlFormulas).EntireRow.Delete 
End Sub  
   

¿Te sirve la idea?...
Saludos, Cacho R.

[plambreton]

Cacho, muchas gracias por la ayuda, funciona a la perfeccion!!!

Gracias por tu tiempo y dedicacion!

Saludos desde Mexico

[mrocf]

Iniciado por plambreton

Cacho, muchas gracias por la ayuda, funciona a la perfeccion!!!
Gracias por tu tiempo y dedicacion! Saludos desde Mexico

¡Más dedicación que tiempo, en realidad!... Pero, y de todas suertes: me alegra que te haya sido de utilidad.

Saludos, Cacho R.