PROGRAMAR EN VBA MACROS PARA EXCEL: marzo 2018

Listado e Imagenes de Iconos que Hay en Menus Barras Ribbon de Excel





Para poder agregar íconos que permitan asignarles macros, se necesita saber cual es el nombre específico de cada ícono que compone las distintas barras de menús ribbon de Excel.

Desde el final del post se puede descargar el ejemplo en forma gratuita sin ninguna restricción, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.

Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, 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.

  

El vídeo verás la macro en acción con una explicación más detallada de su codificación y funcionamiento, 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 Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, trabajando con filas, celdas, columnas, rangos y muchos ejemplos más.







  



Desde el final se puede descargar el archivo ZIP que contiene un archivo de Excel y otro de Word, desde el archivo de Excel se puede abrir el archivo de Word, es un archivo que contiene todos los nombre e íconos que contiene Excel, se verá como la imagen siguiente


⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también

Como enviar mail desde Excel adjuntando PDF


Como enviar mail con archivo Excel y PDF mediante Outlook con Excel

Formulario de VBA para insertar datos

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

Es preciso mencionar que el archivo de Word está un poco modificado ya que al abrir el fichero se podrá observar en el menú archivo dos menús agregados uno se llama "ImageMso 0" y "ImageMso 1" haciendo click en dichos menús se pueden ver los íconos que componen Excel.


Código que se inserta en un módulo

#If VBA7 And Win64 Then
    'Si es de 64 bits
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
            ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
            ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
    'Si es de 32 bits
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                                          ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                                          ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

Sub Muestra(control As IRibbonControl)
    MsgBox "suscribe a https://youtube.com/programarexcel" & Chr(10) & Chr(10) & "visita https://programarexcel.com"
End Sub

Sub ejecuta()
ruta = ActiveWorkbook.Path & "\Office2010IconsGallery.docx"
lngErr = ShellExecute(0, "OPEN", ruta, "", "", 0)
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.


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      

Listado de Comandos de Excel que Hay en Menus Barras Ribbon






Para poder modificar la barra de menú, cinta de opciones o ribbon, es preciso saber cual es el nombre del comando, barra, menú, grupo, subgrupo que integran las distintas barras o ribbon de Excel.

Sabiendo el nombre correcto se podrá inhabilitar, agregar un botón en determinada barra, grupo, subgrupo, etc.

Desde el final del post se puede descargar el ejemplo en forma gratuita sin ninguna restricción, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.

Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, 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.

  

El vídeo verás la macro en acción con una explicación más detallada de su codificación y funcionamiento, 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 Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, trabajando con filas, celdas, columnas, rangos y muchos ejemplos más.







  


Primero descargar el archivo comprimido ZIP, descomprimir guardando en cualquier directorio, pero juntos, se descargarán dos archivos de Excel uno con la macro que permite abrir el otro archivo de Excel que contiene el listado de todos los comandos, menú, barras, etc. que integran un Libro de Excel.

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también

Como enviar mail desde Excel adjuntando PDF


Como enviar mail con archivo Excel y PDF mediante Outlook con Excel

Formulario de VBA para insertar datos

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

El archivo es compatible con Office de 32 y 64 bits, la imagen a continuación muestra como se verá el archivo de Excel con el listado de menús, comandos, etc. que integran un Archivo de Excel, es importante para saber el nombre correcto del comando cuando se requiera modificar la programación XML del fichero.



Saber el nombre del comando, permitirá referenciar en forma correcta al comando o menú que se requiera modificar eliminar, inhabilitar, etc. y se verá en post posteriores, sugiero suscribir al blog desde la parte superior derecha o al canal de you tube para puedan recibir un aviso cuando se publique un ejemplo nuevo.


Código que se inserta en un módulo

#If VBA7 And Win64 Then
    'Si es de 64 bits
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
            ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
            ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
    'Si es de 32 bits
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                                          ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                                          ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

Sub Muestra(control As IRibbonControl)
    MsgBox "suscribe a https://youtube.com/programarexcel" & Chr(10) & Chr(10) & "visita https://programarexcel.com"
