Julio3110

Elsa Matilde respondió: Te explico en cada línea: Sub NO_CODIGOS() Dim base As Worksheet 'establece la hoja Rad en una variable 'base' Set base = Worksheets("RAD AMCM") 'se asignan valores a las variables: fila origen = 2, col origen = 33, fila destino = 2 ren = 2 COL = 33...

Dante Amor respondió: Te anexo la explicación de cada línea, con ello tal vez te ayude a entender cómo funciona. 'si el valor de ORev es verdadero y el valor de mesr es verdadero entonces continua If ORev.Value = True And mesr.Value = True Then 'a la variable fechaini le...

Dante Amor respondió: Con la instrucción shell puedes abrir una aplicación o ejecutar un archivo bat Unos ejemplos: Sub aplicaciones() 'por.dam Shell "excel.exe" 'abrir excel Shell "winword.exe" 'abrir word Shell "notepad.exe" 'abrir block de notas Shell...

Abraham Valencia respondió: Primero verifica si tienes algún objeto ActiveX que sirva para propósito. Los más usados y que quizás podrías tener en tu PC son el 'Control Calendario 8' (Quizás heredado de una anterior version de Office) o el 'Microsoft Date and Picker' que viene...

Elsa Matilde respondió: Te dejo un ejemplo para que ajustes y adaptes a tus hojas porque no dejaste ni referencia ni versión Excel. Lo que hace mi ejemplo es filtrar la hoja por la col E (5) por criterio 'no vacías'. Luego elimina las filas encontradas y quita el modo de...

Luis_P respondió: Ese mensaje aparece cuando realizas la busqueda en una hoja que no contiene datos. O bien cuando existen pero no esta el dato buscado Prueba esto: Sub busca() If Application.WorksheetFunction.CountA(Range("A:iv")) > 0 Then Dim s As Byte '4c7569735f50...