UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

fdo.andrade1@gmail.com

avatar
Les platico mi situación brevemente, tengo una cartera de clientes los cuales cada semana (durante 16 semanas) tienen que dar un pago “x” (el pago varía cada semana por cuestiones externas) los reportes de pago los descargo de una base de datos. Lo que busco es una macro que me detecte:
1.      

  •     El número de cliente
  •      El monto de pago de la semana en cuestión



De esta forma la macros deberá copiar el pago que solicita el sistema para esa semana, y pegarlo en la celda del cliente “x” semana de pago “y”, sin que modifique los antiguos registros capturados previamente. (la macros actuará con base en el numero de semana de la base de datos).

De esta manera yo podré ver cuanto solicitó el sistema para el pago en la semana 1, semana 2, semana 3, ….. etc. hasta la 16. Y así comparar con el pago efectuado para revisar que el cliente haya pagado bien.

Anexo mi archivo de datos, en la Hoja 1 está la base de datos con la información del cliente y en la hoja 2 la tabla de histórico de pagos.


Agradezco mucho su atención y espero me apoyen a resolver mi situación, Saludos

Les dejo un link para el archivo.
https://www.dropbox.com/s/fryo7d102qudfik/Prueba%20Pagos%20S..xlsx?dl=0

FernandoML


Buenas tardes a todos:

Dentro de tu archivo pulsa ALT+F11 para entrar en el Código haz doble click en Sheet11(Historico Lider) e inserta este código.

Cuando pulses en la hoja Historico Lider rellenará la tabla.

Pruebalo y nos comentas.

Un Saludo

Código:
Private Sub Worksheet_Activate()
    Dim Sem As Integer
    
    For Fila = 4 To Sheet4.Range("A" & Rows.Count).End(xlUp).Row
        Sem = Sheet4.Range("C" & Fila) + 2
        Sheet11.Range("A:A").Find(Sheet4.Range("A" & Fila).Row).Select
        Sheet11.Cells(Fila - 1, Sem) = Sheet4.Range("D" & Fila)
    Next
End Sub

fdo.andrade1@gmail.com

avatar
Hola FernandoML


Muchas gracias por el código, ya lo integré a mi archivo original y está trabajando bien, el único problema es que me marca un error de tiempo de ejecución "91". en la linea 5 del código.


Private Sub Worksheet_Activate()
    Dim Sem As Integer
    
    For Fila = 6 To Sheet4.Range("A" & Rows.Count).End(xlUp).Row
        Sem = Sheet4.Range("H" & Fila) + 3
        Sheet11.Range("A:A").Find(Sheet4.Range("A" & Fila).Row).Select
        Sheet11.Cells(Fila - 3, Sem) = Sheet4.Range("I" & Fila)

    Next

End Sub


Puedo terminar el proceso y la información se pasa bien. ¿por que razón marca el error?


De ante mano muchas gracias.

excelboy

avatar
Hola Fernando,

Inicialmente tienes los datos por cliente en forma vertical y quieres pasarlos a una vista horizontal, lo cual es mas agradable al ojo humano.

Veo que ya te brindaron  una solución una macro, pero es en estos casos cuando creo que sobrescriben funcionalidad, quieren matar una mosca con un misil.

Que acaso tu problema no se resuelve empleando tablas dinámicas, poniendo el nombre en el área de filas, la semana en las columnas y poniendo el pago de la semana en el área de valores sin tener que programar nada. Si no sabes lo que es una tabla dinámica te sugiero que busques en youtube ya que es una de las herramientas mas poderosas de Excel.

Saludos!

http://mexcelmx.blogspot.mx/

fdo.andrade1@gmail.com

avatar
Gracias por el aporte Excelboy,

En realidad si necesitaba la programación para la macros, ya había considerado la opción con tablas dinámicas pero no resolvía mi problema al 100%.

de cualquier forma agradezco el interés.

Saludos

excelboy

avatar
Hola Fernando,

Por que las tablas dinámicas no resuelven al 100% tu problema?

Saludos!

http://mexcelmx.blogspot.mx/

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.