Mario Rodríguez

:) 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...

:) A ver... a) El ID: ¿Lo tienes en una celda, en un textbox, en un List/Combobox? b) ¿Cómo se llama la tabla en la que se encuentra la info? c) La info: ¿La deseas poner en un rango del Excel, en un List/Combobox? Tienes, entonces, varias cosas que...

:) 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,...

:) ¿Y por qué no pones la info en celdas diferentes?... ¿Cómo llegó esa info a tu textbox?... Saludos, Cacho R. . :)

:) 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...

:) ¿Y qué querrías que ocurriese si existieran varias fecha asociadas a cada tienda?... :) .

:) Hola! Oziel. La "cosa" sería así: - Abres el Libro2 e inmediatamente lo pones en segundo plano de modo que el usuario "ni se entera que lo abriste". - A partir de ese momento, utilizas la info del Libro2 de la misma manera que si la info se...