Conocer Fila y Columna y de una Celda dentro de una Tabla

Aprovechando una pregunta a través del correo, dónde piden localizar el nombre de la fila izquierda y nombre de la columna superior de la tabla, una vez seleccionada una celda , creamos el código Vba necesario para resolverlo.

El usuario selecciona por ejemplo la celda D8, que corresponde a la Columna 3 y Fila A003.

Conocer columna fila tabla celda

El código creado primero almacena en las variables Vfil Vcol el número de fila y columna de la celda activa. Las siguientes variables VcolumDat y  VfilDat en función de la columna y fila, las utilizamos para almacenar el nombre de columna y fila. (En este ejemplo las filas y columnas son fijas)

Una vez detectados los nombres los añadimos a las celdas con el código Cells(2, 3).Value = VcolumDat , Cells(3, 3).Value = VfilDat

MsgBox nos mostrará un mensaje con el nombre de fila y columna.

Sub ConoceFil_Colum()
    Dim Vfil As Integer
    Dim Vcol As Integer
    Dim VcolumDat As Variant
    Dim VfilDat As Variant
    
    Vfil = ActiveCell.Row
    Vcol = ActiveCell.Column
    
    VcolumDat = Cells(Vfil, 1)
    VfilDat = Cells(5, Vcol)
    
    Cells(2, 3).Value = VcolumDat
    Cells(3, 3).Value = VfilDat
     
        
    MsgBox “La fila es: ” & VcolumDat
    MsgBox “La columna es: ” & VfilDat
    
End Sub

Por último puedes añadir un botón de Control de Formulario y asignarle la Macro.

Recuerda que este código es un ejemplo pedagógico, con VBA podemos encontrarnos multitud de formas y situaciones en la hoja de Excel a resolver de múltiples maneras.

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s