Listado de archivos de una carpeta (modificar el código expuesto) - codigo range

Cómo refrescar por código

Hola Grupo: Tengo este código Private Sub CommandButton3_Click() Dim cel As Range, rangoT As Range, direcc As String Set rangoT = Selection For Each cel In rangoT direcc = cel.Address Range("A65000").formula = ...

Mensaje publicado en el 20/05/2004 - 08:56

cultar y mostrar por codigo

Hola a todos tengo el siguiente código de de la grabadora de macros Sub oculta_columna() Range("M5:AD5").Select Selection.EntireColumn.Hidden = True Range("L1").Select End Sub Sub Muestra_Columna() ...

Mensaje publicado en el 04/03/2004 - 21:45

Ejecutar codigo cada vez que se abra excel

¡ Hola ! Hector\nSabes Tengo un codigo que me encontré en internet para Excel, y me llamo mucho la atención ya que el codigo incrementa el tamaño de la celda seleccionad.\nEste codigo lo eh tratado de correr como ...

Mensaje publicado en el 29/08/2012 - 23:43

Se dañó el código

Tengo un código espectacular que me suministró Hector Miguel en este foro. Funcionaba muy bien hasta que yo agregué las columnas J,K,L,M,N,O,P,Q. Cuando intruduzco un serial inexistente me da: Error 13 en tiempo de ...

Mensaje publicado en el 10/10/2007 - 13:43

uso de Worksheet_Change(ByVal Target As Range)

Estimados Amigos el siguiente codigo de la hoja2 oculta un cuadro combinado (drop down 3), cuando j3 es diferente de 1, y funciona perfectamente, pero cuando quiero ocultar otro cuadro combinado (drop drown 16) no funciona.ayuda por favor ...

Mensaje publicado en el 07/07/2006 - 11:41

Error Macro - Suscript out of range

Buenos días, Resulta que estoy usando una macro y cuando la ejecuto me sale una pantallita con ese error "Suscript out of range". Esta macro está elaborada por el equipo técnico de la empresa... tenemos un lugar en la ...

Mensaje publicado en el 03/11/2005 - 10:32

error 1004 en el metodo range del objeto global

Tengo una rutina en access que exporta a excel y crea un hypervinculo en una determinada celda.El problema es que la primera vez que ejecuta el codigo funciona bien. Pero la segunda vez que lo ejecuto me da el error antes expuesto. Si me salgo de la ...

Mensaje publicado en el 08/01/2010 - 12:03

Arrastrar columnas por código

Hola a tod@s no sé si será por que estoy a punto de vacaciones y ya ni veo, pero estoy atascado intentando resolver un problema que seguro que es un chorrada, pero no me desatasco. Necesito arrastrar un rango en columna, por ...

Mensaje publicado en el 14/07/2005 - 15:22

Codigo de un Boton de comando

¿Donde grabo este codigo para aplicarlo en un boton de comando?, ¿en la hoja?, ¿En un modulo? ¿O donde? Sub EsconderFilas() Application.ScreenUpdating = False Dim Rango As Range, a As Range Set Rango = ...

Mensaje publicado en el 29/01/2005 - 04:59

Error 9 al ejecutar código

Hola: Tengo el siguiente código que modifique de un mensaje posteado el 10-may-03 por UNITECH, sin embargo al ejecutarlo después de modificarlo me da "error 9" "el subíndice esta fuera del intervalo" en la ...

Mensaje publicado en el 02/09/2003 - 23:34

Manejo de Rangos-Range

Por favor,Hector, me ayudas a mejorar este código? . Copio una tabla (rango columna A:E) a otra hoja para llevar un historico , pero como hacer para: *Que no me copie las 7 primeras filas (pues son Titulos y Encabezados). *Existe la ...

Mensaje publicado en el 29/05/2009 - 13:35

RANGE.SELECT da Error...

Hola Grupo. Tengo el siguiente fragmento de código, que grabé usando el grabador de macros y lo modifiqué para darle generalidad en un ciclo... sin embargo cuando llega a la línea Range("A3").Select, sale ...

Mensaje publicado en el 02/02/2006 - 00:34

ESTE CODIGO ME DA UN PROBLEMA DE TIEMPO DE EJECUCION Y NO LO ENTIENDO.

Me da un problema de que al ejecutar por primera vez la macro resulta que me dice que es un fallo en tiempo de ejecucion, y sin embargo si le vuelvo a dar 15 veces sin mas lo realiza sin el mas minimo problema. Excel 2007 y Gracias Sub uno() Dim ...

Mensaje publicado en el 03/06/2009 - 01:33

El código hace recuadro en los bordes

Hola! Tengo un código espectacular! Private Sub Worksheet_Change(ByVal Target As Range) Dim Msj As String If Intersect(Target, Range("e34")) Is Nothing Then Exit Sub If IsEmpty(Target) Then Exit Sub With ...

Mensaje publicado en el 15/10/2007 - 15:08