ayuda con codigo

11/07/2006 - 06:10 por LUIS DANNY SALAS | Informe spam

Tengo este codigo para que al abrir el libro aparezca la fecha en la celda
A1 e inmediatamente me inserte una fila:

Private Sub Workbook_Open()
Range("A1").Value = Date
Range("A1").Select
Selection.EntireRow.Insert
End Sub

El problema esta en que esta accion la realiza en la hoja en la que se abre
el libro , y yo lo que nesesito es que esta funcion se realize en una hoja
especifica de mi libro siempre que se abra.
No se si me explico por ejemplo quiero que esto suceda solo en la hoja
llamada estudiantes cada vez que se abra el libro , pero que las otras hojas
permanezcan intactas.
muchas gracias

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Ignacio Perez

11/07/2006 - 12:37 | Informe spam

Pues si por ejemplo la hoja en la que quisieras fuese la hoja1 seria asi:

Private Sub Workbook_Open()
hoja1.Range("A1").Value = Date
hoja1.Range("A1").EntireRow.Insert
End Sub

el nombre de la hoja es el que aparece en la ventana Proyecto del editor de
VBA.
Si te falla. ¿comentas?

Un saludo

"LUIS DANNY SALAS" escribió:

Tengo este codigo para que al abrir el libro aparezca la fecha en la celda
A1 e inmediatamente me inserte una fila:

Private Sub Workbook_Open()
Range("A1").Value = Date
Range("A1").Select
Selection.EntireRow.Insert
End Sub

El problema esta en que esta accion la realiza en la hoja en la que se abre
el libro , y yo lo que nesesito es que esta funcion se realize en una hoja
especifica de mi libro siempre que se abra.
No se si me explico por ejemplo quiero que esto suceda solo en la hoja
llamada estudiantes cada vez que se abra el libro , pero que las otras hojas
permanezcan intactas.
muchas gracias

Responder a este mensaje

#2 Francisco M

11/07/2006 - 21:34 | Informe spam

Private Sub Workbook_Open()
thisworkbook.Sheets("estudiantes").Range("A1").Value = Date
thisworkbook.Sheets("estudiantes").Range("A1").EntireRow.Insert
End Sub

Saludos,
Francisco.

"LUIS DANNY SALAS" escribió en el mensaje
news:

Tengo este codigo para que al abrir el libro aparezca la fecha en la celda
A1 e inmediatamente me inserte una fila:

Private Sub Workbook_Open()
Range("A1").Value = Date
Range("A1").Select
Selection.EntireRow.Insert
End Sub

El problema esta en que esta accion la realiza en la hoja en la que se
abre
el libro , y yo lo que nesesito es que esta funcion se realize en una hoja
especifica de mi libro siempre que se abra.
No se si me explico por ejemplo quiero que esto suceda solo en la hoja
llamada estudiantes cada vez que se abra el libro , pero que las otras
hojas
permanezcan intactas.
muchas gracias

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida