Copiar celda incluido el formato III

[Pelidavid]

Hola de nuevo,

 

Vengo de aquí:

Lo que quiero hacer ahora es poner otra fila de nombres (la que va del número 21 al 40) y que también salgan en la columna "G". He intentado hacerlo yo, pero no he podido, lo único que he conseguido es cambiar la posición del número que acompaña al nombre en la lista de nombres, que antes estaba debajo del nombre, y ahora lo he puesto encima, que me gusta más ahí jeje.

Y este es el código

Private Sub Worksheet_Change(ByVal Target As Range)

'************ By Gerson Pineda ************

'VARIABLE DE COLUMNA
col = Target.EntireColumn.Address(0, 0)
'SI LA COLUMNA ES K
If VBA.Left(col, VBA.Len(col) - 2) = "F" Then
    'ACTIVAMOS LA FILA 10
    Set rango = Range("A13").EntireRow
    'ACTIVAMOS LA BUSQUEDA, A PARTIR DE LA COLUMNA J
    Set bn = rango.Find(Target, , xlValues, xlWhole)
    If bn Is Nothing Then
        'SI NO ENCUENTRA EL OBJETIVO, DEJAR EN BLANCO LA CELDA
        Range("V10").Copy Target.Offset(, 1)
        'SALIR
        Exit Sub
    End If
    'COPIAR EL NOMBRE ENCONTRADO
    bn.Offset(1).Copy Target.Offset(, 1)
End If

Set rango = Nothing: Set bn = Nothing

End Sub

Ah, también pongo aquí el excel.

Muchísimas gracias de antemano.

Copiar formato III.xlsm

[Gerson Pineda]

Hola @Pelidavid

Prueba asi

Private Sub Worksheet_Change(ByVal Target As Range)

'************ By Gerson Pineda ************

col = Target.EntireColumn.Address(0, 0)
If VBA.Split(col, ":")(0) = "F" Then
    Set rango = Union(Range("A4"), Range("A13")).EntireRow
    Set bn = rango.Find(Target, , xlValues, xlWhole)
    If bn Is Nothing Then
        Range("V10").Copy Target.Offset(, 1)
        Exit Sub
    End If
    bn.Offset(1).Copy Target.Offset(, 1)
End If

Set rango = Nothing: Set bn = Nothing

End Sub

Saludos