Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
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