Jump to content
Leone04

Asignar cupones según cantidad

Recommended Posts

Hola amigos del foro, recurro a uds para que me puedan ayudar con un problema que tengo.

Lo que busco es asignar cupones a cada usuario, según la cantidad que le corresponde, adjunto un archivo ejemplo y como debería quedar al final. Espero puedan ayudarme o guiarme a una solución, muchas gracias a todos

Archivo.xlsx

Share this post


Link to post
Share on other sites

Hola

En 1/5/2019 at 12:35 , Leone04 dijo:

Hola amigos del foro, recurro a uds para que me puedan ayudar con un problema que tengo.

Lo que busco es asignar cupones a cada usuario, según la cantidad que le corresponde, adjunto un archivo ejemplo y como debería quedar al final. Espero puedan ayudarme o guiarme a una solución, muchas gracias a todos

Archivo.xlsx 10 kB · 3 downloads

¿Ahora explica como relacionas los cupones, con cada identidad?

 

Saludos 

Share this post


Link to post
Share on other sites

 

Hace 2 horas, Gerson Pineda dijo:

Hola

¿Ahora explica como relacionas los cupones, con cada identidad?

 

 

yo su pongo que es la cantidad que asta en la columna D de la hoja Resultado final.

saludos isidrod

Share this post


Link to post
Share on other sites

cuando suban un archivo también hay que poner comentarios de como se arma para mas claridad  yo no soy bueno entendiendo con tata letras,hacer como un manual de usuarios

Share this post


Link to post
Share on other sites
Hace 32 minutos , isidrod dijo:

para eso debe haber una relación entre la hoja data y cupones si no es así ni como saber .

Así es, por eso es mi duda

Hace 3 horas, Gerson Pineda dijo:

¿Ahora explica como relacionas los cupones, con cada identidad?

Respecto a la cantidad, esta claro

 

Saludos a ambos

Share this post


Link to post
Share on other sites

Esta macro hace lo que pides, o eso creo.

El resultado se obtiene sobre la propia hoja Data.

Sub AsignarCupones()
   Dim Data, Cupones, Fila
   '--
   Application.ScreenUpdating = False
   Set Data = Sheets("Data")
   Set Cupones = Sheets("Cupones")
   '--
   Fila = 1
   For x = 2 To Data.Range("A" & Rows.Count).End(xlUp).Row
      Data.Range("D" & x) = ""
      For y = 1 To Data.Range("C" & x)
         Fila = Fila + 1
         Data.Range("D" & x) = Data.Range("D" & x) & ";" & _
                               Cupones.Range("A" & Fila)
      Next
      Data.Range("D" & x) = Mid(Data.Range("D" & x), 2)
   Next
End Sub
'--

 

Share this post


Link to post
Share on other sites
Hace 20 horas, Leone04 dijo:

Hola @Gerson / @Isidrod, gracias por su ayuda, bueno no existe una relación entre si, sólo se le asigna el cupón por la cantidad que le corresponde a cada uno

Ya con mas detenimiento y viendo la macro de Antoni, te falto indicar que se tomara como correlativo las mismas cantidades por celda, igual hay días que se tiene tiempo para analizar cada tema, pero hay días que no 

Siendo así, adjunto mi método/versión, en el caso que el ciclo alcance el limite de cupones, la macro termina

 

Saludos

 

 

Concatenar celdas VBA_GP.zip

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png