Mostrar los tags: Macro

Mostrando del 1 al 8 de 8 coincidencias
<<>>
Se ha buscado por el tag: Macro
Imágen de perfil

Lista desplegable con campo de busqueda


Visual Basic para Aplicaciones

Actualizado el 11 de Junio del 2020 por Aitor (3 códigos) (Publicado el 10 de Junio del 2020)
563 visualizaciones desde el 10 de Junio del 2020
Userform para mostrar la lista desplegable de la celda donde se haga el doble
click si la celda tiene una lista de validación datos dispuesta

Userform to display the drop-down list of the cell where you double-click if
the cell has a data validation list arranged
1
2
3
4
5
6
7
8
9
10
11
12
13
14
+---+-------------------------+
|  ? | TextBox1                |
+---+-------------------------+
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
| ListBox1                       |
+------------------------------+

IMPLEMENTACION/IMPLEMENTATION
=============================
En el explorador de proyectos del editor de Visual Basic
Importar el fichero frmOptionsListWithSearch.frm (asociado a frmOptionsListWithSearch.frx)
Este UserForm se activa introduciendo el metodo Sub Worksheet_BeforeDoubleClick en la parte de
código de las hojas en la que se quiere implementar en aquellas celdas con lista de
validación de datos esta opción de disponer listas desplegables con concepto de búsqueda.

