Base de datos clientes Excel

Hola buenas tardes:
Ya habia hecho esta pregunta pero puse mal el link con el archivo sorry una disculpa.
Les decia que tengo una base de datos de clientes , pero necesito que el programa excel me de un reporte de los clientes que me vistaron durante todo el año y sobre todo EN QUE FECHA ME VISITARON, esto a travez de una base de datos donde yo voy capturando la fecha en que me visita un cliente, pero quiero que luego excel me de un reporte de las fechas en que me visitaron los clientes.
el archivo esta en estas direcciones, es el mismo archivo solo que lo subi a 3 diferentes servidores por si alguno se cancela o algo.
http://www.filedropper.com/basededatosclientes
http://www.badongo.com/file/25631510
http://www.filefactory.com/file/cdafe94/n/BASE_DE_DATOS_CLIENTES.xlsx
Gracias de antemano.

1 respuesta

Respuesta
-1
De lo que veo en tu hoja creo que se vuelve dificil porque tu formato lo vuelve dificl, por tanto yo pregunto, se puede cambiar un poco el formato, para que en lugar de como lo tienes sea asi¨:
A1 = Fecha
B1 = Placas
Y de A2 en adelante cada vez que haya una placa colocas el día y la placa que le toca, creo que si ordenas tu info en forma de tabla es más fácil generar el reorte que necesitas, tu eres el usuario dime si te conviene el cambio.
el formato que tengo es solo una forma de hacerlo , pero si se puede cambiar claro, si es mas facil.
Lo unico que quiero es que sea facil ir capturando el dato PLACa en su celda correspondiente.
Gracias
Me he demorado porque estoy de afán con esto de la jornada mundial de la juventud, en todo caso te paso los codigos, el archivo te lo paso por correo.
Sub Base()
Dim Comprobar, c, d
Comprobar = True: c = 1: d = 1 ' Inicializa variables.
Sheets("REPORTE CLIENTES").Select
a = Range("B3").Value
Z = 1
For i = 1 To 12
Sheets("DM").Select
Z = Z + 1
b = Range("A" & Z).Value
Sheets(b).Select
Do ' Bucle externo.
Do While c < 65000 &#39; Bucle interno.
c = c + 1 &#39; Incrementa el contador.
If Range(&quot;B&quot; & c).Value <> &quot;&quot; Then &#39; Si la condición es verdadera.
If Range(&quot;B&quot; & c).Value = a Then
e = Range(&quot;A&quot; & c).Value
d = d + 1
Sheets(&quot;REPORTE CLIENTES&quot;).Select
Range(&quot;G&quot; & d).Value = e
Range(&quot;F&quot; & d).Value = a
Sheets(b).Select
End If
Else
Comprobar = False &#39; Establece el valor a False.
Exit Do &#39; Sale del bucle interno.
End If
Loop
Loop Until Comprobar = False &#39; Sale inmediatamente
Next i
Sheets(&quot;REPORTE CLIENTES&quot;).Select
End Sub
a cual correo ami correo ??
Te lo envio o que onda???
Según yo ya te envie el correo, en todo caso escribe a mi correo para pasarte el archivo.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas