** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Boletas masivas
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Boletas masivas

 Responder Responder
Autor
Mensaje
Cristhian Ver desplegable
Nuevo
Nuevo


Unido: 20/Enero/2021
Localización: Chile
Estado: Sin conexión
Puntos: 12
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Cristhian Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Boletas masivas
    Enviado: 20/Enero/2021 a las 15:10
Estimados
por favor, me pueden ayudar con  la sintaxis de la macros, es que me toma solo a los primeros 15 de la nomina, y me los repite horizontalmente hasta la boleta 20, como hacerlo, para que después me tome a los 15 siguientes, y así sucesivamente, aunque 15 boletas son vertical, y 20 horizontal, lo que debiera ser, pero solo me toma los 15 primeros de la nomina

debiera ser del 1 al 20 horizontal, después del 21 al 40 y así hasta llegar a los 300 trabajadores

son 20 boletas horizontalmente y 15 verticalmente. si me pueden ayudar con la macros que estoy fallando

que debo hacer? de antemano gracias

adjunto link google drive
-------------------------------------------

saludos


Editado por Mihura - 20/Enero/2021 a las 16:47
Saludos cordiales

atte

CP
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Enero/2021 a las 15:26
Hola Cristhian bienvenido,

Por favor, vuelve a leerte las normas, porque casi, casi que te las has saltado todas.

- este es el foro de Access, ... ¿no será el de Excel?

- vuelve a explicar tu problema, pero más pausadamente y sin imágenes (aunque estén en otro foro)

- abundando en lo de la explicación, cuenta también lo que has hecho para que te podamos orientar, porque no cuentas nada de que tienes hecho ... ¿o buscas un profesional (de pago) que te resuelva tu problema?


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
Cristhian Ver desplegable
Nuevo
Nuevo


Unido: 20/Enero/2021
Localización: Chile
Estado: Sin conexión
Puntos: 12
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Cristhian Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Enero/2021 a las 16:23
ok gracias, lo leere nuevamente, como sale acces y VBA, pense que era este foro, pero gracias
Saludos cordiales

atte

CP
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Enero/2021 a las 16:28
Es que de la primera lectura hecha, parece que estás hablando de un Excel.


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
Cristhian Ver desplegable
Nuevo
Nuevo


Unido: 20/Enero/2021
Localización: Chile
Estado: Sin conexión
Puntos: 12
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Cristhian Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Enero/2021 a las 16:41
lo que hice lo publique en excel, y me explique de mejor manera, tenia razón, enredada la pregunta, pero lo pase a excel, y el link de descarga del archivo esta con la macros, en que me he cabeceado buscando la solución y no he podido encontrarla, estoy aprendiendo gracias a videos , manuales, esta difícil hacer un curso por la pandemia, y además de que estoy cesante, por la pandemia se ha dificultado todo acá en Chile, pero con fe y esperanza de que todo pasara, y he hecho de pasatiempo hacer planillas o cosas que me puedan servir a futuro.

saludos
Saludos cordiales

atte

CP
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Enero/2021 a las 16:44
No abras un nuevo hilo, continua en este ... y nada de imágenes ni links a cosas por resolver. Este foro es para aprender y resolver dudas.

Todo lo que tengas que explicar o mostrar 'escríbelo', las imágenes y los links con el tiempo se pierden y el hilo ya no sirve para que otros usuarios en el futuro puedan aprender de los problemas que nosotros hayamos tenido.

Ya muevo yo el hilo al foro correspondiente.


Editado por Mihura - 20/Enero/2021 a las 16:48
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
Cristhian Ver desplegable
Nuevo
Nuevo


Unido: 20/Enero/2021
Localización: Chile
Estado: Sin conexión
Puntos: 12
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Cristhian Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Enero/2021 a las 16:58
ok muchas gracias
Saludos cordiales

atte

CP
Arriba
Jordi-Albert Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Abril/2006
Localización: Alemania
Estado: Sin conexión
Puntos: 4323
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Jordi-Albert Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Enero/2021 a las 17:19
Buenos días,

a partir del link no puedo ver las macros

podrias escribir que es lo que haces?

lo importante es el bucle que utilizas y las direcciones de las celdas....


Nota: Jordi-Albert es, todo él, un nombre. Mi nombre
Arriba
Cristhian Ver desplegable
Nuevo
Nuevo


