seguir con el patron

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

seguir con el patron

Notapor raditz » 05 Abr 2006 01:06

quiero poder lograr mediante un macro, eso que hace excel cuando encuentra un patron en alguna celda y despues lo arrastra. o sea
si tengo 01-Feb en una celda, con el mouse puedo arrastrar para que excel ponga 02-Feb 03-Feb etc. kisiera saber si se peude hacer desde un macro.

gracias
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
raditz
Miembro Frecuente
Miembro Frecuente
 
Registrado: 29 Mar 2006 18:09

Re: seguir con el patron

Notapor hansabel » 05 Abr 2006 08:52

El codigo es el siguiente, suponiendo que tenemos datos en las celdas A1 y A2 y vamos a llenar hasta la celda A13:

Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A13"), Type:=xlFillDefault
Range("A1:A13").Select

no se olviden que a veces el grabador de macros nos puede solucionar muchas preguntas, saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
hansabel
Miembro Frecuente
Miembro Frecuente
 
Registrado: 01 Jul 2005 21:10
Ubicación: Santa Cruz-Bolivia

Re: seguir con el patron

Notapor raditz » 06 Abr 2006 19:57

muchas gracias hansabel
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
raditz
Miembro Frecuente
Miembro Frecuente
 
Registrado: 29 Mar 2006 18:09

Re: seguir con el patron

Notapor KL » 06 Abr 2006 20:23

Hola chicos,
hansabel";p="23693 escribió:Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A13"), Type:=xlFillDefault
Range("A1:A13").Select


El codigo se puede limpiar y acortar un poco:

[A1:A2].AutoFill Destination:=[A1:A13], Type:=xlFillDefault
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
KL
Miembro Frecuente
Miembro Frecuente
 
Registrado: 18 Mar 2006 13:57
Ubicación: Madrid


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: dkjohan, segunet y 8 invitados