Anónimo
Duda con Función Brindada
Hola amigo experto, solo una consulta con respecto a la respuesta brindada con la función listar creada a partir de un modulo en VB, resulta que si no tengo datos ingresados con valor 1 me da un error en la celde, introduje una condición Si, para el rango si no habían datos que me deje la celda en blanco, pero no me resulta siempre me devuelve #¡VALOR!.
De antemano muchas gracias amigo experto.-
De antemano muchas gracias amigo experto.-
1 Respuesta
Respuesta de Victor Perdomo
1
Prueba con este código
Function listarx(celdas1 As Range, indicador As Integer, ByVal name As Variant) As String
Dim cont As String
Dim rnCell As Range
Application.Volatile
For Each rnCell In celdas1
If rnCell.Value = name Then
c = rnCell.Column + indicador
f = rnCell.Row
acum = acum & Cells(f, c).Value & ","
End If
Next rnCell
If Len(acum) > 1 Then
acum = Left(acum, Len(acum) - 1)
End If
listarx = acum
End Function
Function listarx(celdas1 As Range, indicador As Integer, ByVal name As Variant) As String
Dim cont As String
Dim rnCell As Range
Application.Volatile
For Each rnCell In celdas1
If rnCell.Value = name Then
c = rnCell.Column + indicador
f = rnCell.Row
acum = acum & Cells(f, c).Value & ","
End If
Next rnCell
If Len(acum) > 1 Then
acum = Left(acum, Len(acum) - 1)
End If
listarx = acum
End Function