Jump to content

yordin

Members
  • Content Count

    185
  • Joined

  • Last visited

  • Days Won

    1

yordin last won the day on May 28 2016

yordin had the most liked content!

1 Follower

About yordin

  • Rank
    Advanced Member
  • Birthday 05/22/1987

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. adjunto el excel y uno de los txt CONVERTIR TXT BANAVIH.xlsm 01-12-2019.txt
  2. los datos los traigo de diferentes TXT , con el primer macro del archivo que es importar, luego de eso corro la que se llama igualar, que en esta tengo ahora que adaptar lo de la fecha pienso deberia ser algo asi: Columns("A:A") = Format(Columns("A:A"), "ddmmyyyy") o me equivoco, agradezco tu ayuda de verdad
  3. ese cambio lo hice manual cambiando uno a uno los datos primero cambiando formato de celdas a Texto y luego agregando los ceros adicionales a cada fecha
  4. una ultima consulta y disculpa el abuso sabes que en la columna "H" extraigo los datos de fechas, sucede que al momento de cuando son los primeros 9 días del mes el excel omite el numero "0" como puedo hacer para reflejar el "0" ya que luego de editar la data necesito exportarlo nuevamente a otro txt y sin ese cero me da error al cargarlo, probe usando formato condicional, usando cantidad de digitos fijos, colocando formato especial con el cero delante pero no me lo toma al momento de exportar, solo lo toma cuando coloco la columna en formato texto y agrego los ceros en el campo de forma manual cuando lo extraigo se refleja 9052020 y necesito que sea 09052020
  5. Gracias amigo, me funciona perfecto la macro, lo de las formulas no me servia, ya que en el mismo documento tengo otras macros, primero importo el TXT, luego en la columna requiero modificar los minimos, para luego con otra macro dependiendo las columnas ya fijas volver a crear el txt ya establecido. dejo una muestra final por si alguien le sirve para futuros casos CONVERTIR TXT BANAVIH.xlsm
  6. el mínimo debería ser 25000000 lo que este por debajo de ese valor debería convertirse a 250000000, el detalle que los ceros los usaba demás ya que al cargar el txt los convierte en decimales
  7. buenas tardes, estoy trabajando con un archivo en el cual manejo pagos a entes gubernamentales, y a partir del mes de abril no permiten cargar valores que sean inferiores a un salario especifico, resulta que en mi libro la columna "G" posee el campo sueldo, pero al extraer la información necesito que una macro ubique los valores inferiores ejemplo a 250 y estos que sean menores los convierta a 250, únicamente los que sean menores a este valor prueba.xlsx
  8. hola como estas disculpa el abuso que te escriba, estoy haciendo un trabajo un poco similar a este que le ayudaste a hacer a un muchacho en un foro; mi pregunta que si esta solución se podría hacer para importar todos los recibos a un pdf si necesidad de crear múltiples hojas, como en este caso. o a cada uno en su pdf 

    CALCULO UILIDADES.xlsm

  9. @AlexanderS @isidrod muchísimas gracias, ambas soluciones me sirven para lo que estoy realizando
  10. buenas tardes, escribo con la finalidad de solicitar ayuda en cuanto a una base de datos en la cual tengo 11 columnas de las cuales las 7 primeras tienen valores duplicados, y en las 4 ultimas estos valores deben sumarse al eliminar duplicados. cargo un excel con dos hojas, Hoja1 como se muestran los duplicados y Hoja2 como debería ser el resultado. espero me puedan colaborar con esta base de datos. Gracias de antemano Prueba Utilidades.rar
  11. yo uso oficce 2010 que es 14 creo, y uso esas versiones xq no todos los que usaran la base tienen el mismo oficce, y en cuanto a lo de ser poco practico, es que si le doy actualizar los datos siempre estan variando en diferentes columnas y prefiero evitar estos inconvenientes. en el link que me envías, indica que la cadena sql debe hacerse dependiendo el formato de cada columna? es que no entiendo muy bien soy relativamente nuevo en esto de vba..
  12. buenas tardes, escribo con la finalidad de solicitar apoyo en cuanto a mover datos de un excel a una tabla en Access. mi archivo de excel tiene los campos a exportar en los campos A2:AN8000 y los campos o nombres de columna estan en A1:AN1, en la hoja llamada Empleados requiero moverla a un Access llamado Datos.mdb el cual al abrir se debe colocar la clave "rrhh" en minúsculas, requiero que al pasar de excel al access sobrescriba lo que exista en el access tipo actualización de datos, que primero vacié la tabla Empleados del access y luego pegue los datos del Excel en Access. espero me puedan colaborar. dejo muestra de la base de Excel y del Access al abrir se debe colocar la clave "rrhh" en minúsculas https://mega.nz/#!AhcUxI5Y!zNt63rw9ExgyRTegkIpua9VRQHqHK9503cSw1-GIGfE
  13. El detalle estaba en que el visual hacia interferencia las minusculas y mayusculas en los datos del código quedo así: Private Sub cmdExportar_Click() If lblCriterio.Caption = "" Then MsgBox "Debe seleccionar un registro para exportar" Exit Sub End If If Me.cmbPlantilla.Text = "" Then MsgBox "Debe seleccionar un Documento para exportar" Exit Sub End If If UCase(Me.cmbPlantilla.Text) = UCase("Constancia de Trabajo") Then Call exportarconstancia ElseIf UCase(Me.cmbPlantilla.Text) = UCase("Medicinas / Estudios") Then Call exportarplantillamedicinas ElseIf UCase(Me.cmbPlantilla.Text) = UCase("Correo Egreso") Then Call exportarplantillacorreo ElseIf UCase(Me.cmbPlantilla.Text) = UCase("Anticipo de Prestaciones") Then Call exportarplantillaanticipos ElseIf UCase(Me.cmbPlantilla.Text) = UCase("Evaluacion Medica") Then Call exportarplantillaevamedica ElseIf UCase(Me.cmbPlantilla.Text) = UCase("Reporte 14-52") Then Call exportarplantilla1452 ElseIf UCase(Me.cmbPlantilla.Text) = UCase("Reporte 14-100") Then Call exportarplantilla14100 End If iniciagrid End Sub
  14. seria algo asi: Private Sub cmdExportar_Click() If cmbPlantilla = "Constancia de Trabajo" Then Call ExportarConstancia If cmbPlantilla = "Medicinas / Estudios" Then Call ExportarPlantillaMedicinas If cmbPlantilla = "Correo Egreso" Then Call ExportarPlantillaCorreo If cmbPlantilla = "Anticipo de Prestaciones" Then Call ExportarPlantillaAnticipos If cmbPlantilla = "Evaluacion Medica" Then Call ExportarPlantillaEvaMedica If cmbPlantilla = "Reporte 14-52" Then Call ExportarPlantilla1452 If cmbPlantilla = "Reporte 14-100" Then Call ExportarPlantilla14100 End Sub
×
×
  • Create New...

Important Information

Privacy Policy