Experto: Por favor necesito macro en excel

Experto: Tengo una columna en excel en donde aparece No. Cedula del vendedor y abajo de este No. Aparece las ventas del vendedor (Fecha, Valor vendido). La macro debe copiar para cada venta el No. De Cedula del vendedor, es decir, debe aparecer: No. Cedula, Fecha, Valor Vendido. Cada vez que cambie el No. Cedula (vendedor), la macro debe ir comparando hacia abajo de la columna hasta encontrar una nueva cedula y volver a copiar esta nueva cedula en las ventas realizadas por este nuevo vendedor y así sucesivamente hasta el último vendedor. Gracias
Tenemos n vendedores
No. Cedula:
93121 Luis Buendia
                Fecha Venta Valor Vendido
                xxxxxxxxxxxxx zzzzzzzzzz
                 xxxxxxxxxxxxx zzzzzzzzzzz
                xxxxxxxxxxxxx zzzzzzzzzz
                 xxxxxxxxxxxxx zzzzzzzzzzz
93122 Pedro Perez
                Fecha Venta Valor Vendido
                xxxxxxxxxxxxx zzzzzzzzzz
                 xxxxxxxxxxxxx zzzzzzzzzzz
Después de correr la macro debe quedar:
93121 Luis Buendia
                Fecha Venta Valor Vendido
93121 xxxxxxxxxxxxx zzzzzzzzzz
93121 xxxxxxxxxxxxx zzzzzzzzzzz
93121 xxxxxxxxxxxxx zzzzzzzzzz
93121 xxxxxxxxxxxxx zzzzzzzzzzz
93122 Pedro Perez
                Fecha Venta Valor Vendido
93122 xxxxxxxxxxxxx zzzzzzzzzz
93122 xxxxxxxxxxxxx zzzzzzzzzzz

1 Respuesta

Respuesta
1
En lugar de una macro yo pondría una fórmula, siguiendo tu ejemplo en D2 pondría:=SI(Y(A2="", C2>0), D1, A2)
Revisa y dime si te funciona.
Experto: No me funciona. La fórmula o macro debe ir automáticamente comparando los números de cedula y cuando cambia, debe asumir este nuevo valor y así ir bajando sucesivamtenhasta recorrer la tabla:; 93121 compara con 93122, luego 93122 con la próxima cedula.
Como conclusión, es como agregar en el detalle (para cada venta) una columna donde apareceza el No. de cedula del vendedor
                     A B C
                     93121 Luis Buendia
                     Fecha Venta Valor Vendido
                xxxxxxxxxxxxx zzzzzzzzzz
                 xxxxxxxxxxxxx zzzzzzzzzzz
                xxxxxxxxxxxxx zzzzzzzzzz
                 xxxxxxxxxxxxx zzzzzzzzzzz
93122 Pedro Perez
                Fecha Venta Valor Vendido
                xxxxxxxxxxxxx zzzzzzzzzz
                 xxxxxxxxxxxxx zzzzzzzzzzz
Después de correr la macro debe quedar:

93121 Luis Buendia
                Fecha Venta Valor Vendido
93121 xxxxxxxxxxxxx zzzzzzzzzz
93121 xxxxxxxxxxxxx zzzzzzzzzzz
93121 xxxxxxxxxxxxx zzzzzzzzzz
93121 xxxxxxxxxxxxx zzzzzzzzzzz
93122 Pedro Perez
                Fecha Venta Valor Vendido
93122 xxxxxxxxxxxxx zzzzzzzzzz
93122 xxxxxxxxxxxxx zzzzzzzzzzz
Ok, esta macro hace lo que necesitas, ya la probé y funciona
Sub completa()
Dim Comprobar, Contador
Comprobar = True: Contador = 0 ' Inicializa variables.
a = InputBox("Ingresar el número de fila en la que inicia")
Do ' Bucle externo.
Do While Contador < 65000 ' Bucle interno.
Contador = Contador + 1 ' Incrementa el contador.
If Range("A" & a).Value = "" And Range("B" & a).Value = "" And Range("C" & a).Value = "" Then
Comprobar = False ' Establece el valor a False.
End If
If Range("A" & a).Value <> "" Then
b = Range("A" & a).Value
Else
If Range("B" & a).Value <> "Fecha Venta" Then
Range("A" & a).Value = b
End If
End If
a = a + 1
Exit Do ' Sale del bucle interno.
Loop
Loop Until Comprobar = False ' Sale inmediatamente del bucle externo.
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro en Excel para que me abra el cuadro "Guardar Como" pudiendo elegir destino y nombre

Necesito una macro para que al ejecutarla me abra el diálogo o como se llame "Guardar Como", que me deje elegir el nombre, que me deje elegir la ubicación y que por default lo guarde con extensión xlsm. ¿Será posible?
2 respuestas

Como incrustar imagen en celda Excel con datos de Access 2013

Quisiera saber si es posible exportar datos de Access a Excel e incrustar automáticamente la imagen a la que hace referencia una url dentro de la tabla de Access. Tengo una tabla que contiene la dirección de una imagen dentro de carpetas de mi pc, y...
1 respuesta

Contar celdas que contengan ciertos caracteres

Espero puedan ayudarme, tengo un listado horizontal de 9 celdas, en las cuales contienen 6 tipos de identificación. A,C,D,1,2 y V Al final de esas columnas, necesito contar por ejemplo solo las A, C y 1. Ya lo intente, pero no puedo lograrlo, ¿Me...
1 respuesta

¿Extraer los caracteres que hay dentro del segundo paréntesis de un String? En Excel VBA

A tod@s! Tengo una arrray, y en una de las columnas tengo datos, como estos: y necesito encontrar estos caracteres... Ojo que puede haber más de dos "( )" en un String y siempre seria el ultimo "()" comenzando por el ultimo carácter del String. Os...
2 respuestas

¿Cómo convertir valores de una celda en sucesivas filas?

Habitualmente trabajo con Access, pero desde una oficina me han pasado un archivo de Excel donde en cada fila de una hoja se indican en la primera columna el número de caja y en la celda siguiente (segunda columna) todos los números de expediente que...
1 respuesta

Cargar un rango de datos que tiene algunas filas y columnas vacías a un ListBox vba excel

Me gustaría poder seleccionar un rango de una hoja excel, por ej. Columnas B a I, las filas comenzaría en la 3 hasta final del rango no vacío de la columna C (que es el que contiene mayor numero de filas) y que ese rango se muestre en un ListBox de...
2 respuestas

Cuando ingresos los datos con código no los coloca donde deseo colocar los datos.

Código que extrae información de varios archivos de Excel desde una carpeta pero al colocar los datos los coloca varias filas mas abajo. Debe iniciar a colocar los datos en C6. La información la tiene que colocar dentro de una tabla que tiene...
2 respuestas

Macro para cortar un texto en 25 caracteres

Me ayudan a generar una macro que corte un texto que está en la celda A2 en 2 textos, el primer texto que lo ponga en la celda B2, no deberá cortar ninguna palabra deberá cortar el texto en máximo 25 caracteres y cortarlo en donde haya un blanco, el...
3 respuestas

¿Como crear un evento al cambiar el valor de una celda con nombre? VBA en Excel

A tod@s! Tengo una celda que se llama "AnalogicaImput". Tengo esta instruccion If Target.Address = "$L$3" Then funciona con la posicion de la celda Como puedo hacer If Target.Name= "AnalogicaImput" Then para ejecutar un evento
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
3 respuestas