Buenas tardes. Tengo un comboBox que requiere 100 items y cuando utilizo el scroll del mouse se divide en dos y al activar la lista duplica los items. Adjunto un ejemplo de lista para que por favor me indiquen que debo hacer. Muchas gracias por su valiosa colaboración. Seleccionar usuario.xls

Por favor alguien me pude ayuda con una macro para la siguiente rutina adjunto una imagen y les voy agradecer

Hola a todos. Me gustaría me ayuden con lo siguiente. Quiero hacer una macro que borre el contenido de 10 combobox cuyo nombre es CbxComp1.....al....CbxComp10. Una forma de hacerlo es obviamente la que sigue (y me funciona): CbxComp1.Value = "" CbxComp2.Value = "" CbxComp3.Value = "" CbxComp4.Value = "" CbxComp5.Value = "" CbxComp6.Value = "" CbxComp7.Value = "" CbxComp8.Value = "" CbxComp9.Value = "" CbxComp10.Value = "" El tema es que quiero hacerlo con un bucle porque voy otras situaciones similares pero con más comboxes. He probado lo siguiente pero no me funciona (no soy experto): Dim i …

Buenas Estoy intentando crear un macro para generar un reporte entre periodos que están en las celdas " D5 " y " F5 " de una tabla de Access, pero no logro que funcione. acudo a ustedes para que me ayuden a definir cual sera el error. Formato de la fecha en Access "29/07/2020 10:48:51" Application.ScreenUpdating = True NumId = (Format(Worksheets("usuarioF1").Range("D5").Value, "DD-MMM-YYYY") & "# ") NumIh = (Format(Worksheets("usuarioF1").Range("F5").Value, "DD-MMM-YYYY") & "# ") Set Cnn = New ADODB.Connection With Cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "\01.Datos\Registro.accdb" .Open End With Set Rs = New A…

Que tal buenas tardes, haciendo uso del foro solicito de su amable apoyo, tengo un archivo donde cargo datos de cuatro columnas respectivamente, el archivo me funciona buscando en el textbox de "cuenta", pero en el momento que hago la búsqueda con textbox de "codigo" no me aparece nada, parece que es algo de formato, aunque sigo sin poder hacer que me haga el filtro, y posteriormente que encontré el dato buscado, le doy doble click y deberia tomarme el dato de la columna de "cuenta", pero me aparece el numero del codigo, de antemano muchas gracias por sus aportaciones y muy buen foro. PRUEBA LISTBOX_COMBOBOX.rar

Tengo el siguiente codigo que me extrae datos del listbox a una hoja de excel. pero al pasar los datos que traen fecha me los coloca como mm/dd/aa y lo requiero como dd/mm/aa, cabe recalcar que los datos de las fechas estan en una fila especifica "solo en una fila". Como podria modifcar mi codigo para poder realizar el cambio. Set r = Sheets("RESUMEN") uf = r.Range("B" & Rows.Count).End(xlUp).Row + 1 'Worksheets("RESUMEN").Range("A4:M" & uf).ClearContents Dim Fcc As Date 'Declaracion de variable de tipo fecha Fcc = FormatDateTime(Now, vbShortDate) 'asiganos la fecha a la variable r.Cells(1, 1) = "REPORTE REGISTRO DE COMIDAS…

Hola, tengo imagenes en una carpeta, me gustaria que cada vez que encuentre en la tabla A una celda vacia inserte una de esas fotos, sucesivamente hasta que termine. Saludos

Hola tengo una magro en la cual ejecuto la linea siguiente: Cantidad_Total_Localidad = Application.WorksheetFunction.CountIfs(Range("O3:O" & h), Date, Range("R3:R" & h), Poblacion) Date es la fecha de sistema Poblacion es una variable que contiene la Poblacion Que intento pues que me diga en el rango indicado cuantos registros coinciden con la fecha actual y con la poblacion indicada en el otro rango facilitado. hasta aqui todo bien, el problema me viene cuando intento saber cuantos registros hay anteriores a la fecha actual, he probado de varias formas pero siempre me da el mismo valor (cero), el rango donde comparo las fechas ("O3:O"&h) tiene formato de …

Buenas, me pasa una cosa extrañísima y pruebo aqui a ver si le ha pasado a alguien más y sobre todo si hay alguna solución: la hoja de cálculo en cuestión tiene un combo box para poder visualizar diferentes cuentas de resultados en la pestaña cta. Es un fichero que tenemos en red, que usan diferentes usuarios. Pues bien, cuando desconectas el portátil de la red, con el fichero abierto (para ir a alguna reunión fuera de tu sitio) hay un momento, que al navegar por las opciones el combo, en este se distorsiona la fuente de las opciones y no puedes ver nada (adjunto imagen). Si estas conectado en red, NUNCA pasa. Nos pasa en diferentes ordenadores. Es verdad que …

Hola a todos. Veréis, tengo un problema que me trae de cabeza...Tengo un libro abierto llamado "Entrada de datos" y otro llamado "Perfilador" donde se van copiando cosas del primero al segundo.Pues bien, cuando acaba de copiarse todo lo necesario, quiero que se ejecute una macro del libro "Entrada de Datos" pero NO HAY MANERA! Tengo el siguiente codigoWorkbooks.Open "C:\Users\alvar\Downloads\Entrada Datos Fondos (Final).xlsm"Workbooks("Entrada Datos Fondos (Final).xlsm").ActivateSheets("Selector de Fondos Indexados").SelectRange("B7").SelectApplication.Run "Entrada Datos Fondos (Final).xlsm!Ejecutar_Buscador"Y me da un error que dice "no se puede ejecutar la ma…

Hola, dentro de mi formulario tengo un Multipage1. Como puedo saber cual es la página que se encuentra activa? (Page1, Page2 o Page3) Gracias por su apoyo. Saludos

Hola a toda la comunidad, ando en una terrible confusión de esta división y agradecería mucho me ayuden. Adjunto el archivo. El problema esta en cuando intento registrar una joya y pongo su peso y su precio por gramo, este ultimo me automatiza los cálculos para los demás textbox, pero lo que no logro que me de un resultado esperado en el textbox "Precio de vta. x gramo" (este textbox resulta de la división del precio total / el peso). Por ejemplo pongo 10 en el PESO y en PRECIO GR. pongo 100, los demas textbox escriben el resultado automaticamente y supuestamente me deberia mostrar en el precio de vta. total 1180 (resultado de la multiplicacion PESO * PRECIO GR. * IGV…

Hola a todos, tengo una macro que me busca una celda con una texto concreto, me crea una columna justo después y la rellena con una fórmula. Todo funciona, pero quiero que la fórmula la rellena solo hasta la última celda con datos de la columna vecina. Ahora tengo puesto que me copie la fórmula hasta la fila 6000. Selection.AutoFill Destination:=Selection.Resize(6000, 1) P.D: mi pregunta de hoy es más concreta y espero que sencilla :-) Muchas gracias de antemano! Paula RESIZE ejemplo.zip

Hola buenas a todos. En esta ocasión por mucho que he buscado en el foro no encuentro solución a mi problema. Tengo un macro mediante el cual cambio los valores de una columna por los valores de otra. Tengo 2 hojas creadas, una la he llamado lista y la otra datos. En la sheet lista, he colocado la relación de los números que tiene que reemplazar y por cual en cada caso. El macro me cambia los valores de las celdas bien, pero luego vuelve a cambiar el valor de nuevo en las celdas que ya había modificado, volviendo a cambiar el valor de las celdas y creando un caos en el resultado. Ejemplo: 1 - 97 2 - 98 3 - 99 4 - 101 5 - 103 6 - 105 7 - 107 8…

Hola, He planteado este tema en otro ya cerrado, lo vuelvo a subir. Tengo un listado de 7.000 líneas y necesito eliminar aquellas cuya suma sea 0. He intentado adaptar una macro, y funciona, pero solamente con las columnas que se ponían de ejemplo. En mi caso son 11 columnas y no he sido capaz. Adjunto las cabeceras. El subtotal lo incluyo en el debe y haber para cambios en la columna "proveedor". Saludos Cabeceras.xls

Hola, Buen día, Favor su apoyo. En un Formulario tengo un Listbox el cual me jala datos de otro libro de Excel, hasta ahí todo bien. Ahora lo que quiero hacer es que mediante un botón pueda exportar esos datos que me muestra el ListBox hacia un nuevo Libro Excel y otro botón que me permita exportar los datos del Listbox hacia un Pdf. Nota: Al momento de presionar el Botón para exportar tiene que aparecer la ventana de Guardar Como para poder especificar ruta y nombre del Archivo. Muchas gracias de antemano por el apoyo.

Hola a todos tengo tres labels que deseo que sean automaticos al iniciar el formulario: ID = siguiente número disponible en la BDatos en este caso 1 FECHA = fecha actual ESTADO = letra "A" adjunto archivo con el formulario. Saludos Fernando Productos.rar

Hola a todos : Soy novato en programacion vb para excel y éste tema me lleva loco ..... He creado un formulario para meter datos en excel de forma continua ..... lo que quiero es que le acepte en uno de lixtbox un numero con cero a la izquierda por ejemplo 030007 y que al pasarlo a la celda de excel me lo copie como texto par a que despues al buscarlo mediante una formula de buscar v me encuentre los datos en una tabla.....

Hola de nuevo. Ya he terminado mi proyecto, con vuestra ayuda. Pero ahora veo que uno de los procesos es muy lento. Cuando le doy a un botón ejecuta esta macro con 7 bucles, uno por semana, que recorre cada vez que lo hace 7.000 filas. Y que cada mes añadirá otras más de 2.000 filas más. Así que cada vez que ejecute la macro se me va a emplear mucho tiempo. Yo creo que con un solo bucle lo puede hacer, porque pienso que debe haber una lógica matemática que lo haga, pero yo no soy capaz de saber cómo. U otra manera que no sea con bucles... Pego el código por si alguien de vosotros podría ayudarme. Ya veis que repito el código cada día de la semana y que los textbox so…

Hola, tengo un problema con un userform de 6 button_clicks. Dependiendo del button click seleccionado, la variable X cogerá un valor entero del 1 al 6. Esta variable X, està declarada en el programa principal como public X, ya que se va a utilizar en varias ocasiones. El userform se ejecuta perfectamente y coge el valor correspondiente, pero en el programa principal, el valor de la variable no es el correcto, ya que el valor de X pasa a ser 0. Resumen codigo: Public X As Integer Sub A () . . . UserForm1.Show . . . End Sub Y así es el codigo de un buttonclick Private Sub OptionButton1_Click() If OptionButton1 = True Then X = 1 End If End Sub …

Hola buenas noches, la verdad es que todo el dia me la he pasado buscand como hacerle para que de la tabla de mi hoja datos pueda usar ciertos campos en la plantilla de la hoja formato y poder colocar un boton siguiente y anterior para pasar entre los registros de la tabla desde la plantilla. y en esa plantilla al obtener un promedio almacenarla en el campo CALIFICACION de la tabla con su correspondiende fila (ficha , nombre, etc) y seguir con los demas registros..vaya que me he liado . estoy perdido en VB intente grabando una macro que no me dio resultado y el hacer el BD en access tengo comproblemas con el software u.u. Espero puedan ayudarme. gracias JEFATURA CAL DESE…

Hola a tod@s, No logro hacer una validación para varios TextBox, Tengo como 15 filas de controles y quiero aplicar la misma Validación a los controles que están alineados en columna, quiero ahorrarme el poner la misma validación para esos controles que pueden ser hasta 50 . Alguna idea? Envió archivo muestra con solo 3 lineas de controles y 3 columnas de controles y su validación correspondiente, si pones A o pones B o pones C Gracias de antemano por la ayuda recibida. Saludos. ValidarVariosTextBox_LBV.xlsm

Estimadas/os, Junto con saludar, estoy recien empezando en este mundo del VB, y estuve trabajando en una macro que en función de una lista, empleo BUSCARV según vendedor y enviar al correo de forma separada con copia a jefaturas correspondiente. La macro sería la siguiente: Sub Enviar_Rango_a_Destinatario_de_correo() ActiveSheet.Range("AG2:AX14").Select For i = 1 To 13 ThisWorkbook.Sheets("RESUMEN").Range("X1").Value = i ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Item.To = ThisWorkbook.Sheets("Resumen").Range("X4").Value .Item.cc = ThisWorkbook.…

Buenas tardes Estimados todos La presente es para solicitar su apoyo ya que tengi una duda que no se comoresoverla. En estos dias una persona del foro me solicitó que le hiciera una macro para hacer un resumen mensual de ventas (Salidas) para sus resportes y demas. Este lo haria, usando el Archivo de ConTrol de Stock.2.0. Sin embargo no se como volcar la informacion de dos combobox para que estos vayan a la hoja2 en donde se mostrara los años, es decir; 2000,2001,2002,2003 etc La intencion es que bien por un bucle for o una seleccion, se pegue en la hoja los años para que asi pueda realizar la peracion de suma por los años. El archivo que les adjunto tiene mas o menos…

Macro para: 1. Cuatruplicar datos, 2. Cambio horizontal a vertical condicional Hola a todos, Espero que podaís echarme, con vuestros conocimientos, una mano en una árdua tarea. Poseo una base de datos con 512 observaciones y necesito cambiar la estructura de los mismo. Se trata de un ejercicio donde, en primer lugar, se recogen las características de los individuos y, en segundo lugar, se le indica que ordenen cuatro fotografias (asignando un 1 a la que menos les gusta y una 4 a la que más) extraídas de forma aleatoria de 32 posibles. Estos datos están en forma horizontal y necesito crear una nueva variables que se llame ELE para ordenar en vertical las puntuaciones de …