#Error en función para concatenar
Publicado por Leandro (21 intervenciones) el 11/08/2018 15:57:20
Hola tengo una función que concatena datos, pero me da #Error
he intentado <>"" Es Error y Is Null con todos me da igual el error, si elimino Torre, piso y dpto funciona bien, ya que calle y nro siempre tienen valor y estos 3 últimos aveces tienen un valor y aveces no, creo que por eso me da #Error, no se como solucionarlo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function ArmarDomicilio(pCalle As String, pNro As String, pTorre As String, pPiso As Byte, pDpto As String) As Variant
' Direccion: [Calle] & " Nº " & [Nro] & " - Torre " & [torre] & " - Piso " & [piso] & " Dpto " & [dpto]
Dim Aux As String
Aux = pCalle & " Nº " & pNro
If pTorre <> "" Then
Aux = Aux & " - Torre " & pTorre
End If
If EsError(pPiso) Then
Aux = Aux & " - Piso " & pPiso
End If
If pDpto Is Null Then
Aux = Aux & " Dpto " & pDpto
End If
ArmarDomicilio = AuxEnd Function
he intentado <>"" Es Error y Is Null con todos me da igual el error, si elimino Torre, piso y dpto funciona bien, ya que calle y nro siempre tienen valor y estos 3 últimos aveces tienen un valor y aveces no, creo que por eso me da #Error, no se como solucionarlo.
Valora esta pregunta
0
