Macro Concatenar con Letra Cursiva

Hola a todos por internet he conseguido la siguiente macro:

Private Sub Worksheet_Change(ByVal Target As Range)
With ActiveSheet
If Not Application.Intersect(Target, .[A1:B1]) Is Nothing Then
.[C1].Value = .[A1].Value & " " & .[B1]
.[C1].Characters(Len(.[A1]) + 2).Font.FontStyle = "cursiva"
End If
End With
End Sub

Mi pregunta solamente es saber si se puede hacer para un rango mayor por ejemplo 30 filas más y

El tema es que cuando concatena en la columna c no me pega el resultado de las 30 filas solo pega en c1 :(

Mil gracias!

2 respuestas

Respuesta
2

Si tu idea es que vaya concatenando en col C con cambios por cada fila utilizá estas instrucciones:

Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
With ActiveSheet
If Not Application.Intersect(Target, .Range("A1:B30")) Is Nothing Then
.Range("C" & Target.Row).Value = .Range("A" & Target.Row).Value & " " & .Range("B" & Target.Row)
.Range("C" & Target.Row).Characters(Len(.Range("A" & Target.Row)) + 2).Font.FontStyle = "cursiva"
End If
End With
End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
With ActiveSheet
If Not Application.Intersect(Target, .Range("A1:B30")) Is Nothing Then
.Range("C" & Target.Row).Value = .Range("A" & Target.Row).Value & " " & .Range("B" & Target.Row)
.Range("C" & Target.Row).Characters(Len(.Range("A" & Target.Row)) + 2).Font.FontStyle = "cursiva"
End If
End With
End Sub

Target. Row es la fila de la celda que cambia.

Sdos!

Respuesta
1

En donde dice

f Not Application.Intersect(Target, .[A1:B1]) Is Nothing Then
.[C1].Value = .[A1].Value & " " & .[B1]

Cambias el B1 por B30 ya que A1:B1 es el rango y si lo quieres mas grande es A1:B30

Quedando asi

f Not Application.Intersect(Target, .[A1:B30]) Is Nothing Then
.[C1].Value = .[A1].Value & " " & .[B30]

Los rangos indican

"desde : hasta" = A1:B1 o los renglones y columnas que tu desees

Probé tu solución, en primer lugar gracias por tu rapidez, pero el tema es que cuando concatena en la columna c no me pega el resultado de las 30 filas solo pega en c1 :(

Prueba este código

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 30
Sheets("hoja1").Cells(i, "C") = Sheets("hoja1").Cells(i, "A") & " " & Sheets("hoja1").Cells(i, "B")
Sheets("hoja1").Cells(i, "C").Font.Italic = True
Next i
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Crear función cursiva(texto) en excel

Quería saber si es posible crear una función en excel, similar a las existentes MAYUSC() y MINUSC(), que permita modificar el formato de una parte del texto de una celda. La celda en cuestión no es un texto escrito, del que se puede seleccionar una...
2 respuestas

Fotos en excel con macro, pesa mucho archivo final

Lo que busco es hacer un formulario que me ubique por fotos en una hoja, las imágenes están en una carpeta definida, tengo el siguiente código (lineas abajo), pero, el resultado es un archivo demasiado grande, tanto que cuelga mi maquina, y estoy...
1 respuesta

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

COmo Colocar Fecha de Manere Automática

Estoy haciendo un archivo de control documentario. Necesito que por ejemplo cuando ingrese un nombre en la celda A1, automáticamente en la celda B1 se llene la fecha y en la celda C1 la hora ACTUAL en la que estoy ingresando los datos. Luego deseoq...
1 respuesta

Asignar formato moneda a celda

Junto con saludar, tengo el siguiente problema: Necesito asignar formato de moneda a una celda pero el tipo de moneda dependerá del valor que sea indicado en una deterninada celda. Ejemplo: Si en la celda A1 escribo USD, el formato de la celda C1...
1 respuesta

¿Cómo colocar tamaño de fuente y negrita dentro de la función concatenar?

Necesito hacer una función =concatenar("nombre del cliente";"JAIVER GIL") pero que pueda cambiar el tamaño de fuente y negrita a un texto de los que conforman la función para que me arroje lo siguiente: Nombre del cliente: JAIVER GIL Gracias al...
1 respuesta

Llenar celda automáticamente con fecha si se cumple determinada condición

Pido de la colaboración de ustedes para solucionar el siguiente problema: Tengo un archivo de excel que en la columna A tengo una condicional que cuando se cumpla en cada una de las filas coloque un "SI". Ahora necesito que en la columna B se escriba...
1 respuesta

Valor de altura de filas en excel

Quisiera saber si existe alguna función o alguna macro que me permita obtener el valor de la altura de determinada fila en una celda de la misma de tal manera que pueda sumar dichos valores. Gracias
1 respuesta

Introducir datos con Lector de Códigos de Barras en Excel

Utilizo un lector de códigos de barras para hacer inventario sobre una hoja dispuesta de la siguiente forma: Referencia en la columna A Alternativa en la columna B Cantidad en la columna C Utilizo una macro sacada de este foro la cual así una celda...
1 respuesta

Control de cambios

Otra vez molestando d2enri. Te pregunto ahora por un control de cambios que deseamos llevar en la base de datos, pero tenemos una macro que solo nos da la hora del cambio, pero no nos dice en que celda fue el cambio y no guarda histórico; solo se...
2 respuestas