Jump to content

SALAVERRINO

Members
  • Content Count

    296
  • Joined

  • Last visited

Everything posted by SALAVERRINO

  1. GRACIAS AMIGO IOYAMA, POR EL APORTE. DISCULPA NUEVAMENTE AMIGO Y SINO FUESE MOLESTOSO NUEVAMENTE MI INQUIETUD, PERO SI SE TRATASE DE ESPECIFICAR SOLAMENTE ALGUNAS FILAS O COLUMNAS ESPECIFICAS PARA BORRAR, PERO A LA VEZ HAY FORMULAS (NO BORRARLOS - COLOR AMARILLO). CUAL SERIA EL PROCEDIMIENTO. ADJUNTO ARCHIVO NOTA: NO SE SI ES CORRECTO HACER LA CONSULTA EN FORMA DIRECTA. GRACIAS SORT TRAB EJEMPLO.rar
  2. Y SI FUE BORRAR TODA LA HOJA ACTIVA CUAL SERIA EL RUTINA AMIGO IOYAMA. GRACIAS
  3. Buenos días: Nuevamente molestando su atención y si alguien dentro del FORO, tenga disponible una macro que permita copiar o importar datos de un archivo a otro. Desde ya muchas gracias por su apoyo incondicional.
  4. Buenas Noches. En esta oportunidad tengo un problema al grabar el archivo *.PDF generado en una ruta especifica a la cual siempre se graban mis archivos, siendo la siguiente: D:\PLANILLAS\AÑO 2015\JUNIO\ en esta capeta "\RUDDY", debe ser variable para el almacenamiento del archivo y como siempre desde ya agradezco su gentil colaboración. BOLETA00.rar
  5. Buenas Noches. Navegando por este foro encontré 2 archivos el cual permite modificar el valor de la referencia es decir: conserva el valor antiguo y al costado pone el nuevo valor, por lo tanto agregue unas opciones mas, pero cuando ejecuto la macro me arroja un error, para el cual en el archivo USUAL en la hoja 2 (RESULTADO) muestro el resultado que debería obtener pero solo me muestra 2 (resaltado de color rojo) mas no los otros (resaltado de color amarillo), por lo que solicito de su colaboración. Archivo NUEVO (están los valores antiguos) que se agregan al archivo USUAL Archivo USUAL (están los nuevos valores) los que muestra el valor antiguo y nuevo. Moficando referencia de valores.rar
  6. Buenos días amigo [uSER=159494]@FernandoML[/uSER], tiene razón en no haber especificado versión de excel, estoy trabajando con la version 2013, pero ya hice el paso anterior y si me permite grabarlo como complemento y marcarlo para su fijacion, pero no se ejecuta como tal, porque para ejecutar un complemento veo en algunos foros va como Function, pero esta macro esta como Private. A la espera de su gentil ayuda, quedo de Ud.
  7. Buenas Noches. Quisiera que me ayuden con una interrogante, la cual consiste en esta formula: Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target If .HasFormula Then .ShowPrecedents Else ActiveSheet.ClearArrows End If End With End Sub Lo que quisiera si es posible colocar en una hoja de excel, es decir cada vez que ejecute el MICROSOFT EXCEL esta formula siempre aparezca en dicha hoja, o si habrá alguna macro que permita realizarlo. Desde ya nuevamente agradezco su gentil colaboración.
  8. BUENOS DIAS AMIGO JOSÉ_SANTOS, ESTA EXCELENTE EL VIDEO NRO 54, PERO NO SE PODRIAS ENVIAR LOS LINK DE LAS PRIMERAS SESIONES 1 - 53. GRACIAS
  9. ERA EXACTAMENTE LO QUE ESTABA NECESITANDO AMIGO BIGPETROMAN. POR LO QUE DOY TEMA SOLUCIONADO. GRACIAS.
  10. así es amigo bigpetroman, lo que me indicas el copiar de una celda a otra lo vengo realizando, y pues lo que deseo es que el nombre de la celda B4 se llene en forma automática a la celda B5 pero previa consulta o pregunta con alguna formula de la función SI o cualquier otra cuyos valores sea la columna C4.
  11. Estimados. Tengo un archivo que mediante una formula pueda obtener un valor único que se repite varias veces según la condiciones que se encuentra en una columna. En espera de su respuesta a lo solicitado. Saludos. CONDICION.xls
  12. Buenas noches, deseándole existo a la pagina y a sus colaboradores del mismo, quisiera nuevamente molestar su atención a este problema. Genero un reporte desde esta instrucción y lo que deseo es que al presionar la tecla de cancelar impresión debería cancelar pero no lo hace por consiguiente hace la impresión dicho reporte Sub PENSI() For f = 8 To 8 Sheets("BOLETA PENSIONISTA").Select Range("A1:H70").Select Range("CODIGO3") = Sheets("PENSIONISTA").Cells(f, 1) Application.Dialogs(xlDialogPrinterSetup).Show 'Abre el formulario para seleccionar y configurar la impresora ' ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("Hoja1").Select Range("C15").Select Next End Sub
  13. Private Sub APELLIDOS_Y_NOMBRES_Click() Dim Fila As Long On Error Resume Next Folder = ActiveWorkbook.Path & "\" & "fotito\" Fila = APELLIDOS_Y_NOMBRES.ListIndex + 4 Imagen.Picture = LoadPicture("") Imagen.Picture = LoadPicture(Folder & Sheets("Hoja3").Range("M" & Fila).Value) End Sub[/CODE] buenas noches, quisiera que me ayuden con esta rutina el cual cuando selecciono a los trabajadores angulo caipo, anhuaman jara y zare garcia me muestra su foto y cuando confirmo su registro quisiera que borre dicho foto para dar pase al siguiente trabajador. adjunto archivo. RESUELTO PLANILLA EMPLEADOS Y OBREROS.zip
  14. buenos días amigo del foro ayuda excel, quisiera saber si posible convertir un archivo con vinculación a macro en archivo ejecutable. a la espera de su respuesta quedo de uds.
  15. Desde ya agradezco por su gentil ayuda en los diferentes ejemplos que me han sido muy útiles y en esta oportunidad recurro nuevamente para un ejemplo en que cual me permita enviar los email por hotmail.
  16. por lo tanto el trabajo esta SOLUCIONADO
  17. gracias al apoyo de srs. ayuda excel por la ayuda brinda y solucionar mis dudas adjunto archivo NUEVO APORTE.rar
  18. GRACIAS SR. SERGIO CAMPOS POR SU AYUDA QUEDO COMO DESEABA.
  19. Sr. sergioacomposh, la ubicacion de archivo se encuentra en la unidad f:\fotos ahora bien cuando asigno la ruta de acceso me sale error, digame si estoy colocando mal la instruccion en la linea indicada. Private Sub APELLIDOS_Y_NOMBRES_Click() Dim Fila As Long On Error Resume Next ActiveWorkbook.Path & "\" & "fotos" Fila = APELLIDOS_Y_NOMBRES.ListIndex + 4 Imagen.Picture = LoadPicture("") Imagen.Picture = LoadPicture(Sheets("Hoja3").Range("M" & Fila)) End Sub
  20. Ok. Sr. Sergio Campos H., entonces ya tengo una idea clara de como leer archivos pdf, y dijame Ud. en el primero código mis archivos lo manejo en una usb o disco externo y cuando lo instalo en una pc pues dichas imágenes nos los puede leer por tener diferente ubicación entonces que instrucción podría colocar para que me los lea.
  21. buenas tardes, nuevamente molestando su atencion para esta rutina el cual quisiera saber si me permite cambiar para que lea archivos con extensión pdf, y cual seria su expresion (formula). Private Sub APELLIDOS_Y_NOMBRES_Click() Dim Fila As Long On Error Resume Next Fila = APELLIDOS_Y_NOMBRES.ListIndex + 4 Imagen.Picture = LoadPicture("") Imagen.Picture = LoadPicture(Sheets("Hoja3").Range("M" & Fila)) End Sub[/CODE] y lo otro es si un hipervinculo esta diseñado para leer archivos con extensión pdf o tambien permita leer archivos con expetensión bmp, jpg, o gif. [CODE]=HIPERVINCULO(IZQUIERDA(CELDA("nombrearchivo"),ENCONTRAR("[",CELDA("nombrearchivo"))-1)&"\FOTOS"&$A2&".pdf",$A2&".pdf") FELIX CAMPAÑA FELIX CAMPAÑA.bmp PEDRO ANGULO PEDRO ANGULO.bmp RAUL ANHUAMAN RAUL ANHUAMAN.jpg JOSE CARPIO JOSE CARPIO.jpg JULIO CENTENO JULIO CENTENO.gif EDER FLORES EDER FLORES.gif[/CODE] e igual modo cual seria su formula Desde ya agradezco desde su gentil aporte.
  22. buenas noches, necesito de sus experiencias para este pequeño problema como podría hacer para que esta rutina me permita leer archivo pdf. Private Sub APELLIDOS_Y_NOMBRES_Click() Dim Fila As Long On Error Resume Next Fila = APELLIDOS_Y_NOMBRES.ListIndex + 4 Imagen.Picture = LoadPicture("") Imagen.Picture = LoadPicture(Sheets("Hoja3").Range("M" & Fila)) End Sub agradezco desde su gentil aporte.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png