Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

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

2 views
Skip to first unread message

cbm

unread,
Oct 19, 2006, 3:32:14 PM10/19/06
to
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

Ivan

unread,
Oct 19, 2006, 4:05:23 PM10/19/06
to
hola cbm

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

-->Worksheets.Range("VARIABLES").ClearContents --> dentro del bucle y
cambiada por->

--> SH.range("VARIABLES").ClearContents

de todas formas no me hagas mucho caso

un saludo
Ivan

Ivan

unread,
Oct 19, 2006, 4:12:49 PM10/19/06
to
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

cbm

unread,
Oct 20, 2006, 2:10:55 AM10/20/06
to
Esta tarde lo intento, gracias
Ivan ha escrito:
0 new messages