Mario Rodríguez

:) Comencemos con una aclaración, Ana: - Lo que has mostrado no es un archivo de Excel sino un archivo de texto (un txt con sus campos separados por tabulaciones y que puedes abrir con el Notepad) al que le han cambiado la extensión a xls. - Esto no...

:) De las celdas a los textbox's, en lugar de: Fentrada = Range("B13") Fentrada = Format(Fentrada, "dd-mm-yyyy") Fsalida = Range("F13") Fsalida = Format(Fsalida, "dd-mm-yyyy") intenta con: Fentrada = Format(Range("B13"), "General Date") Fsalida =...

:) En lo que publicaste no hay ni -tan siquiera- una "sospecha" de esa tal lista desplegable... Pregunto: ¿Estás -aunque menos no sea- un poquito en tema o estás copiando y pegando sin mayor idea de lo que tienes entre manos? Saludos, Mario R. . .

:) Efectivamente: RowSource "te ata" los datos de un rango de celdas al listbox. Si quieres eliminar un dato tienes -entonces- que eliminarlo en la celda. Por ello lo mejor será que cargues inicialmente tu listbox mediante List, o sea: With...

:) Hola! Aleida. Dos re-preguntas: - ¿Cuál es la fila superior de ese rango de datos?... - Las dos columnas, ¿Son adyacentes o no?... Saludos, Mario (Cacho) Rodríguez. :) .

:) Hola! Fernando Asegúrate de incluir en un Userform -al menos- un ListBox, e incorpórale (al userform) el siguiente código: Private Sub UserForm_Initialize() Dim lb As Object, i%, mWidth For Each lb In Controls If TypeOf lb Is MSForms.ListBox Then...

:) Hola! Jorge. Intenta con: Sub evaluar_Repetidos() Dim LR&, ws1 As Worksheet, ws2 As Worksheet Set ws1 = Sheets("Hoja 1"): Set ws2 = Sheets("Hoja 2") Application.ScreenUpdating = False ws2.Cells.Clear LR = ws1.Cells(Rows.Count, "b").End(xlUp).Row...

:) Tu descripción es insuficiente: habría que ver el archivo... :) .

:) En lo que te voy a mostrar, los datos están desde A2 y hacia abajo: With Range("a2", [a1].End(xlDown)) If .Count <> Evaluate("SumProduct(1 / CountIf(" & .Address & ", " & .Address & "))") Then MsgBox "Hay datos repetidos." End If End With Saludos,...

:) Hola! Joan Mira: al "arrancar" el UserForm puedes hacer por primera y única vez lo siguiente: Ucol = Range("B1").End(xlToRight).Column ' Ucol = 25 ListBox1.List = Range("A1").Resize(1, Ucol).Value ListBox1. RemoveItem 0 Puse Range("A1") por citar...