In the Visual Basic editor project explorer Import the file frmOptionsListWithSearch.frm
(associated with frmOptionsListWithSearch.frx)
This UserForm is activated by introducing the Sub Worksheet_BeforeDoubleClick method in the
part of code of the sheets in which you want to implement in those cells with a data validation
list this option to have drop-down lists with a search concept.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    '---------------------------------------------------------------------------------------
    ' Method : Worksheet_BeforeDoubleClick
    ' Author : Aitor Solozabal Merino - aitorsolozabal@gmail.com
    ' Date   : 10/06/2020
    ' Purpose: Activar la lista desplegable con busqueda si se hace doble click en una celda
    '          con validacion de datos tipo lista (dropdownlist)
    '---------------------------------------------------------------------------------------
    On Error GoTo Worksheet_BeforeDoubleClick_Error
    If Not Intersect(Target, ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
        If Target.Validation.Type = xlValidateList Then
            Cancel = True
            frmOptionsListWithSearch.Show
        End If
    End If
    On Error GoTo 0
    Exit Sub
Worksheet_BeforeDoubleClick_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Worksheet_BeforeDoubleClick of Hoja1(ejemplo)"
End Sub

También se puede disponer una macro "Activate_OptionsListWithSearch" en un modulo ó en el código de ThisWorkbook que llame a este UserForm y que con una combinación de teclas Ejemplo: CTRL+b en una celda con lista de validación de datos aparezca la lista desplegable con busqueda.

A macro "Activate_OptionsListWithSearch" can also be arranged in a module or in the ThisWorkbook code that calls this
UserForm and with a key combination Example: CTRL + b in a cell with data validation list, the drop-down list with search appears .

1
2
3
4
5
Option Explicit
 
Public Sub Activate_OptionsListWithSearch()
    frmOptionsListWithSearch.Show
End Sub

FUNCIONAMIENTO/ OPERATION
==========================
Una vez establecidas celdas en la hoja de cálculo con listas de validación de datos de los tipos:
"=G5:G35" ó "=un_nombre_definido_de_rango_de_celdas" ó "Lunes,Martes,Miércoles,Jueves,Viernes"
Si se pulsa 2 veces (Double Click) con el ratón en una celda que tiene una lista de validación
de datos se activará esta opción.
Una vez activado el UserForm en TextBox1 se pone el concepto a buscar en la lista de
validación de la celda activa y en ListBox1 aparece la lista de opciones disponibles de
acuerdo al concepto a buscar.
Si el concepto a buscar en TextBox1 no existe entonces en ListBox1 aparece toda la lista
de la validación de datos de la celda activa.
Si se esta posicionado en una opción de la lista en ListBox1 y se pulsa Return,Enter,Intro
esa opción pasa a la celda en cuestión y avanza una fila la celda activa.
Si se esta posicionado en una opción de la lista en ListBox1 y se pulsa 2 veces con el ratón
esa opción pasa a la celda en cuestión y avanza una fila la celda activa.
Si se pulsa la tecla Escape y hay un concepto a buscar introducido este se borra y se
refresca la lista completa y si no hay ningún concepto a buscar se entiende que se quiere
salir de la lista como si se pulsase en la [X] de la esquina superior derecha de la ventana.
Si en la celda ya hay un valor anteriormente introducido aparecerá en la lista como escogido.

Once cells have been established in the spreadsheet with data validation lists of the types:
"=G5:G35" or "=a_defined_name_of_range_of_cells" or "Monday, Tuesday, Wednesday, Thursday, Friday"
If you double-click with a mouse in a cell that has a validation list this option will be activated.
Once the UserForm is activated the concept to search for in the list of validation of the active cell
is set in the TextBox1 area of the Userform, and in the ListBox1 area of the Userform is the list of
available options according to the concept to search for.
If the concept to search in TextBox1 does not exist, then the entire options list of the data validation
of the active cell appears in ListBox1.
If you are positioned in a list option in ListBox1 and press Return/Enter key that option moves to the
active cell value and after that advances the active cell one row.
If you are positioned in an option of the list in ListBox1 and you double click with the mouse that
option moves to the active cell value and after that advances the active cell one row.
If the Escape key is pressed and there is a concept to search for in the TextBox1, it is deleted and
Generate the complete options list and if there is no concept to search for, it is understood that you
want exit the list as if you clicked the [X] in the upper right corner of the window.
If there is a previously entered value in the active cell, it will appear in the list as it is chosen currently.
Imágen de perfil

Macro para sumar solo cierto items en un inventario


Visual Basic para Aplicaciones

Publicado el 4 de Julio del 2019 por Ana Zelideth (29 códigos)
862 visualizaciones desde el 4 de Julio del 2019
En esta macro tenemos una tabla con 7 columnas que tiene tiene los títulos

La macro recorre la tabla y suma el valor de inventario del proveedor Kato, se puede ajustar para que busque el nombre de otro proveedor

Item QTY inventory Type Supplier Qty min Qty Max UnitPrice
Libro1 345 VN A 97 247 245
Libro2 475 VN B 764 914 296
Libro3 780 VN A 798 948 247
Libro4 945 VN B 500 650 55
Libro5 717 VN A 782 932 37
Libro6 183 VN B 174 324 282
Libro7 754 VN A 434 584 203
Libro8 916 VN B 782 932 244
Libro9 967 VN A 153 303 199
Libro10 498 VN B 79 229 151
Libro11 448 VN A 496 646 180
Libro12 493 VN B 575 725 152
Libro13 138 VN A 624 774 192
Libro14 718 VN B 505 655 46
Hojas carta 24 MA A 553 703 38
Hojas oficio 576 MA KATO 864 1014 28
Papel Cascaron 963 MA A 365 515 1
folders 514 MA KATO 698 848 22
grapas 155 MA A 637 787 29
pegamento 409 MA B 984 1134 10

macro
Imágen de perfil

Ejemplo de UserForm


Visual Basic para Aplicaciones

Publicado el 25 de Marzo del 2019 por Rafael Angel (68 códigos)
1.178 visualizaciones desde el 25 de Marzo del 2019
Un ejemplo básico para usar un form en MSWord.
E insertar datos en el documento de Word desde el UserForm.
Imágen de perfil

Macro en Excel que determina rango de fila


Excel

Actualizado el 28 de Enero del 2019 por Francisco (Publicado el 26 de Agosto del 2017)
1.267 visualizaciones desde el 26 de Agosto del 2017
Esta es mi macro para imprimir datos de un listado, el rango("A2") es fijo pero el rango de fila ("A5") no
ese es variable, de que manera puedo tomar el valor de ese rango que ya esta definido en una celda!!!
Imágen de perfil

Formato Condicional para Maximo y Minimo en cada fila del rango seleccionado


Visual Basic para Aplicaciones

Actualizado el 23 de Octubre del 2018 por Aitor (3 códigos) (Publicado el 20 de Septiembre del 2018)
2.054 visualizaciones desde el 20 de Septiembre del 2018
ConditionalFormatingMinMaxValuesInARow
Codigo de macro en VBA para Excel que realiza el formato condicional en un rango de celdas seleccionadas por programa o por la selección del usuario antes de llamar a la macro.
El formato condicional consiste en realzar las celdas con el valor minimo (relleno en verde) y maximo (relleno en rojo) por cada fila según se muestra en la imagen.
En la imagen se ha seleccionado el rango de celdas D5:L22 y luego se ha ejecutado la macro.
Imágen de perfil

Generar numeros aleatorios que sumen una cantidad dada


Visual Basic para Aplicaciones

estrellaestrellaestrellaestrellaestrella(2)
Publicado el 7 de Noviembre del 2017 por Administrador (671 códigos)
1.696 visualizaciones desde el 7 de Noviembre del 2017
Este código genera tantos números aleatorios como casillas tengamos seleccionadas en nuestra hoja de calculo para conseguir que la suma de todos ellos, de el número que indiquemos.

aleatorio-a-objetivo
Imágen de perfil

Ejecutar una macro en una hora determinada


Access

estrellaestrellaestrellaestrellaestrella(2)
Publicado el 29 de Mayo del 2017 por Administrador (671 códigos)
4.550 visualizaciones desde el 29 de Mayo del 2017
Este formulario muestra la hora actual, y te permite teclear la hora en que quieras que se ejecute la macro. En este ejemplo la macro abre un formulario con un saludo.
ejecutar-macro
sin imagen de perfil

Leer Informacion de As400 con Macro Excel


Excel

Publicado el 14 de Septiembre del 2016 por Hugo Arturo (4 códigos)
5.572 visualizaciones desde el 14 de Septiembre del 2016
para las interfases entre as400 y excel habia que usar transfers, hice macro de excel se concecta a as400 y extrae la informacion