End Sub

Sub ejecuta()
ruta = ActiveWorkbook.Path & "\excelcontrols.xlsx"
lngErr = ShellExecute(0, "OPEN", ruta, "", "", 0)
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.


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      

Como Usar el Editor XML Para Modificar Ribbon o Menu





Para modificar la barra de menú de Excel o Ribbon, se necesita modificar la programación XML del Libro de Excel en el cual deseamos modificar la barra de Menu de Excel, Cinta de Opciones o Ribbon.

Desde el final del post se puede descargar el ejemplo en forma gratuita como así también el Editor de XML que es un software de uso libre, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.

Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, 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.

  

El vídeo verás la macro en acción con una explicación más detallada de su codificación y funcionamiento, 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 Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, trabajando con filas, celdas, columnas, rangos y muchos ejemplos más.







  


En este post se muestra como usar el Editor de XML, algo que nos ayudará a poder modificar la programación XML del Libro de Excel en el cual queramos modificar la Barra de Menú de Excel, Cinta de Opciones o Ribbon.

Al descargar el archivo ZIP y descomprimir, se verá un archivo de Excel y un archivo ejecutable que contiene el editor de XML, precisamente se denomina "Custom UI Editor For Microsoft Office", descargar los dos archivos y guardarlos en el mismo directorio, posteriormente desde el libro de Excel al presionar el botón se puede ejecuta una macro que instala el Editor en nuestra PC, es un archivo muy chiquito que prácticamente nos ocupará espacio ni recursos; sirve para poder editar la programación XLM de los Libros de Excel, modificando dicha programación se podrán modificar las barras de menú, cinta de opciones o ribbon de Excel.


⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también

Como enviar mail desde Excel adjuntando PDF


Como enviar mail con archivo Excel y PDF mediante Outlook con Excel

Formulario de VBA para insertar datos

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

La imagen siguiente muestra como se verá al ejecutar el Editor de XML, para editar un archivo y poder modificar las barras de menú, cinta de opciones o ribbon de Excel, ya sea agregando botones quitando o deshabilitando opciones.



Se debe presionar File para abrir un archivo, se muestra un Explorador de Archivos de Windows para para abrir el fichero que deseamos modificar, presionamos Insert para escribir el código XML correspondiente para modificar las barras de menú, cinta de opciones o ribbon de Excel, para archivos de Excel de 2010 en adelante se debe seleccionar, "Insert", luego "Office 2010 Custom UI Part" o "Office 2007 Custom UI Part" para ficheros de Excel 2007.

En el espacio destinado a escribir el código se escribe lo necesario para lograr la modificación que se requiera, por ejemplo el código siguiente permite agregar un botón al menú que será explicado más adelante:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>

      <tab idMso="TabHome" >
        <group id="customGroup1" label="Programar Excel" insertAfterMso="GroupEditingExcel">

          <button id="customButton1" label="Macro" size="large"
onAction="Muestra" imageMso="GroupTrack" />
        </group>
      </tab>

    </tabs>
  </ribbon>
</customUI>


Código que se inserta en un módulo

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) _
As Long
Sub Muestra(control As IRibbonControl)
    MsgBox "suscribe a https://youtube.com/programarexcel" & Chr(10) & Chr(10) & "visita https://programarexcel.com"
End Sub

Sub ejecuta()
ruta = ActiveWorkbook.Path & "\OfficeCustomUIEditorSetup.msi"
lngErr = ShellExecute(0, "OPEN", ruta, "", "", 0)
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.


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      

Diary 2018 Calendar in Excel





In this post you can dowload Diary 2018 Calendar, made in Excel, contains many macros that can be found and download for free from this page, it uses forms and various procedures or macros the make functional, does not use virtually any formula built in Excel.

From the end of the post you can download the example for free without any restriction, the code can be adapted to each need, please contribute to support the site if it is within your means, thank you very much.

If you are starting in the Excel operation or you need to affirm knowledge, I recommend reading an excellent book about Excel that will help you to operate the spreadsheets, click here, if you want to learn Excel, in English, then you must click here. If what you need is to learm or deepen the programming of macros with VBA, this is one of the best online courses I have seen online.


  

The video will see the macro in action with a more detailed explanation of its coding and operation, I recommend observing for easier understanding of the macro; subscribe to our website from the top right of the page by entering your mail and to our You Tube channel to receive in your email explanatory videos about interesting macros, such as For example, search row searching and comparing data of two columns in different sheets, search in listbox while writing in textbox, how to create an invoice or invoice and save save PDF XLS and send by mail, working with rows, cells, columns, ranges and many more examples.








  


When you download the Agenda 2018 Calendar, you will see on the left side the list of months from January to December, pressing on the desired month will show the same, if you need to view all you must press the button that is at the beginning called "All", this will show the calendar with all the months of the year.


By double clicking on the calendar on a particular day, a form is displayed that allows you to enter the task or activity that you wish to schedule, being able to enter the start and end time if required, also in spite of leaving by default the day in which we clicked, can be manually changed by assigning the day you want for the task you are trying to add.




By clicking on the save button at the end of the form, the task is saved and added to the list of tasks on the right of the page, automatically sorted by date, then by start time and by time of inspection of the task.



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también

Como enviar mail desde Excel adjuntando PDF


Como enviar mail con archivo Excel y PDF mediante Outlook con Excel

Formulario de VBA para insertar datos

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

It is also possible to print the calendar, it is done from the button that is at the beginning of the file on the right, by pressing, the list of assigned tasks is printed as shown in the following image:



You can also print the calendar, the print will take a different form, printing a sheet for each month occupying the entire A4 sheet at the end of the calendar leaves some lines for writing notes, the calendar is printed in large form leaving space in the same day for annotations, just like the image that is shown below.



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.


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      

Como Contar Datos Con Una Condicion en Una Columna con CountIf





En este poste se presenta una sencilla, pero útil macro que permite contar datos en Excel dependiendo de una condición, se apela a WorksheetFunction, que son las funciones de Excel que se pueden usar en macros de VBA, también se presentó otros ejemplos relacionados: como contar datos que cumplan con varias condiciones, como contar celdas vacías, como contar cualquier tipo de dato de un rango, como contar valores en un rango.

Desde el final del post se puede descargar el ejemplo en forma gratuita sin ninguna restricción, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.

Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, 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.

  

El vídeo verás la macro en acción con una explicación más detallada de su codificación y funcionamiento, 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 Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, trabajando con filas, celdas, columnas, rangos y muchos ejemplos más.






  

Al descargar el archivo se observa un botón que permite ejecutar una macro que cuenta todos los valores que cumplen una cierta condición y escribe el resultado en la celda siguiente a la última fila con datos.

En este ejemplo se determina cual es la ultima fila con datos y en ese rango se procede a contar los valores que cumplan la condición de ser mayores a 100.000 (cien mil); si el valor de la celda cumple esa condición es contado por la macro, escribiendo en la celda A25 el resultado de la cuenta realizada.

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también

Como llenar combobox y buscar datos


Cronometro en VBA para Excel

Formulario de VBA para insertar datos

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

Para contar se utiliza WorksheetFunctión, que como ya se explicó en post anteriores permite usar todas o mejor dicho casi todas, porque algunas funciones no se pueden usar, en macros programadas con VBA (Visual Basic Aplication), en código que permite contar datos con una condición en una columna de Excel es:

Application.WorksheetFunction.CountIf(Range("A2" & ":A" & uf - 1), ">100000")

Como se observa en el código anterior es necesario determinar el rango donde la función debe realizar la cuenta y como segundo item el criterio que debe tener en cuenta, en este caso > 100000, a continuación se muestra el código completo.


Código que se inserta en un módulo

Sub CuentaIf()
Application.ScreenUpdating = False
On Error Resume Next
Dim uf As String
uf = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row
Cells(uf, "A").ClearContents
Cells(uf, "A") = Application.WorksheetFunction.CountIf(Range("A2" & ":A" & uf - 1), ">100000")
MsgBox ("La cantidad de registros es: " & Cells(uf, "A")), vbInformation, "AVISO"
DisplayAlerts = True
Application.ScreenUpdating = True
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.


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      

Como Repetir en Excel Un Mismo Caracter Varias Veces





Probablemente en alguna oportunidad se ha requerido repetir el mismo caracter varias veces en una celda para rellenar un largo determinado de caracteres, en este ejemplo muestro como se puede hacer de dos formas, una usando las funciones de Excel en VBA, es decir WorkSheetFunction (Rept) u otra usando la función de VBA, String, cualquiera de las dos formas se pueden usar en una macro siendo el resultado el mismo, usar una u otra forma dependerá de si se está más familiarizado con las funciones de Excel que se pueden usar en VBA o si se conoce más sobre funciones de VBA.

Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, 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.

  

El vídeo verás la macro en acción con una explicación más detallada de su codificación y funcionamiento, 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 Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, trabajando con filas, celdas, columnas, rangos y muchos ejemplos más.







   

Desde el final del post se puede descargar el ejemplo en forma gratuita sin ninguna restricción, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.

En el ejemplo se encontrarán tres botones, uno para usar WorkSheetFunction.Rept para repetir los caracteres necesarios, el segundo botón se utiliza para repetir los caracteres que se requieren la función de VBA String y el tercer botón sirve para borrar el rango de celdas donde se escribe la cadena de texto con el caracter repetido, se usa para probar la macro una y otra vez y ver el resultado obtenido.


⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también

Como enviar mail desde Excel adjuntando PDF


Como enviar mail con archivo Excel y PDF mediante Outlook con Excel

Formulario de VBA para insertar datos

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

En la celda A2 se encuentra el caracteres que se desea repetir, ustedes lo pueden cambiar por cualquier caracter, en B2 se encuentra la cantidad de caracteres que se requieren, en la celda A5 se encuentra la cadena de caracteres a la que se le desea agregar una cantidad determinada de caracteres.

En A7 la macro escribe el resultado de agregar la cantidad de caracteres deseados, es decir si la cantidad de caracteres que se desean incorporar a la cadena de texto que esta en A5, es 10 caracteres, en A7 se tendrá como resultado la cadena de texto que esta en A5 más 10 caracteres iguales, se logra con la siguiente codificación.

WorksheetFunction.Rept(cara, cant) & Range("A5")

Por el contrario si se desea que la cantidad de caracteres sea la cantidad que está en B2 es decir se requieren 10 caracteres en total, se hará una resta entre el largo de caracteres de la cadena de texto de A5 menos el largo total de caracteres deseados, la macro agregará la cantidad de caracteres necesarios hasta llegar al largo de caracteres deseados, para ello se usa el siguiente código.

WorksheetFunction.Rept(cara, cant - Len(dato)) & Range("A5")

Lo explicado anteriormente se realiza con la función de VBA String, pero el resultado se verá ejecutando la macro que esta en el botón que dice "SEGUNDA FORMA", colocando los resultados en celdas A9 y B9.

La codificación del ejemplo denominado Como Repetir en Excel Un Mismo Caracter Varias Veces, se encuentra seguidamente, no obstante, se recomienda ver el vídeo tutorial, para comprender en forma más simple y rápida el ejemplo, ya que se verá la macro en acción.


Código que se inserta en un módulo

Sub primerforma()
cara = Range("A2")
cant = Range("B2")
dato = Range("A5")
numlib5 = WorksheetFunction.Rept(cara, cant - Len(dato)) & Range("A5")
numlib6 = WorksheetFunction.Rept(cara, cant) & Range("A5")
Range("A7") = numlib5
Range("B7") = numlib6
End Sub

Sub segundaforma()
Dim cara As String, cant As Integer, dato As String
cara = Range("A2")
cant = Range("B2")
dato = Range("A5")
numlib5 = String(cant - Len(dato), cara) & Range("A5")
numlib6 = String(cant, cara) & Range("A5")
Range("A9") = numlib5
Range("B9") = numlib6
End Sub

Sub Borrar()
Range("A7:B9").ClearContents
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.


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