Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Definir Funciones en Macro

01/10/2004 - 15:40 por Julian BM | Informe spam
Ayuda Hacer una pregunta
Buenos Dias amigos del Foro.

Tengo un problema al realizar una macro, no tengo idea de
como definir la funcion 'concatenar' dentro de una macro.

Esta es la macro:
' MSCD Macro
' Macro grabada el 30/09/2004
'
'Obtiene el numero de fila
NumDoc = Cells(6, 1)

If NumDoc <= 9 Then
Range("C3").Select
Selection.Copy
End If
If NumDoc >= 10 Then
Range("D3").Select
Selection.Copy
End If

'Aqui deseo que el contenido de la celda C1 (que es COM)
se concatene
'con el contenido de la celda C2 (que es 10125)
'El valor de la variable DocFinal deberia de ser "
COM10125 "
'pero la Macro me envia el mensaje:
' "No se ha definido Sub o Function" y se detiene.

DocFinal = concatenar(c1, c2)

'
End Sub

Agradezco infinitamente su ayuda.

Julian MB
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Fernando Arroyo
01/10/2004 - 17:08 | Informe spam
En principio no tienes necesidad de usar la función CONCATENAR para concatenar textos desde VBA. Puedes usar directamente el operador de concatenación &
Por ejemplo:

DocFinal = Range("C2") & Range("C3")

o también

DocFinal = [C2&C3]

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Julian BM" escribió en el mensaje news:2d7701c4a7bc$25aa3b20$
Buenos Dias amigos del Foro.

Tengo un problema al realizar una macro, no tengo idea de
como definir la funcion 'concatenar' dentro de una macro.

Esta es la macro:
' MSCD Macro
' Macro grabada el 30/09/2004
'
'Obtiene el numero de fila
NumDoc = Cells(6, 1)

If NumDoc <= 9 Then
Range("C3").Select
Selection.Copy
End If
If NumDoc >= 10 Then
Range("D3").Select
Selection.Copy
End If

'Aqui deseo que el contenido de la celda C1 (que es COM)
se concatene
'con el contenido de la celda C2 (que es 10125)
'El valor de la variable DocFinal deberia de ser "
COM10125 "
'pero la Macro me envia el mensaje:
' "No se ha definido Sub o Function" y se detiene.

DocFinal = concatenar(c1, c2)

'
End Sub

Agradezco infinitamente su ayuda.

Julian MB

Preguntas similares

 

Busqueda sugerida :