ERROR DE COMPILACION: NO SE ENCONTRO EL METODO O EL DATO MIEMBRO

19/10/2006 - 21:32 por cbm | Informe spam
Intento copiar el libro y borrar todas las celdas llamadas VARIABLES

Private Sub CommandButton1_Click()
Dim WB As Workbook
ThisWorkbook.SaveCopyAs "C:\Documents and Settings\Carlos
Borda\Escritorio\MACRO GUARDAR LIBRO MES AÑO " & Format(Date, "yy") &
Format(Date, "mm") & ".xls"
For Each SH In ThisWorkbook

Next
Worksheets.Range("VARIABLES").ClearContents

End Sub

No encuentro el fallo a partir del next,

Gracias

Preguntas similare

Leer las respuestas

#1 Ivan
19/10/2006 - 22:05 | Informe spam
hola cbm

no estoy muy seguro, pero me da la impresion de que deberias meter la
instruccion ->

cambiada por->


de todas formas no me hagas mucho caso

un saludo
Ivan
Respuesta Responder a este mensaje
#2 Ivan
19/10/2006 - 22:12 | Informe spam
hola cbm

disculpame por mi precipitacion pero, si como me da la impresion, 'SH
as Worksheet' (no esta declarada en el codigo expuesto)

entonces el bucle (creo) deberia ser -> For Each SH in
Thisworkbook.Worksheets o similar
y luego incluir el clearscontents dentro del bucle

de nuevo no me hagas mucho caso

Ivan
Respuesta Responder a este mensaje
#3 cbm
20/10/2006 - 08:10 | Informe spam
Esta tarde lo intento, gracias
Ivan ha escrito:

hola cbm

disculpame por mi precipitacion pero, si como me da la impresion, 'SH
as Worksheet' (no esta declarada en el codigo expuesto)

entonces el bucle (creo) deberia ser -> For Each SH in
Thisworkbook.Worksheets o similar
y luego incluir el clearscontents dentro del bucle

de nuevo no me hagas mucho caso

Ivan
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida