Foros del Web » Soporte técnico » Ofimática »

[SOLUCIONADO] macro para eliminar filas

Estas en el tema de macro para eliminar filas en el foro de Ofimática en Foros del Web. Hola: tengo problemas con una macro que no logro hacer funcionar, la macro es la siguiente: Sub eliminareceta() ' ' eliminareceta Macro ' ' Range("D3").Select ...
  #1 (permalink)  
Antiguo 23/08/2013, 10:32
 
Fecha de Ingreso: agosto-2013
Ubicación: Mexico
Mensajes: 12
Antigüedad: 6 años, 1 mes
Puntos: 0
macro para eliminar filas

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
  #2 (permalink)  
Antiguo 23/08/2013, 15:57
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 12 años, 5 meses
Puntos: 88
De acuerdo Respuesta: macro para eliminar filas

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.
  #3 (permalink)  
Antiguo 24/08/2013, 07:55
 
Fecha de Ingreso: agosto-2013
Ubicación: Mexico
Mensajes: 12
Antigüedad: 6 años, 1 mes
Puntos: 0
Respuesta: macro para eliminar filas

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

Gracias por tu tiempo y dedicacion!

Saludos desde Mexico
  #4 (permalink)  
Antiguo 25/08/2013, 10:05
Avatar de mrocf  
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 12 años, 5 meses
Puntos: 88
Respuesta: macro para eliminar filas

Cita:
Iniciado por plambreton Ver Mensaje
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.

Etiquetas: filas, macro, soporte-y-sugerencias
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:24.