Traer el ultimo valor de una fila
Tengo una base de datos y requiero sacar el ultimo valor de una fila teniendo en cuenta el nombre de encabezado, porque este nombre se repite varias veces pero no en todas las celdas tiene información o en algunas ocasiones es diferente y debo traer el ultimo donde allá información de ese encabezado
1 Respuesta
Respuesta de Dante Amor
1
Si a la fila me refiero a horizontal y la información esta en varias columnas
Prueba con lo siguiente:
Cambia en la macro, "Hoja6" por el nombre de tu hoja.
"enc1" por el encabezado que vas a buscar.
Sub test()
Dim sh As Worksheet
Dim f As Range
Dim c As Long
Set sh = Sheets("Hoja6")
Set f = sh.Range("A:A").Find("enc1", , xlValues, xlWhole, , , False)
If Not f Is Nothing Then
c = sh.Cells(f.Row, Columns.Count).End(1).Column
If c > 1 Then
MsgBox "último dato: " & sh.Cells(f.Row, c).Value
End If
End If
End Sub
