Visual Basic para Aplicaciones - código que no funciona en determinado excel

Life is soft - evento anual de software empresarial
   
Vista:

código que no funciona en determinado excel

Publicado por Manuel Sánchez (8 intervenciones) el 16/04/2008 09:55:02
ÉSTE CÓDIGO LO TENGO EN MI CASA CON EXCEL 97 Y ME FUNCIONA PERFECTAMENTE, PERO EN EL TRABAJO TENGO EXCEL 2003, Y CUANDO LLEGA A Sheets("---").Copy Before:=Sheets("---"), SE CORTA Y NO ME INSERTA UNA HOJA NUEVA. ¿PORQUE PUEDE SER QUE FUNCIONE EN UN EXCEL, Y EN OTRO NO?

GRACIAS DE ANTEMANO

Private Sub CommandButton2_Click()

Dim hoja As Integer

hoja = ActiveSheet.Index - 1

Sheets("--- (2)").Select
Sheets("--- (2)").Name = InputBox("Nombre de la hoja:", "Insertar")
ActiveWorkbook.Sheets(hoja).Range("F1").Value = InputBox("Fecha y Hora:", "Insertar")
Sheets("---").Select
Sheets("---").Copy Before:=Sheets("---")
ActiveWorkbook.Sheets(hoja).Range("C4:C50") = Empty
Sheets("---").Select

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:código que no funciona en determinado excel

Publicado por JuanC (243 intervenciones) el 16/04/2008 19:08:37
por qué no probás depurando el código con F8... mirando el código a simple vista es complicado darse cuenta por qué no funciona...

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:código que no funciona en determinado excel

Publicado por Manuel Sánchez (8 intervenciones) el 17/04/2008 15:14:35
Ha hice lo de depurar con F8 y no conseguí solucionarlo, pero me acabo de dar cuenta que el culpable de todo esto es el antivirus Kaspersky, que tiene una opción para macros.

La he deshabilitado y a funcionar.

Gracias de todas formas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar