Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Resaltar una celda mientras nos movemos por la hoja

publicado

El siguiente código que encontré y que me gustaría compartir con vosotros es el siguiente:

Cuando tenemos una tabla bastante grande y bajamos por ella, queremos buscar uno de los campos y muchas veces nos resulta bastante cansado cuando llevamos muchos registros.

El siguiente código realiza esta acción, es decir, cuando bajamos por las filas y queremos marcar por ejemplo el valor de la columna I insertaremos el siguiente código dentro de la Hoja.

  • COLUMNA_INICIAL -----> Es la columna que queremos marcar.
  • COLUMNAS ----------------> El el número de columnas que vamos a marcar


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Forma As Excel.Shape
Dim L#, T#, W#, H#

Const COLUMNA_INICIAL As Long = 9 'la columna a partir de la cual se va a resaltar la fila
Const COLUMNAS As Long = 1 'la cantidad de columnas a partir de COLUMNA_INICIAL que se van a resaltar
Const GROSOR_BORDE As Byte = 2 'el grueso del borde del rectángulo que resalta la fila
Const COLOR_BORDE As Byte = 9 'color del borde del rectángulo que resalta la fila. Use la paleta de colores de ColorIndex

With Me.Cells(Target.Row, COLUMNA_INICIAL).Resize(, COLUMNAS)
L = .Left
T = .Top
W = .Width
H = .Height
End With

With Me.Shapes
On Error Resume Next
.Item("Resaltado").Delete
On Error GoTo 0
With .AddShape(1, L, T, W, H)
.Name = "Resaltado"
.Line.Weight = GROSOR_BORDE
With .DrawingObject
.Interior.ColorIndex = xlNone
.Border.ColorIndex = COLOR_BORDE
End With
End With
End With
End Sub
[/CODE]

Espero os guste

Un Saludo

FernandoML

Featured Replies

publicado

Hola Gerson:

Con tu permiso lo pongo en el apartado Macros y Programación VBA

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.