Dante Amor

Reviso tus archivo y te comento

La macro revisa hasta un +5 y hasta un -1 En tus datos tienes esto: 303317 El siguiente número más cercano es 303322 ¿Por qué? Porque 303317 + 5 = 303322, es por eso que el siguiente número correcto es 303322, de ahí la macro empieza a comparar, cuál...

Envíame tus archivos y me explicas paso a paso qué debo hacer. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “David Calleja” y el título de esta pregunta.

Te anexo la macro Sub Pasar_Datos() '--- ' Por.Dante Amor '--- ' Set h1 = Sheets("ORIGEN") Set h2 = Sheets("DESTINO") h2.Range("A7:H" & Rows.Count).Clear h2.Columns("H:H").NumberFormat = "m/d/yyyy" codigos = Array("510506", "510527", "237005",...

No entiendo cómo tienes los datos iniciales en la hoja. Puedes poner una imagen de tu hoja1. O decirme exactamente qué tienes en cada celda.

Antes de ejecutarla tienes que revisar lo siguiente: La versión de programa Adobe, entra al explorador de archivos, sigue la ruta: Archivos de programa\Adobe\Reader . En mi ejemplo puse Reade 11.0, pero debes poner en la macro la versión que tú...

Te anexo la macro. Por cada combo, te va a enviar un mensaje de sí existe o no existe. Private Sub CommandButton1_Click() 'Por.Dante Amor ' For i = 1 To 15 existe = False For Each ctrl In Me.Controls If TypeName(ctrl) = "ComboBox" Then n =...

El texto "enero" no corresponde a una fecha, es por eso que no le puedes dar formato de fecha: Format(strmes, "mm") Primero hay que convertir "enero" a una fecha, y después obtener el mes en número: ' strmes = "enero" fecha = CDate("01/" & strmes &...

Te presento una forma para utilizar el comodín "*" Suponiendo que el campo está en la columna A, entonces realiza lo siguiente: Sub Buscar_Dato() 'Por.Dante Amor For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A") Like "PM-04" & "*"...

Si utilizaste esto para ocultar la aplicación: Application.Visible = False Entra a VBA y en un módulo ejecuta la siguiente macro Sub habilitar() Application.Visible = True End Sub Si no es así, entonces dime cómo "deshabilitaste" el libro. 'S aludos....