No he podido copiar macro...

06/02/2004 - 15:56 por Petra | Informe spam
Hola..

No he podido copiar una macro que tengo en una hoja para
que se me ejecute en otras hojas similares del mismo
libro... Ayudenme por favor...

Gracias de antemano!!

Petra!

Preguntas similare

Leer las respuestas

#1 Ignacio Pérez
06/02/2004 - 18:17 | Informe spam
Hola Petra:
¿Porque no?
Estando en el editor de Visual Basic selecciona el texto lo copias haces
doble click en la otra hoja y lo pegas
Imagino que será otro el problema ¿no? :))
Un saludo

"Petra" escribió en el mensaje
news:bed701c3ecc1$722f94b0$
Hola..

No he podido copiar una macro que tengo en una hoja para
que se me ejecute en otras hojas similares del mismo
libro... Ayudenme por favor...

Gracias de antemano!!

Petra!

Respuesta Responder a este mensaje
#2 Petra
06/02/2004 - 22:09 | Informe spam
Hola Ignacio...

Copio la macro en las otras hojas y cuando cierro el libro
solo ejecuta la macro en la hoja que la programé. Cuando
copio la macro y la pego en la hoja respectiva, me
cercioro de cambiar el nombre de la hoja donde quiero que
quede la macro, no tengo que cambiar nada más porque el
resto es igual a la primera hoja...

QUE PUEDO HACER???????? Gracias!!!!
Respuesta Responder a este mensaje
#3 Ignacio Pérez
07/02/2004 - 08:37 | Informe spam
Hola Petra:
Pon aquí en el foro la macro y le echare un vistazo...


Copio la macro en las otras hojas y cuando cierro el libro
solo ejecuta la macro en la hoja que la programé.


¿Se ejecuta la macro al cerrar el libro ? si es así debes de llamar a tu
macro desde el evento WorkbookClose.

Un saludo
Respuesta Responder a este mensaje
#4 Petra
07/02/2004 - 15:42 | Informe spam
Hola Ignacio...

Te explico la distribucion de mi archivo: tengo 5 hojas
iguales a la que tiene la macro, se diferencian unicamente
por el nombre, pues cada una es para datos de ciudades
diferentes, los datos estan distribuidos de la misma
forma. Quiza sea importante que sepas que la macro que
vas a ver esta en 'ThisWorkbook'... Ahi te va la macro:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Fila As Long
With Worksheets("CHQ's pend. cobro")
For Fila = .Range("d65536").End(xlUp).Row To 1 Step -1
If StrConv(.Range("d" & Fila), vbLowerCase)
= "cobrado" Then .Range("d" & Fila).EntireRow.Delete
Next
End With
Me.Save
End Sub

Gracias por lo que me puedas ayudar

Slds.

Petra!!

Hola Petra:
Pon aquí en el foro la macro y le echare un vistazo...


Copio la macro en las otras hojas y cuando cierro el libro
solo ejecuta la macro en la hoja que la programé.


¿Se ejecuta la macro al cerrar el libro ? si es así debes


de llamar a tu
macro desde el evento WorkbookClose.

Un saludo


.

Respuesta Responder a este mensaje
#5 Ignacio Pérez
08/02/2004 - 12:07 | Informe spam
Hola Petra:
La macro que aquí me pones efectivamente no puede funcionar aunque la vayas
poniendo a cada hoja como parte de su código. Tienes que tener en cuenta que
esta macro se ejecuta al cerrar el libro y solo figura el nombre de una
hoja. Te he hecho una pequeña modificación para que te funcione en todas las
hojas que contenga tu libro.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Fila As Long
For Each sh In Worksheets
For Fila = sh.Range("D65536").End(xlUp).Row To 1 Step -1
If StrConv(sh.Range("D" & Fila), vbLowerCase) = "cobrado" Then
.Range("d" & Fila).EntireRow.Delete
Next
End With
Next
ActiveWorkbook.Save
End Sub
Esta macro la tienes que poner en ThisWorkBook.
No te olvides de borrarla si la tienes puestaa en el codigo de alguna hoja.
Un saludo

"Petra" escribió en el mensaje
news:c66001c3ed88$929f8990$
Hola Ignacio...

Te explico la distribucion de mi archivo: tengo 5 hojas
iguales a la que tiene la macro, se diferencian unicamente
por el nombre, pues cada una es para datos de ciudades
diferentes, los datos estan distribuidos de la misma
forma. Quiza sea importante que sepas que la macro que
vas a ver esta en 'ThisWorkbook'... Ahi te va la macro:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Fila As Long
With Worksheets("CHQ's pend. cobro")
For Fila = .Range("d65536").End(xlUp).Row To 1 Step -1
If StrConv(.Range("d" & Fila), vbLowerCase)
= "cobrado" Then .Range("d" & Fila).EntireRow.Delete
Next
End With
Me.Save
End Sub

Gracias por lo que me puedas ayudar

Slds.

Petra!!

Hola Petra:
Pon aquí en el foro la macro y le echare un vistazo...


Copio la macro en las otras hojas y cuando cierro el libro
solo ejecuta la macro en la hoja que la programé.


¿Se ejecuta la macro al cerrar el libro ? si es así debes


de llamar a tu
macro desde el evento WorkbookClose.

Un saludo


.

Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida