bacter582

Como estas amigo, me imagino que tu problema es que algunos días solo tienen 2 entradas y otros 3 o más. Puedes usar dos filas auxilares abajo con las fórmulas =MIN(B2:B7) y =MAX(B2:B7) y luego a esas dos aplicarle la condicional que desarrollaste....

Como estas amigo, prueba este código en la hoja que tienes los datos Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo linea1 Rango.EntireRow.Interior.ColorIndex = 0 Set Rango = ActiveCell If ActiveCell.Value <> "" Then...

Inserta un userform con 10 textbox y 2 commandbuton y prueba este código Espero te sea de ayuda Saludos Bacter Dim fila As Integer Private Sub CommandButton1_Click() fila = InputBox("fila que busca") Call llenar_datos(fila) End Sub Private Sub...

Como estas amigo, puedes hacerlo con las funciones concatenar y buscarv Suponiendo que en la columna a y b tienes una tabla con los nombres A B 1 NOMBRE1 2 NOMBRE2 3 NOMBRE3 4 NOMBRE4 La celda d1 sera el control d2=2 (para que salga nombre2) luego...

Como estas amigo, prueba con reemplazar y reemplazas " " por " ", y lo haces varias veces. Si no te funciona me avisas y te ayudo a crear la macro.

Como estas amigo, una solución que conseguí es insertar tanto el commandbuton como el listbox en un frame cada uno. Y de esa manera puedes hacer lo que necesitas.

Amigo pruébalo de esta forma Private Sub ComboBox1_Enter() Me.ComboBox1.Clear For x = 2 To Sheets("DATOS VÁLIDOS").Range("a" & Rows.Count).End(xlUp).Row If Cells(x, 1) <> Empty Then ComboBox1.AddItem Sheets("DATOS VÁLIDOS").Range("A" & x).Value Next...

Como estas amigo, nunca me había dado cuenta de que eso no se podía, estuve tratando de varias formas y la única opción que conseguí es meter el lisbox en un frame1 y el botón en un frame1. Así me funciono ojala te funcione. Si consigues una mejor me...

Sustituir esto puede acelerar tu codigo si tienes muchas filas Sustituye esto Range("a1").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop por esto Dim i As Integer i = 1 Do While Not Cells(i, 1).Value = "" i = i + 1 Loop...

Si los rangos ya los tienes definidos puedes hacerlo de la siguiente manera Creas una tabla secundaria con los rangos escritos D E 3 MOTOYOE B6:C15 4 ACHACHAIRU B16:C25 Luego en b3 la siguiente fórmula que calcula el precio en base a b1 donde esta el...