Berik Ostrogoth

Luis Mondelo respondió: Todos los datos tienen un punto al final ¿es así?

Luis Mondelo respondió: Te mando mi solución. Posiciónate en la celda K1 y ejecuta esta macro: Sub ejemplo() 'por luismondelo Do While ActiveCell.Value <> "" If Right(ActiveCell.Offset(0, -1), 7) = "general" Then ActiveCell.Offset(0, 1).Value = suma Exit Sub End If If...

Luis Mondelo respondió: Te mando mi solución, Después del filtrado ejecuta este código: Sub selecciona() dato = "cuenta general" Set busca = ActiveSheet.Columns("j:j").Find(dato, LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Nothing Then busca.Select Range(ActiveCell,...

Luis Mondelo respondió: En el siguiente enlace te dejo un ejemplo ya construido http://share.cx.com/c53qLP No olvides finalizar la consulta