Unido: 20/Enero/2021
Localización: Chile
Estado: Sin conexión
Puntos: 12
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Cristhian Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Enero/2021 a las 17:32
gracias, la macro es 
Sub LlenarBoletas()
Dim Fila As Long

Fila = 6

For x = 1 To 15
   Fila = Fila + 1
   For y = 1 To 20
      LlenarBoleta Fila, (x - 1) * 47 + 7, (y - 1) * 16 + 2
   Next
Next
Sheets("Liquidaciones").Select
End Sub
Private Sub LlenarBoleta(Fila As Long, x As Long, y As Integer)
Dim AD As Worksheet
Application.ScreenUpdating = False
Set AD = Sheets("Asignaciones y Descuentos")
With Sheets("Liquidaciones")
   .Cells(x, y).Offset(5, 3) = AD.Range("C" & Fila)
   .Cells(x, y).Offset(6, 3) = AD.Range("B" & Fila)
   .Cells(x, y).Offset(7, 8) = AD.Range("E" & Fila)
   '--
   .Cells(x, y).Offset(14, 6) = AD.Range("L" & Fila)
   .Cells(x, y).Offset(15, 6) = AD.Range("M" & Fila)
   .Cells(x, y).Offset(16, 6) = AD.Range("N" & Fila)
   .Cells(x, y).Offset(17, 6) = AD.Range("O" & Fila)
   .Cells(x, y).Offset(18, 6) = AD.Range("P" & Fila)
   '--
   .Cells(x, y).Offset(23, 6) = AD.Range("G" & Fila)
   .Cells(x, y).Offset(24, 6) = AD.Range("H" & Fila)
   .Cells(x, y).Offset(25, 6) = AD.Range("I" & Fila)
   .Cells(x, y).Offset(26, 6) = AD.Range("J" & Fila)
   .Cells(x, y).Offset(27, 6) = AD.Range("K" & Fila)
   '--
   .Cells(x, y).Offset(25, 13) = AD.Range("Q" & Fila)
   .Cells(x, y).Offset(26, 13) = AD.Range("R" & Fila)
   .Cells(x, y).Offset(27, 13) = AD.Range("S" & Fila)
   .Cells(x, y).Offset(28, 13) = AD.Range("T" & Fila)
   .Cells(x, y).Offset(29, 13) = AD.Range("U" & Fila)
   .Cells(x, y).Offset(30, 13) = AD.Range("V" & Fila)
   .Cells(x, y).Offset(31, 13) = AD.Range("W" & Fila)
   .Cells(x, y).Offset(32, 13) = AD.Range("X" & Fila)
   .Cells(x, y).Offset(33, 13) = AD.Range("Y" & Fila)
End With
End Sub
Saludos cordiales

atte

CP
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: La Gloria
Estado: Sin conexión
Puntos: 3849
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita lbauluz Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Enero/2021 a las 17:43
Muy buenas

Pues es lógico que te tome solo los 15 primeros de la lista puesto que es lo que le indicas en:

For x = 1 To 15

Tienes dos opciones, o pones "a mano" el número real y buscas cual es el último 

Algo similar a esto
UltimaFila = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row


(Suponiendo que en la columna A tengas los datos hasta el final, si no, deberás ver tú en qué columna mirar)

Un saludo.

Luis
El Búho es un pajarraco
Arriba
Jordi-Albert Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Abril/2006
Localización: Alemania
Estado: Sin conexión
Puntos: 4323
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Jordi-Albert Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Enero/2021 a las 18:07
quiero entender que la funcion llenarBoleto es correcta (aunque 
Dim AD As Worksheet
Set AD = Sheets("Asignaciones y Descuentos" 
no se necesita y si desctivas el reflesco de pantalla deberias volverlo a activar)

Por lo que analizo de tus datos, tienes una serie datos de "personas" que quieres poner en bloques de 20 horizontalmente

yo haria algo como:

range("C7").select
x = 7   '____primera linea 
y = 2   '____primera columna
while len(activecell) > 0 
    '___procesar todas las lineas
    Fila = activecell.row   '___fila a procesar
    LlenarBoleta Fila, (x - 1) * 47, (y - 1) * 16 

    if y = 20 then
      '___hemos llenado al final de las 20 boletas horizontales
      x = x+1     '___procedemos con las siguientes series
      y = 2         '___columna inicial
    else
      y = y+1   '___siguiente boleta en las mismas filas
    end if
    
   '___procesar el siguiente
   activecell.offset(1,0).select
wend


es un esquema que deberias comprobar

nota: las boletas deberian estar preparadas anteriormente o bien generarlas en la funcion llenarBoleta


Nota: Jordi-Albert es, todo él, un nombre. Mi nombre
Arriba
Cristhian Ver desplegable
Nuevo
Nuevo


Unido: 20/Enero/2021
Localización: Chile
Estado: Sin conexión
Puntos: 12
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Cristhian Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Enero/2021 a las 18:46
Las boletas
                          1    
  #¡REF!        
  #¡REF!   L I Q U I D A C I Ó N    D E     R E M U N E R A C I O N E S     D E    
  #¡REF!     #¡REF!    
     
  Trabajador : ACEITUNO  ROJAS xxxx ##          
  Rut : xxxx Contrato : #¡REF!      
  Cargo : #¡REF!   Días Trabajados : 29   Fecha de Ingreso : #¡REF!    
     
  H A B E R E S   D E S C U E N T O S    
             
  Sueldo Base #¡REF! $ #¡REF!   Salud #¡REF! $ #¡REF!    
  Horas Extraordinarias 0 $ #¡REF!   Obligatorio $ #¡REF!      
  Comisión $ #¡REF!   Adicional $ #¡REF!      
  Bono de Asistencia $     AFP #¡REF! #¡REF! $ #¡REF!    
  Bono Mensual $     Ahorro Voluntario APV $ #¡REF!    
  Bono de Producción $     Seguro de Cesantia #¡REF! $ #¡REF!    
  Aguinaldos $          
  Otros Bonos $          
  Gratificación  $ #¡REF!   Remuneración Imponible $ #¡REF!      
    Total Imponible $ #¡REF!   Descuentos Previsionales $ #¡REF!      
        Rem. Neta $ #¡REF!      
  Asignación Familiar #¡REF! $ #¡REF!   Impto. Determ. $ #¡REF!      
  Asignación de Colación $               60.000   Rebaja Impto $ #¡REF!      
  Asignación de Movilización $               60.000   Impuesto a Pagar $ #¡REF!    
  Desgaste de Herramientas $               60.000   Anticipo 1 $              50.000    
  Pérdida de Caja $                    378   Anticipo 2 $              30.000    
  Asignación de Viaticos $               60.000   Anticipo 3 $              20.000    
    Total Haberes $ #¡REF!   Prestamo CAAF  $      
        Otros Prestamos $      
        Colecta voluntaria $      
        Casino $      
        Descuento Judicial $      
        Otros Descuentos $      
        Total Descuentos $ #¡REF!    
                               
     
  Liquido a Pagar $ #¡REF!    
     
  #¡REF!    
     
     
     
     
  V°B° Empresa           V°B° Trabajador        


Editado por lbauluz - 20/Enero/2021 a las 21:17
Saludos cordiales

atte

CP
Arriba
Cristhian Ver desplegable
Nuevo
Nuevo


Unido: 20/Enero/2021
Localización: Chile
Estado: Sin conexión
Puntos: 12
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Cristhian Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Enero/2021 a las 18:49
Datos origen

A B C D E F G H I J K
R.U.N. Ap. Paterno  Ap. Materno  Nombres Horas Fijas al Mes Días Trab. Horas Extra SI SI SI NO SI
 Asignación de Colación  Asignación de Movilización Desgaste de Herramientas Pérdida de Caja Asignación de Víaticos
1 xxx ACEITUNO  ROJAS xx 174 29 0              60.000              60.000              60.000                   378              60.000
2 xxx ACEVEDO ARO xxx 174 29 0              60.000              60.000                   378              60.000
3 xxx AGUAYO ORTIZ xxx 174 29 0              60.000              60.000              60.000                   378              60.000
4 xxx ALCAINO JARA xxx 174 29 0              60.000              60.000              60.000                   378              60.000
5 xxx ALCAINO JARA xxx 174 29 0              60.000              60.000              60.000                   378              60.000
6 xxx ALFARO  GRANDON Jxxx 174 29 0              60.000              60.000              60.000                   378              60.000


Editado por lbauluz - 20/Enero/2021 a las 21:19
Saludos cordiales

atte

CP
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: La Gloria
Estado: Sin conexión
Puntos: 3849
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita lbauluz Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 20/Enero/2021 a las 21:20
He cambiado los dos últimos mensajes para quitar datos personales que no deberían publicarse.

Luis
El Búho es un pajarraco
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable