Excel - Error en macro

 
Vista:
sin imagen de perfil
Val: 27
Ha aumentado 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

Error en macro

Publicado por Victor (14 intervenciones) el 28/09/2018 19:08:19
Buenos dias, alguien me puede auxiliar con este error de sintaxis que hay en el codigo de una macro (VBA), la idea de todo esto es:
(Adjunto la Captura1 y captura2) temenos de base la captura1 que es el archivo al que le vamos aplicar la macro, en la captura 2 es a lo que queremos llegar, el codigo de la macro funciona pero me marca este error de sintaxis y no se a que se quiere referir si alguien me puede auxiliar se los agradeceria mucho
(De igual manera adjunto el archivo excel donde viene la macro, asi como las imagenes donde me dice cual es el error, y en que parte del codigo ocurre el problema "Captura3" y"Captura4" ).
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Error en macro

Publicado por Antoni Masana (2485 intervenciones) el 01/10/2018 06:58:05
Esta es la solución al problema

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Function Referencia(Fila_Orig, Orig) As String
    Dim Tabla() As String, Texto As String
 
    Texto = ""
    If Len(Orig.Cells(Fila_Orig, "D")) > 0 Then
        Tabla = Split(Orig.Cells(Fila_Orig, "D"), " ")
        For a = 0 To UBound(Tabla)
            If Len(Tabla(a)) > 0 Then Texto = Texto + Tabla(a) + " "
        Next
    Else
    If Len(Texto) > 0 Then
       Referencia = Left(Texto, Len(Texto) - 1)
    Else
       Referencia = ""
    End If
End Function

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil
Val: 27
Ha aumentado 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

Error en macro

Publicado por Victor (14 intervenciones) el 02/10/2018 04:56:25
Gracias Funciono de maravilla!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar