DiegoLG

Prueba esta macro:
Sub TextboxCelda() Application.ScreenUpdating = False For Each obj In ActiveSheet.OLEObjects If obj.OLEType = xlOLEControl Then ActiveSheet.Shapes(obj.Name).TopLeftCell = obj.Object.Value obj.Delete End If Next End Sub  

Te paso un ejemplo,
Espero haberte ayudado,
y si no es lo que estas buscando, sería interesante que adjuntes tu archivo.
Diego.
Libro4.xlsm

Jaaaaa.
Era mas fácil de entender si hubiera dicho @Luis paz, buscar con un criterio y mostrar múltiples resultados...
 
Saludos amiga @Silvia

Jaaaaa.
Era mas fácil de entender si hubiera dicho @Luis paz, buscar con un criterio y mostrar múltiples resultados...
 
Saludos amiga @Silvia

Hola amigos, ya valide los archivos, y me sirve todas las propuestas!
Doy por tema solucionado.
Muchísimas gracias por el apoyo!
Hasta la próxima 😉

Hola a todos,
Mi aporte:
Sub FormarGrupos_LBV() Dim nFila&, Celda As Range, Uf&, nGrupo&, nItems As Byte, nSuma As Double, nSumaT As Double, m&     Uf = Sheets("Datos").Range("A" & Rows.Count).End(xlUp).Row     Sheets("Resul_LBV").Range("A2:C200").ClearContents     nGrupo = Sheets("Datos").Range("A2"): nItems = 0: m = 2     For Each Celda In Sheets("Datos").Range("A2:A" & Uf)         If nGrupo = Celda.Value And nItems <= 5 Then                 Sheets("Resul_LBV").Cells(m, 1) = Celda                 Sheets("Resul_LBV").Cells(m, 2) = Celda.Offset(, 1)                 Sheets("Resul_LBV").Cells(m, 3) = Celda.Offset(, 2)                 nSuma = nSuma + Celda.Offset(, 2)                 m = m + 1: nItems = nItems + 1         ElseIf nGrupo = Celda.Value And nItems > 5 Then                 Sheets("Resul_LBV").Cells(m, 2) = "SubTotal:"                 Sheets("Resul_LBV").Cells(m, 3) = nSuma                 nSuma = 0: nItems = 0: m = m + 1: nGrupo = Celda.Value                                  Sheets("Resul_LBV").Cells(m, 1) = Celda                 Sheets("Resul_LBV").Cells(m, 2) = Celda.Offset(, 1)                 Sheets("Resul_LBV").Cells(m, 3) = Celda.Offset(, 2)                 nSuma = nSuma + Celda.Offset(, 2)                 m = m + 1: nItems = nItems + 1                          ElseIf nGrupo <> Celda.Value Then                 Sheets("Resul_LBV").Cells(m, 2) = "SubTotal:"                 Sheets("Resul_LBV").Cells(m, 3) = nSuma                 nSuma = 0: m = m + 1: nGrupo = Celda.Value                                  Sheets("Resul_LBV").Cells(m, 1) = Celda                 Sheets("Resul_LBV").Cells(m, 2) = Celda.Offset(, 1)                 Sheets("Resul_LBV").Cells(m, 3) = Celda.Offset(, 2)                 nSuma = nSuma + Celda.Offset(, 2)                 m = m + 1: nItems = 1         End If         nSumaT = nSumaT + Celda.Offset(, 2)     Next Celda     Sheets("Resul_LBV").Cells(m, 2) = "SubTotal:"     Sheets("Resul_LBV").Cells(m, 3) = nSuma     Sheets("Resul_LBV").Cells(m + 1, 2) = "Total:"     Sheets("Resul_LBV").Cells(m + 1, 3) = nSumaT          Sheets("Resul_LBV").Range("C2:C200").Style = "Currency"      End Sub Pulsa sobre la flecha y los resultados en la otra hoja.
Saludos
 
Libro9_LBV.xlsm

entonces que?, con auxiliar... 
Libro9 1.xlsx

Bueno afinando un poco y Obteniendo la Suma por Grupo:
Saludos.
Libro9_LBV.xlsm

No hay que ser tan pulcros... un poquito de colorsito....
Saludos.
Libro9_LBV.xlsm

Por eso preguntaba si en PQ se podía hacer eso 😀, pero con el archivo que adjunto @johnmpl ahora si me funcionó.
Pero veo que hay mas propuesta, denme chance de validar mañana, me metí hacer otras cosas (Una disculpa)
Mañana les digo si es lo que necesito,
Agradezco el apoyo la verdad.
Saludos

Creo que todo se basa en diferentes enfoques, ya que a lo largo de dar capacitación y asesoría sobre Excel me he encontrado con situaciones variadas, pero las más importantes son:
Desconocen el potencial de Excel, que cosas se pueden hacer y que no. Dueños y Empleados. Tienen miedo que si les cambias la forma de "ver" los datos, ellos ya no van a tener el control, ya que ellos están acostumbrados a trabajar así, y temen de depender de un servidor, como si yo fuera el único que sabe algo de Excel. Esto es referente al Dueño o encargado de la Micro Empresa. La iniciativa del trabajador a aprender y mejorar su trabajo es demasiado baja, la mayoría no se esfuerza por aprender y mejorar su forma de trabajar y reducir los tiempos empleados en las diferentes tareas. El Dueño o Empleador como esta acostumbrado a trabajar así... no quiere cambiar su forma de trabajar y deja a un lado que puede tener la información más precisa y en diferentes formas (gráficas, tablas, etc.) y reducir el tiempo que tarda su empleado en realizarla, que en muchos casos es el 50 y 60% menos tiempo que emplea. Saludos.
 
 

Muy cierto! pero creo que son personas que le temen a Excel o de plano no quieren aprender, pero despues sufren y andan preguntando :) :)

=CONTAR.SI.CONJUNTO($D$7:$D$32,"VERDADERO")  

Estimado:
Debería de adjuntar la información completa para ver en que columna se encuentra la información en tus otros libros,
De todas maneras aca te preparé algo
1.- Extraer la información
2.- Abre el archivo Copia de Ejemplo
y dale ejecutar ==> seleccione la carpeta donde esta tu información, (En este caso los ejemplos que puse en la carpeta llamada: Nueva carpeta)
y Listo.
Saludos,
Buscar.rar

y Si quieres utilizar fórmula, utiliza esta función
=FECHANUMERO(A2)  

Aqui va otra forma:
1.- Copia el rango:

2.- Luego Seleccione la celda donde quieres pegar el resultado Digamos que en la B2,
2.1- Ctrl + Alt + V y te va aparecer esta ventana y seleccionar la opción Sumar:

Y le das aceptar yyyyy asunto arregaldo.
Nota: Solo lo he utilizado cuando la celda tiene formato texto y funciona a la perfección.
Saludos,
Saludos,

y Si quieres utilizar fórmula, utiliza esta función
=FECHANUMERO(A2)  

1. Seleccione el rango de fechas "A2:A11"
2. Vaya al menú "DATOS" -  "TEXTO EN COLUMNAS"
3. Seleccione la opción "delimitados"

"siguiente"
Desmarque cualquier delimitador

"Siguiente"
Seleccione formato de fecha DMA

Presione en finalizar.
 

Hola @GabrielRaigosa Por lo que entiendo, el insiste en utilizar fórmula, que yo en lo particular no utilizaría fórmula cuando el archivo es demaciado grande, en fin,
@CarlosKurt aqui te prepare una fórmula bien loca
=SUMAR.SI.CONJUNTO(BANCO.1!C:C,BANCO.1!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.1!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.1!B:B,RESUMEN!A4)+SUMAR.SI.CONJUNTO(BANCO.2!C:C,BANCO.2!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.2!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.2!B:B,RESUMEN!A4)+SUMAR.SI.CONJUNTO(BANCO.3!C:C,BANCO.3!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.3!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.3!B:B,RESUMEN!A4)+SUMAR.SI.CONJUNTO(BANCO.4!C:C,BANCO.4!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.4!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.4!B:B,RESUMEN!A4) Saludos amigo,
Copia de PRUEBA.xlsx

Hola @GabrielRaigosa Por lo que entiendo, el insiste en utilizar fórmula, que yo en lo particular no utilizaría fórmula cuando el archivo es demaciado grande, en fin,
@CarlosKurt aqui te prepare una fórmula bien loca
=SUMAR.SI.CONJUNTO(BANCO.1!C:C,BANCO.1!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.1!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.1!B:B,RESUMEN!A4)+SUMAR.SI.CONJUNTO(BANCO.2!C:C,BANCO.2!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.2!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.2!B:B,RESUMEN!A4)+SUMAR.SI.CONJUNTO(BANCO.3!C:C,BANCO.3!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.3!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.3!B:B,RESUMEN!A4)+SUMAR.SI.CONJUNTO(BANCO.4!C:C,BANCO.4!A:A,">="&CONCATENAR(B2,"/",B1),BANCO.4!A:A,"<="&FIN.MES(CONCATENAR(B2,"/",B1),0),BANCO.4!B:B,RESUMEN!A4) Saludos amigo,
Copia de PRUEBA.xlsx

Hola estimado amigo Antoni (para amigos más "veteranos" Macro Antonio) es un placer volver a "hablar" contigo, espero que todo te vaya bien.
Y volviendo al tema, he probado tu código y perfecto, ya que eran botones de formulario.
Queda SOLUCIONADO, si necesito algo más abro otro post.
Saludos cordiales a @DiegoLG y a tod@s, y un fuerte abrazo @Antoniy a @Gerson Pineda que se pasó por el post. 

Hola Germán:
Prueba la macro.
Sub MacroGermán() ActiveSheet.Name = Range("C2") For Each Control In ActiveSheet.Shapes If Control.Type = msoFormControl Then If Control.FormControlType = xlButtonControl Then Control.Delete End If End If Next End Sub Saludos 
Nota: Solo funciona para botones de formulario, no para botones ActiveX.

Sería así:
ActiveSheet.Name = Range("C2") Saludos,

prueba con esta macro
Sub copiar_categorias() Set h1 = Worksheets("catalogo") Set h2 = Worksheets("hoja3") Set datos = h1.Range("a2").CurrentRegion Set lista = h2.Range("a3").CurrentRegion filasd = datos.Rows.Count filasl = lista.Rows.Count Set resultado = h2.Range("f3").Resize(filasd, 2) With lista     For i = 1 To filasl         If i > 1 Then Set resultado = resultado.Rows(filasd + 1).Resize(filasd, 2)         resultado.Columns(1) = .Cells(i, 1)         resultado.Columns(2).Value = datos.Value     Next i End With Set resultado = Nothing: Set lista = Nothing End Sub  

Hola Diego
Te adjunto mi versión
 
Saludos a ambos
Agrupar Vba_GP.zip