Dante Amor

Me parece que estás ejecutando el contador en la hoja1 y debes ejecutarlo en la hoja2 Prueba así Public Function Contador() sheets(2).select Contador = Application.WorksheetFunction.Count(Range(Cells(1, 1), Cells(500, 1))) + 1 End Function Saludos....

Una de las causas puede ser, que buscas un dato como número y está almacenado como texto o viceversa, prueba también con esta forma Cells(celda.Row, "E") = Application.VLookup(val(celda), rango2, 3, False) Saludos. DaM

Prefieres tener el catálogo de aerolíneas dentro de la macro, ¿o prefieres tenerlo en un rango de celdas? Saludos. Dam

Te anexo un ejemplo, crea un csv de la hoja "datos", y no te modifica tu libro actual Ya después si quieres borras la hoja "datos" de tu libro con esto Application.DisplayAlerts = False Worksheets("datos").Delete Application.DisplayAlerts = True Esta...

Prueba con lo siguiente, revisa que tal te parece. Dim ultdato As Long ultdato = Sheets("base2").Range("A65536").End(xlUp).Row ufila = Worksheets("base2").Range("A" & Rows.Count).End(xlUp).Row + 1 Rows(ufila - 1).Select Selection.Insert Shift:=xlDown...

Si se puede. Tienes que pasar los datos del listbox a las filas de una hoja, la hoja puede existir o puede ser nueva, con la siguiente macro, creas una hoja y pasas los datos del listbox a una fila, cada dato del listbox va en una nueva fila de la...

Sería algo como esto: Select Case Cells(ufila, "G") Case "1-Quiniela" Cells(ufila, "Q") = Cells(ufila, "B") Case "2-Pale" Cells(ufila, "Q") = Cells(ufila, "B") & "-" & Cells(ufila, "C") Case "3-Tripleta" Cells(ufila, "Q") = Cells(ufila, "B") & "-" &...

Puedes poner cómo tienes tus datos y cómo quieres que queden Saludos. Dam

Para mí, no fue tan elemental, me costo trabajo, pero ya quedó. Te envié el archivo. Saludos. Dam

Con lo siguiente puedes encontrar la 1:00:00 am, la macro busca en toda la hoja. Sub macro() Sheets("DATOS_COMPLETOS").Select ufila = ActiveCell.SpecialCells(xlLastCell).Row ucol = ActiveCell.SpecialCells(xlLastCell).Column For j = 1 To ucol For i =...