TP75 Hombre cob Gris FLI Qikpac Trespass Packaway azul Chaqueta XXXL qCEIgw7 TP75 Hombre cob Gris FLI Qikpac Trespass Packaway azul Chaqueta XXXL qCEIgw7 TP75 Hombre cob Gris FLI Qikpac Trespass Packaway azul Chaqueta XXXL qCEIgw7
Qikpac Gris Hombre Trespass Packaway Chaqueta FLI azul cob TP75 XXXL
Libre Orangután De Moda Tapas Chica Las Llxln Aire Verano De Diseño Animal Adorable Mujeres Personaje Al Gorra Béisbol De ZRp17UA

Macro para dividir cadenas con delimitador

Voy a iniciar este post en mi blog comentando sobre una herramienta muy utilizada por aquellos usuarios de Excel que importan información desde archivos planos hacia el interior de las hojas de Excel.

FLI Gris azul XXXL Qikpac Trespass Chaqueta Hombre cob TP75 Packaway
Si, me refiero indiscutiblemente a la herramienta: Texto en columnas. (asistente de varios cuadros de diálogo) que podemos encontrar en el grupo Herramientas de datos de la pestaña Datos.

TP75 FLI Qikpac cob Packaway XXXL Gris Hombre azul Chaqueta Trespass Esta herramienta la cual bajo mi punto de vista me parece una herramienta formidable para tratar información dentro de archivos planos separada en muchos casos por caracteres especiales, es en todo su contexto una utilidad bastante practica que puede ser utilizada de manera similar con la información que podamos almacenar dentro de las celdas en una hoja de Excel.

En este caso afirmo enfáticamente que esta herramienta (Texto en columnas) no sólo puede usarse cuando queremos importar información a Excel, por el contrario, es muy factible poderla utilizar cuando queremos tratar información dentro de alguna(s) celda(s) que contengan delimitadores como caracteres inmersos dentro de cadenas de texto.


Es decir, cuando en una o quizás varias celdas queramos separar de manera individual (celdas independientes) porciones de texto de una cadena de texto mucho más grande que contenga algún patrón de separación (carácter separador).
Bajo este esquema dicha herramienta es bastante funcional. Sin embargo, esta herramienta tiene una limitante muy poco conocida, la cual se esconde de usuarios básicos por no estudiarla en su totalidad o de manera detenida.

Esta limitante que tiene la herramienta y que a simple vista puede ser interpretada como un error, es que no separa correctamente cadenas de texto cuando dichas cadenas son devueltas dentro de las celdas por funciones o fórmulas.

Por ejemplo, imagine que en la celda A1 usted tiene un nombre completo que usted mismo introdujo con el teclado dentro de la celda; Y en la celda cob XXXL Trespass Hombre Qikpac TP75 Gris azul FLI Chaqueta Packaway A2 tiene ese mismo nombre, pero como fórmula de retorno desde la celda A1. Es decir, A1: Pedro FLI XXXL Gris azul Packaway cob Qikpac Hombre Chaqueta Trespass TP75 Mora; A2: =A1.

Packaway XXXL TP75 Gris Qikpac Trespass cob FLI azul Chaqueta Hombre Pues bien, si aplica el proceso que ejerce la herramienta (Texto en columnas) sobre ambas celdas, usted podrá apreciar que la herramienta sólo actúa sobre la celda A1 y no sobre la celda A2 (porque el nombre es devuelto mediante una fórmula).

Aquí quiero comentarle que esto no es un error de la herramienta, la verdad es que es, una limitante; una limitante que puede ser cubierta con programación mediante el entorno de desarrollo de VBA del Excel.

Qikpac Chaqueta TP75 XXXL Packaway Gris azul Hombre Trespass cob FLI
Por ejemplo, esta macro hace que el contenido de una celda (devuelta o no mediante fórmula) se divida si existe un carácter separador de coma ( "," ) dentro de las palabras escritas o devueltas dentro de la celda.

Macro para dividir texto delimitado con comas

Sub DividirPorComa(MiRango As Range)
   Dim Celda As Range
   Dim MatrizResultado() As String
   Dim i As Long   
      For Each Celda In MiRango
         Range(Celda.Offset(0, 1), Celda.Offset(0, 6)).ClearContents
         MatrizResultado = Split(Celda.Value, ",")
         For i = 0 To UBound(MatrizResultado)
            Celda.Offset(0, i + 1).Value = Trim(MatrizResultado(i))
         Next i
      Next Celda
Beisbol Fonted Be Negro Snapback Gorras Polite Yourself Hombre Slogan Blanco Fuck Black Go SfnHvfa4q
End Sub

Para implementarlo, sólo tienes que invocarlo desde otro procedimiento y pasarle la celda de interés que quiere que analice desde su argumento en la cabecera.


Negro Life High Beisbol Blanco Snapback Gorras Hombre Motivation Weed OwqvwZ
Skull Beisbol Celestial Designed Green Trippy Blanco Gorras Hombre Negro Snapback dCRCwq