Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic para Aplicaciones » Buscar en un listado, insertar fila y sumar el contenido de 2 filas

Visual Basic para Aplicaciones - Buscar en un listado, insertar fila y sumar el contenido de 2 filas

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Buscar en un listado, insertar fila y sumar el contenido de 2 filas

Publicado por Emmanuel (6 intervenciones) el 04/11/2016 20:07:23
Buen día

Solicito de su ayuda banda, adjunto imagen de un listado de excel, es en el que actualmente estoy trabajando, el detalle esta en que necesito una macro que busque un registro en la columna B que es KGF0079 que es = LEON, a este necesito sumar lo de la fila de arriba LEON OUTLET, bueno lo que necesito que se sume es lo de las columnas F y G, a resumidas cuentas necesito concentrar en una sola fila lo de ambas filas. No importa si la nueva fila queda debajo de estas 2 o queda hasta el final

Quedo en espera de su pronta ayuda.
Mil Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Royeth
Val: 42
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Buscar en un listado, insertar fila y sumar el contenido de 2 filas

Publicado por Royeth (22 intervenciones) el 06/11/2016 18:33:10
Adjunta el archivo del que te estás refieriendo en el mensaje ,

para buscar el registro en una columna se puede usar un ciclo while que se detenga una vez encuentre el registro , pero para eso es necesario el archivo que mencionas ,

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 28
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Buscar en un listado, insertar fila y sumar el contenido de 2 filas

Publicado por Andres Leonardo (26 intervenciones) el 07/11/2016 20:44:39
Sin usar macros.. podrias ordenar el archivo por esa celda
Crear subtotales y un subtotal por registro sumar los subtotales de las celdas y te funcionaria

Ademas podrias crear una tabla dinamica que te de un resumen de todo lo que estas pidiendo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Buscar en un listado, insertar fila y sumar el contenido de 2 filas

Publicado por Emmanuel (6 intervenciones) el 07/11/2016 22:09:47
Amigos muchas gracias por su valiosa ayuda pero, ya lo resolví.

Quedo a sus ordenes.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de xve

Buscar en un listado, insertar fila y sumar el contenido de 2 filas

Publicado por xve (15 intervenciones) el 08/11/2016 07:53:56
Hola Emmanuel, podrías compartir como lo solucionaste?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Buscar en un listado, insertar fila y sumar el contenido de 2 filas

Publicado por Emmanuel (6 intervenciones) el 08/11/2016 17:53:55
Hola buen día

Claro, aquí dejo mi código espero pueda ser de ayuda para alguien más, creo que no esta de mas comentarles que soy nuevo en esto de las macros y que tal vez esto tenga una solución mas sencilla pero bueno aquí les comparto.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'BUSCA EN LA COLUMNA C BUSCA LAS  DE LEON Y LEON OUTLET Y SUMAS SUS VALORES

 
Application.Goto Reference:="R1C2"
ActiveCell.Columns("A:A").EntireColumn.Select
 
Selection.Replace What:="GGUA003", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Offset(1, 0).EntireRow.Insert
 
'SUMA # DE VALORES DE LEON Y LEON OUTLET, PEGA VALORES

ActiveCell.Offset(1, 4).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[0]:R[-2]C[0])"
ActiveCell.Offset(0, 0).Select
Selection.Copy
ActiveCell.Offset(0, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
 
'SUMA  VTAS DE LEON Y LEON OUTLET, PEGA VALORES

ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[0]:R[-2]C[0])"
ActiveCell.Offset(0, 0).Select
Selection.Copy
ActiveCell.Offset(0, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
ActiveCell.Offset(0, -5).Select
 
'VUELVE A INSERTAR GGUA003 PARA COPIAR VALORES

ActiveCell.FormulaR1C1 = "GGUA003"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "LEON"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "TIENDAS"
 
'ELIMINA LAS FILAS DE LAS CUALES TOMAMOS VALORES

ActiveCell.Offset(-1, 0).Select
Selection.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
Selection.EntireRow.Delete


Quedo a sus ordenes.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar