Tengo una hoja de cálculo que incluye una identificación y un nombre. Me gustaría tener un procedimiento que (cuando el usuario ingrese una ID específica) encuentre la instancia más reciente de ese código en la misma columna, luego verificará la siguiente fila de la columna si está vacía. Por ejemplo:
ID | Name
SD123456 | John
DF989899 | Alice
SD123456 | Jason
KA452331 | Wilson
SD123456 |
DF456790 | Jack
Como puede ver, a la ID 'SD123456'le falta un nombre, por lo tanto, me gustaría saber si es posible buscar la ID 'SD123456'y obtener la última fila de esa ID y verificar la siguiente fila de la columna si falta. Intenté usar xlDowny xlUppero fue en vano.
EDITAR: En resumen, todo mi propósito de VBA es buscar la ID, luego verificar si esa última ID tiene un nombre, si no, alertar al usuario de que falta un nombre en la ID.
Puedes probar esto, simple y claro:
Dim lastrow As Long, i As Long
Dim ID As String
lastrow = Sheet1.UsedRange.Rows.Count
ID = "DF989899"
For i = 2 To lastrow
If InStr(Sheet1.Cells(i, 1).Value, ID) And IsEmpty(Sheet1.Cells(i, 2).Value) Then
MsgBox "Missing Value for ID: " & Sheet1.Cells(i, 1).Value
End If
Next
Este artículo se recopila de Internet, indique la fuente cuando se vuelva a imprimir.
En caso de infracción, por favor [email protected] Eliminar
Déjame decir algunas palabras