Salto de línea VBA

chris -  
f894009 Mensajes publicados 17417 Fecha de registro   Estado Miembro Última intervención   -
Hola,

Estoy buscando, si es posible, un código VBA que me permita al realizar una búsqueda, saltar a la línea después de cada resultado encontrado.
El código actual que estoy utilizando es el siguiente:

Function VLooKupList(ValeurRecherchee As Range, TableDeRecherche As Range, NumColonne As Integer, SEPARATOR As String) As Variant Dim NbLignes As Integer NbLignes = TableDeRecherche.Rows.Count Dim CompteurValeursTrouvees As Integer CompteurValeursTrouvees = 0 For i = 1 To NbLignes If TableDeRecherche(i, 1).Value = ValeurRecherchee.Value Then CompteurValeursTrouvees = CompteurValeursTrouvees + 1 If CompteurValeursTrouvees > 1 Then VLooKupList = VLooKupList & Chr(10) & TableDeRecherche(i, NumColonne).Value Else VLooKupList = TableDeRecherche(i, NumColonne).Value End If End If Next i End Function


¡Te agradezco!!!

2 respuestas

Fahora Mensajes publicados 949 Estado Miembro 68
 
Hola,

Lógicamente, el Chr(10) es el método correcto para hacer un salto de línea (retorno de carro).
¿En qué estás mostrando tu variable VLooKupList? Si es una celda, ¿has verificado que está configurada para el ajuste de texto automático?

Saludos,

--
Nuestros únicos límites son aquellos que nosotros mismos nos imponemos.
Fahora
0