Saltar al contenido
PROGRAMAR EN VBA MACROS DE EXCEL

Macro para autorrellenar datos Autofill


(adsbygoogle = window.adsbygoogle || []).push({});

Algo que hace útil a las hojas de cálculo de Excel es poder autorellenar datos y no tener que estar ingresando datos uno por uno, por ejemplo si se quiere copiar una celda 100 veces se puedo copiar directamente y no escribir 100 veces el valor de la celda deseada; si se requieren escribir en la filas los días de un mes en particular, se escribe el primer día y se autorellenan los siguientes; si no estuvieran estás funciones sería muy engorroso el ingreso de datos, Excel entre otras formas de relleno o AutoFill permite copiar, rellenar días, meses, años, una serie de datos, etc.

Primero voy realizar una pequeña introducción teórica sobre los parámetros necesarios que deben ser ingresados en la macro para autorellenar o Autofill y luego realizar la explicación del ejemplo que se incorpora en esta presentación.

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  

La sintaxis es la siguiente para usar la función de autorrelleno es:

expresión.AutoFill.(Destination,Type)

donde:

Expresión: es la variable que representa un objeto Range
Destination: es la celda o celdas que se deben rellenar, se debe incluir el rango de origen, siendo un dato obligatorio
Type: su ingreso es opcional y determina el tipo de relleno.

En el cuadro que sigue se exponen los distintos tipos de relleno que se pueden usar, pero antes te recomiendo que leas un excelente libro sobre Excel el que te ayudará operar las planillas de cálculo, haz click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

Nombre Valor Descripción
xlFillCopy       1 Copiar los valores y formatos desde el rango de origen en el rango de
destino, repitiéndolos si es necesario.
xlFillDays 5 Extender los nombres de los días de la semana del rango de origen en el
rango de destino. Los formatos se copian desde el rango de origen en el rango de
destino, repitiéndolos si es necesario.
xlFillDefault 0 Excel determina los valores y formatos utilizados para rellenar el rango de
destino.
xlFillFormats 3 Copiar sólo los formatos desde el rango de origen en el rango de destino,
repitiéndolos si es necesario.
xlFillMonths 7 Extender los nombres de los meses del rango de origen en el rango de
destino. Los formatos se copian desde el rango de origen en el rango de destino,
repitiéndolos si es necesario.
xlFillSeries 2 Extender los valores del rango de origen en el rango de destino como una
serie (por ejemplo, ‘1, 2’ se extiende como ‘3, 4, 5’). Los formatos se copian
desde el rango de origen en el rango de destino, repitiéndolos si es
necesario.
xlFillValues 4 Copiar sólo los valores desde el rango de origen en el rango de destino,
repitiéndolos si es necesario.
xlFillWeekdays 6 Extender los nombres de los días laborables de la semana del rango de origen
en el rango de destino. Los formatos se copian desde el rango de origen en el
rango de destino, repitiéndolos si es necesario.
xlFillYears 8 Extender los años del rango de origen en el rango de destino. Los formatos
se copian desde el rango de origen en el rango de destino, repitiéndolos si es
necesario.
xlGrowthTrend 10 Extender los valores numéricos desde el rango de origen en el rango de
destino, presuponiendo que las relaciones entre los números del rango de origen
son multiplicativas (por ejemplo, ‘1, 2,’ se extiende como ‘4, 8, 16’,
suponiendo que cada número es el resultado de multiplicar el número anterior por
un valor determinado). Los formatos se copian desde el rango de origen en el
rango de destino, repitiéndolos si es necesario.
xlLinearTrend 9 Extender los valores numéricos desde el rango de origen en el rango de
destino, presuponiendo que las relaciones entre los números del rango de origen
son aditivas (por ejemplo, ‘1, 2,’ se extiende como ‘3, 4, 5’, suponiendo que
cada número es el resultado de sumar un valor determinado al número anterior).
Los formatos se copian desde el rango de origen en el rango de destino,
repitiéndolos si es necesario.

Al final existe un link del cual podrás descargar el ejemplo y adaptarlo a lo que requieras, el código se encuentra abierto y sin ningún tipo de restricción, seguidamente se explica que realiza cada código de autorrelleno de celdas o AutoFill y se muestra la codificación respectiva.

El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlasbuscar en listbox mientras escribes en textboxordenar hojas libro excel por su nombreconectar Excel con Access y muchos ejemplos más.

function onYtEvent(payload) {
if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}

Código que se inserta en un módulo

Este código arma una fórmula que la copia desde la celda A3 a la celda A100. 

Sub autorellenocopy()

Range(«A3»).FormulaR1C1 = «=RC[2]&»»»»&RC[3]&»»»»&RC[4]&»»»»&RC[5]»
Range(«A3»).AutoFill Destination:=Range(«A3:A100»), Type:=xlFill
End Sub

Este código rellena en el rango C3:C100 una serie de números.

Sub autorellenoserie()
Range(«C3»).AutoFill Destination:=Range(«C3:C100»), Type:=xlFillSeries
End Sub

Este código rellena en el rango E3:E100 los días correlativos y siguientes de la fecha escrita en E3.

Sub autorellenodias()
Range(«E3»).AutoFill Destination:=Range(«E3:E100»), Type:=xlFillDays
End Sub

Este código rellena en el rango G3:G100 los días hábiles de la semana partiendo de la fecha que está en G3.

Sub autorellenosemanas()
Range(«G3»).AutoFill Destination:=Range(«G3:G100»), Type:=xlFillWeekdays
End Sub

Este código rellena en el rango I3:I100 los meses del año partiendo de la fecha que está en I3.

Sub autorellenomes()
Range(«I3»).AutoFill Destination:=Range(«I3:I100»), Type:=xlFillMonths
End Sub

Este código rellena en el rango K3:K100 los años partiendo de la fecha que está en K3.

Sub autorellenoyears()
Range(«K3»).AutoFill Destination:=Range(«K3:K100»), Type:=xlFillYears
End Sub

Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


(adsbygoogle = window.adsbygoogle || []).push({});

If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.

Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Entradas relacionadas

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Comentarios (34)

I am the proprietor of JustCBD Store brand (justcbdstore.com) and am seeking to broaden my wholesale side of company. I really hope that anybody at targetdomain is able to provide some guidance ! I thought that the most ideal way to accomplish this would be to reach out to vape shops and cbd retailers. I was really hoping if anyone could suggest a dependable website where I can purchase CBD Shops Business Mailing List I am already looking at creativebeartech.com, theeliquidboutique.co.uk and wowitloveithaveit.com. Unsure which one would be the most ideal selection and would appreciate any advice on this. Or would it be much simpler for me to scrape my own leads? Suggestions?

Responder

субсидиарная ответственность эта тема создает много вопросов среди предпринимателей

Responder

I couldn’t resist commenting. Exceptionally well written!

Responder

I love it when people get together and share opinions. Great website, keep it up!

Responder

Spot on with this write-up, I truly think this website needs a great deal more attention. I’ll probably be returning to read more, thanks for the advice!

Responder

I quite like looking through an article that will make men and women think. Also, many thanks for allowing me to comment!

Responder

You need to take part in a contest for one of the most useful websites online. I’m going to highly recommend this web site!

Responder

You need to take part in a contest for one of the finest websites on the web. I’m going to highly recommend this website!

Responder

I truly love your website.. Pleasant colors & theme. Did you develop this amazing site yourself? Please reply back as I’m planning to create my own site and would like to learn where you got this from or exactly what the theme is named. Many thanks!

Responder

An outstanding share! I have just forwarded this onto a friend who has been conducting a little research on this. And he in fact ordered me breakfast simply because I stumbled upon it for him… lol. So allow me to reword this…. Thanks for the meal!! But yeah, thanx for spending the time to talk about this topic here on your web site.

Responder

I needed to thank you for this good read!! I certainly loved every little bit of it. I have you saved as a favorite to check out new things you post…

Responder

Way cool! Some very valid points! I appreciate you penning this article and also the rest of the website is also very good.

Responder

You are so awesome! I don’t suppose I’ve read through a single thing like that before. So great to find someone with genuine thoughts on this issue. Seriously.. thanks for starting this up. This website is one thing that is needed on the web, someone with a little originality!

Responder

I could not resist commenting. Very well written!

Responder

I like looking through a post that will make people think. Also, thanks for permitting me to comment!

Responder

This blog was… how do you say it? Relevant!! Finally I’ve found something that helped me. Thanks!

Responder

I really like it when people come together and share ideas. Great site, stick with it!

Responder

I really like it when folks come together and share ideas. Great website, stick with it!

Responder

Excellent post. I am facing a few of these issues as well..

Responder

Excellent post. I am experiencing a few of these issues as well..

Responder

I’m impressed, I have to admit. Seldom do I encounter a blog that’s both equally educative and interesting, and let me tell you, you’ve hit the nail on the head. The issue is something which not enough people are speaking intelligently about. Now i’m very happy that I found this in my search for something relating to this.

Responder

You need to take part in a contest for one of the best websites on the web. I will highly recommend this web site!

Responder

An interesting discussion is definitely worth comment. I think that you need to publish more on this subject matter, it may not be a taboo subject but usually people do not speak about such topics. To the next! Kind regards!!

Responder

Wonderful post! We are linking to this particularly great content on our website. Keep up the great writing.

Responder

It’s nearly impossible to find well-informed people in this particular topic, but you sound like you know what you’re talking about! Thanks

Responder

I’d like to thank you for the efforts you have put in penning this blog. I’m hoping to see the same high-grade content from you later on as well. In truth, your creative writing abilities has encouraged me to get my own site now 😉

Responder

This page definitely has all the information I needed concerning this subject and didn’t know who to ask.

Responder

I really love your website.. Very nice colors & theme. Did you create this site yourself? Please reply back as I’m wanting to create my own personal site and would like to learn where you got this from or what the theme is called. Cheers!

Responder

Way cool! Some very valid points! I appreciate you penning this article and also the rest of the website is really good.

Responder

What’s up, its pleasant post on the topic of media print, we all understand media is a
fantastic source of facts.

Responder

Way cool! Some extremely valid points! I appreciate you writing this
article and the rest of the website is really good.

Responder

This is a topic that is near to my heart… Take care!
Exactly where are your contact details though?

Responder

Everyone loves it whenever people get together and share thoughts. Great site, keep it up!

Responder

Hello, yes this paragraph is actually fastidious and I have learned lot of things from
it on the topic of blogging. thanks.

Responder