Dante Amor

Es posible crear varios listbox y que cada una de ellas haga referencia a una columna especifica En un listbox puedes tener varias columnas. Puedes explicar tu propósito final con un ejemplo e imágenes.

Ho la y bienvenido a TodoExpertos. Si quieres una imagen el cuerpo del correo revisa el siguiente ejemplo: Envío de emal por Outlook desde excel Cuando hayas conseguido enviar una imagen en el cuerpo del correo, entonces seguimos con el siguiente...

Si no están ordenados los datos, entonces es con una fórmula matricial. Pero si ordenas los datos, columna "Num" de mayor a menor y también la columna "Día" de mayor a menor: Puedes utilizar la fórmula Buscarv: =BUSCARV(A2,A:B,2,0) Nota: si utilizas...

Si utilizas la funcionalidad de excel buscar y reemplazar. Selecciona las celdas o el rango o las columnas. Presiona Control + L Escribe en Buscar: #¡NUM! Escribe en Reemplazar: - Presiona el botón: Reemplazar todos

No es muy claro tu requerimiento, podrías explicarlo con ejemplos. Lo que debe llevar un ejemplo:

Bienvenido a TodoExpertos! Puedes poner aquí la macro para revisarla. Tal vez es mi macro y te pueda ayudar.

Le doy referencia a un rango Puedes poner aquí ese rango. Si el rango es de la columna A a la D y empieza en la fila 1, entonces utiliza el siguiente código en lugar de utilizar el rango: Private Sub UserForm_Activate() Dim i As Long For i = 1 To...

Prueba también con lo siguiente: Cdbl(ListBox1. List(i, 1)) Si no te funcionan las opciones, podrías poner un ejemplo de cómo tienes el dato en el listbox y cómo debería quedar en la hoja. También pon aquí el código que estás utilizando para poner...

Prueba lo siguiente: Sub importar_Xml() Dim sPath As String, sFile As String Dim Book As Workbook, sh As Worksheet Dim lr As Long ' With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False .DisplayAlerts =...

Prueba lo siguiente: Sub CopiarCodigos() Dim c As Range, f As Range For Each c In Sheets("Hoja2").Range("A2", Sheets("Hoja2").Range("A" & Rows.Count).End(3)) Set f = Sheets("Hoja1").Range("A:A").Find(c.Value, , xlValues, xlWhole, , , False) If f Is...