Máximos colaboradores
Popular Content
Showing content with the highest reputation on 05/17/24 in all areas
-
Sub CombinarCeldaCyD(): Application.DisplayAlerts = False If Selection Is Nothing Then Exit Sub Set Celda = Selection If Celda.Column <> 3 Then Exit Sub TextoC = Celda.Value TextoD = Celda.Offset(0, 1).Value TextoCombinado = TextoC & " " & TextoD Set RangoACombinar = Range(Celda, Celda.Offset(0, 1)) With RangoACombinar .Merge .Value = TextoCombinado End With End Sub1 point
-
mucho mejor 👍🫡1 point
-
hay un "pequeño gran" problema con la forma que usaste: - los nombres de los encabezados los tomas de expandir una de las tablas agrupadas - en el código "m" se quedan como constantes de texto - cualquier cambio en el listado real hara fallar al pq con cualquiera que no coincida (eliminada, agregada, cambiada) (y esta diferencia en la descripcion de las categorias es exactamente lo que comento en el otro foro)1 point