<!-- 19 -->
<p>
	Cuando veía viáticos había automatizado el almacenamiento de unos documentos y dentro del nombre del archivo quería
	que tuviera las iniciales del empleado, ejemplo: <br><br>
	La celda C1 tiene el valor de "José Hernández Pérez", y en la celda C2 hacemos el llamado de nuestra función
	<b>=INICIALES(C1)</b>, el resultado es <b>JHP</b>:
</p>
<div class="img zoomable">
	<img src="/static/source_imgs/excel/pst_5/1.png" alt="" style="height: 200px; width: auto;">
</div>
<pre><i class="bi bi-copy"> Copiar código</i>
<code class="code_lightMode">
Function INICIALES(texto As Range) As String
	Application.Volatile
		Dim resultado As String
		Dim palabras() As String
		
		palabras = Split(AjustarEspacios(texto))
		  For i = LBound(palabras) To UBound(palabras)
			  resultado = resultado & Left(palabras(i), 1)
		  Next
		INICIALES = resultado
End Function

Private Function AjustarEspacios(ByVal texto As String) As String
	Dim resultado As String
	resultado = Trim(texto)
	   Do While InStr(resultado, "  ")
		  resultado = Replace(resultado, "  ", " ")
	   Loop
	AjustarEspacios = resultado
End Function	
</code></pre>