Excel - Traducir un programa

   
Vista:

Traducir un programa

Publicado por Metzli metzli_y@hotmail.com (1 intervención) el 27/06/2011 20:32:40
Necesito que me ayuden a descifrar que hacen estas instrucciones:

Sheets("calendario").Activate
Range("k29:k84").Copy
Range("k29").PasteSpecial Paste:=xlPasteValues
arch1=directorio &"Temp.xls"
Workbooks.Open Filename:=arch1
Sheets("semanas_Disp_Conf_Notif").Select
filas_aux = Application.WorksheetFunction.CountA(Columns(1))

entiendo que activa la hoja que se llama calendario
copia el rango k29 al k28
y lo pega en el la k29
que se vaya al arch1 que se encuentra en el directorio y que el archivo se llama temps
que habra el archivo arch1
y que seleccione la hoja "semanas_disp_conf_Notif

estoy confusa.necesito ayuda y si me pueden decir paso a paso que hacer. Gracias...
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

Traducir un programa

Publicado por jcs (494 intervenciones) el 28/06/2011 09:09:52
Muy buenas,

esto es lo que hacen esas instrucciones:

Sheets("calendario").Activate
- Abre la hoja calendario del libro donde tienes la macro
Range("k29:k84").Copy
- copia el contenido de ese rango
Range("k29").PasteSpecial Paste:=xlPasteValues
- lo pega en el mismo sitio, pero con pegado especial valores, o sea, si hubiera alguna fórmula en ese rango, la quita y deja el resultado
arch1=directorio &"Temp.xls"
- da a la variable arch1 el valor que tenga la variable "directorio", que tendrá que haber sido creada antes, más el texto "Temp.xls. Esto es, una ruta y un fichero
Workbooks.Open Filename:=arch1
- Abre ese archivo
Sheets("semanas_Disp_Conf_Notif").Select
- selecciona la hoja indicada
filas_aux = Application.WorksheetFunction.CountA(Columns(1))
- da valor a la variable "filas_aux" con el dato del número de celdas no vacías de la columna A de la hoja indicada.

Un saludo. Juanjo.
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