Necesito Macro para auto-relleno de celdas según identificación en C7
Publicado por JoaoM (79 intervenciones) el 06/07/2016 20:58:24
Hola
Gracias por proximas respuestas de expertos en la materia.
Dejo libro para que puedan verificar y ver si se logra algo de lo que pretendo
En el ejemplo tengo una macro en Modulo Inicio_Print_Copia llamada Sub Copia_Factura(Optional X As Long) que hace una copia de factura hacia la hoja “Copias_Factura”. NO se trata de esta macro sino requerir una otra.
Esta es la copia en la hoja “Copias_Factura” que viene de la hoja “Factura” por via de la macro que menciono
¿Porque no quiero validación?:
Para ser con plan de validación de C7 Hoja “Factura”, 1º tendría que anteriormente haber registrado TODOS clientes que aparezcan y eso es imposible porque, suponiendo que hago un promedio de 1500 ventas al mes serian 39.000 x 26 días = 468.000 multiplicado por un promedio de 4 líneas cada venta = 1.872.000 líneas en una plantilla al año, mucho para una sola plantilla (libro).
Dividido por 100.000 líneas por libro = serian al año = 18,72 libros.
Pretendo que:
(La identificacion (si existe) del cliente, se encuentran en la columna B de hoja8 "Copias_Factura"
Escribir yo la identificacion del cliente en C7 De Hoja7 “Factura” y pisar Enter,
SI existe esa identificación escrita en C7, en B de Hoja “Copias_Factura”, que se auto-llenen las celdas C8, C9, B10, C11 y E12 con todos los datos referentes a la identificación encontrada en Hoja8 “Copias_Factura” y se ponga el fondo SOLO de la C7 en Verde Claro.
Escribo en C7 la edentificacion del clientea facturar, piso Enter y esa identificacion NO EXISTE en hoja8 "Copias_Factura" Columna B, entonces SOLO la C7 se pondrá fondo rojo es que tengo que meter todos los datos del cliente manualmente en C8, C9, B10, C11. Aqui nada ingreso manualmente en la E12 porque aun no existe dicho cliente en hoja8 "Copias_Factura"
Esta es una plantilla que con la ayuda estoy construiendo para mi uso personal
GRacias por su colaboracion.
No me deja subir ni RAR ni ZIP, mas tarde tentare nuevammente subirlo
Dentro del codigo de la hoja7 esta lo que consegui por la WEB pero no logro que se me llenen las celdas
Gracias por proximas respuestas de expertos en la materia.
Dejo libro para que puedan verificar y ver si se logra algo de lo que pretendo
En el ejemplo tengo una macro en Modulo Inicio_Print_Copia llamada Sub Copia_Factura(Optional X As Long) que hace una copia de factura hacia la hoja “Copias_Factura”. NO se trata de esta macro sino requerir una otra.
Esta es la copia en la hoja “Copias_Factura” que viene de la hoja “Factura” por via de la macro que menciono
¿Porque no quiero validación?:
Para ser con plan de validación de C7 Hoja “Factura”, 1º tendría que anteriormente haber registrado TODOS clientes que aparezcan y eso es imposible porque, suponiendo que hago un promedio de 1500 ventas al mes serian 39.000 x 26 días = 468.000 multiplicado por un promedio de 4 líneas cada venta = 1.872.000 líneas en una plantilla al año, mucho para una sola plantilla (libro).
Dividido por 100.000 líneas por libro = serian al año = 18,72 libros.
Pretendo que:
(La identificacion (si existe) del cliente, se encuentran en la columna B de hoja8 "Copias_Factura"
Escribir yo la identificacion del cliente en C7 De Hoja7 “Factura” y pisar Enter,
SI existe esa identificación escrita en C7, en B de Hoja “Copias_Factura”, que se auto-llenen las celdas C8, C9, B10, C11 y E12 con todos los datos referentes a la identificación encontrada en Hoja8 “Copias_Factura” y se ponga el fondo SOLO de la C7 en Verde Claro.
1
2
3
4
5
6
Color verde fondo de C7 y pasa los datos;
de la columna C de "Copias_Factura" hacia la C8 de "Factura"
de la columna D de "Copias_Factura" hacia la C9 de "Factura"
de la columna E de "Copias_Factura" hacia la B10 de "Factura"
de la columna F de "Copias_Factura" hacia la C11 de "Factura"
de la columna G de "Copias_Factura" hacia la E12 de "Factura"
Escribo en C7 la edentificacion del clientea facturar, piso Enter y esa identificacion NO EXISTE en hoja8 "Copias_Factura" Columna B, entonces SOLO la C7 se pondrá fondo rojo es que tengo que meter todos los datos del cliente manualmente en C8, C9, B10, C11. Aqui nada ingreso manualmente en la E12 porque aun no existe dicho cliente en hoja8 "Copias_Factura"
Esta es una plantilla que con la ayuda estoy construiendo para mi uso personal
GRacias por su colaboracion.
No me deja subir ni RAR ni ZIP, mas tarde tentare nuevammente subirlo
Dentro del codigo de la hoja7 esta lo que consegui por la WEB pero no logro que se me llenen las celdas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If Target = Range("C7") Then
If Cells(7, 4).value = "--" Then
Range("C8:D8").ClearContents
Range("C9:D10").ClearContents
Cells(10, 2).ClearContents
Cells(11, 3).ClearContents
Exit Sub
Else
FILA = Cells(7, 4).value
Cells(8, 3).Formula = "=Copias_Factura!C" & FILA
Cells(9, 3).Formula = "=Copias_Factura!D" & FILA
Cells(10, 2).Formula = "=Copias_Factura!E" & FILA
Cells(11, 3).Formula = "=Copias_Factura!F" & FILA
Cells(12, 5).Formula = "=Copias_Factura!G" & FILA
End If
Else
Valora esta pregunta
0