Como Obtener de un Rango la Primera y Ultima Celda
Sres. T. E.
Necesito de Uds. Lo siguiente:
En la Columna “A” tengo los datos siguientes:
Col. A
Fila 1 CJ
Fila 2 CJ
Fila 3 CJ
Fila 4 CJ
Fila 5 CJ
Fila 6 CJ
Fila 7 CJ
Fila 8 CJ
Fila 9 DA
Fila 10 DA
Fila 11 DA
Fila 12 DA
Fila 13 DA
Fila 14 FC
Fila 15 FC
Fila 16 FC
Fila 17 FC
Fila 18 FC
Fila 19 FC
Fila 20 FC
Fila 21 FC
De la cual necesito un Código para que me muestre cual es la celda iniciar y la final del Valor buscado, en este que busque el valor DA y que muestre la primera Dirección “Address” “A9” y la ultima “A13”.
Esto en Excel 2003.
1 respuesta
Respuesta de Dante Amor
1
Te invito a SUSCRIBIRTE a mi canal de YouTube:
Ahí encontrarás más sobre Excel y Macros:
https://www.youtube.com/channel/UCs644-v3ti4SF7zE_bt_YXA
Comparte los enlaces en tus redes sociales.
Te paso el código:
Sub Obtner_Rango()
'Por Dante Amor
Dim f As Range, lastcell As Range
Dim add1 As String, dato As String
'
dato = "DA" 'valor a buscar
'
Set lastcell = Range("A" & Rows.Count).End(3)(2)
'Buscar la primera dirección (xlNext)
Set f = Range("A:A").Find(dato, lastcell, xlValues, xlWhole, xlByRows, xlNext, False)
If Not f Is Nothing Then
add1 = f.Address
'busca la última dirección (xlPrevious)
Set f = Range("A:A").Find(dato, lastcell, xlValues, xlWhole, xlByRows, xlPrevious, False)
MsgBox "Valor buscado: " & dato & vbCr & _
"La Primera Dirección: " & add1 & " y La Última: " & f.Address
Else
MsgBox "Dato no existe"
End If
End Sub
