Excel - Nombre Propio y además Concatenados con VBA

Nombre Propio y además Concatenados con VBA

Publicado por Osen (4 intervenciones) el 21/05/2016 18:58:05

Estimados Amigos de Excel
Cordial Saludo.

Solicito la cooperación, de quien lo desee para lo siguiente en VBA:

En Rango A2:A60 tengo nombres
En Rango B2:B60 tengo apellidos

Necesito que en Rango C2:C60, concatene nombre y apellidos y los ponga en Nombre Propio

Muchas gracias y feliz día...!

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 6.373

Nombre Propio y además Concatenados con VBA

Publicado por wordexperto.com (2803 intervenciones) el 21/05/2016 20:00:04

Hola Osen:
¿Tan difícil es poner, en una estructura de tabla, que se amplía automáticamente, a medida que se introducen datos, =NOMPROPIO([Nombre]&" "&[Apellidos]), que necesitas vba?
https://wordexperto.com/blog/

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Nombre Propio y además Concatenados con VBA

Publicado por agustin (149 intervenciones) el 22/05/2016 00:14:47

Que es eso de NOMPROPIO?

Valora esta respuesta

Comentar

Pos: 3

Val: 3.136

Nombre Propio y además Concatenados con VBA

Publicado por Andres Leonardo (1583 intervenciones) el 22/05/2016 18:44:51

Es para poner la Primera letra en mayuscula Agustin .. si el texto es

andres leonardo la funcion retornaria Andres Leonardo

Saludos

Valora esta respuesta

Comentar

Nombre Propio y además Concatenados con VBA

Publicado por agustin (149 intervenciones) el 22/05/2016 00:11:40

¿Que es nombre propio?
En vb para concatenar se hace con el símbolo &.
Por ejemplo:
Dim resultado As String
String = Rango ("A2").Value & Rango ("B2").Value
Supongo que eso funcionaria y si es así pues también lo haria:
Rango ("C2").Value = Rango ("A2").Value & Rango ("B2").Value
Tendría que hacer pruebas para verlo pero seguro que eso vale y habrá otros modos.

Valora esta respuesta

Comentar

Nombre Propio y además Concatenados con VBA

Publicado por Osen (4 intervenciones) el 22/05/2016 03:31:08

Gracias por tu respuesta
Es que yo tengo para nombre propio lo siguiente

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 3 Then

    Target.Value = WorksheetFunction.Proper(Target.Value)

End If

End Sub

y si yo pongo en la celda C2.... =CONCATENAR(A2;" ";B2)...... entonces se borra la fórmula

Por eso la quiero integrar con VBA

Entonces Encontré esto

Function CONCATENARCELDAS(Rango As Range)

‘Bucle para recorrer todas las celdas del Rango

For Each celda In Rango.Cells

‘Si la celda no está vacía, entonces concatenarla

If Celda.value <> “” Then

Resultado = resultado & “; “ & celda.value

End If

Next celda

‘Se remueve el ; y espacio inicial

Resultado = Right(resultado, Len(resultado – 3)

CONCATENARCELDAS = resultado

End Function

Pero no me funciona, como que anula la función Proper porque ahora no la agarra

Gracias por su cooperación

Valora esta respuesta

Comentar

Pos: 1

Val: 6.373

Nombre Propio y además Concatenados con VBA

Publicado por wordexperto.com (2803 intervenciones) el 22/05/2016 10:36:51

Pon en C2 la fórmula que te indiqué en mi primer post. Si no tienes estructura de Tabla, que es lo mejor, =NOMPROPIO(A2&" "&B2)
https://wordexperto.com/blog/

Valora esta respuesta

Comentar

Nombre Propio y además Concatenados con VBA

Publicado por Osen (4 intervenciones) el 23/05/2016 04:05:02

Gracias....!!
Funciona bien.

Aunque me quedé con las ganas, que por capricho lo quería hacer con VBA.... jejeje

Muchas gracias...!!

Valora esta respuesta

Comentar

AGRUPAR CODIGO EN ESPECIALIDAD

como obtene numero de piezas