Buscar ultimo valor de una columna si cumple una condición
Tengo el siguiente código, el cual busca el último valor de una columna (columna 3 de la hoja ingresos), le añade uno y me lo pone en otra hoja:
Sub Factura_asignar_numero()
Dim ws As Worksheet
Dim UltimaFila, UltimoNumeroFta, NuevoNumeroFta As Integer
Set ws = Sheets("INGRESOS")
With ws
UltimaFila = .Cells(10000, 3).End(xlUp).Row
If UltimaFila > 1 Then UltimoNumeroFta = .Cells(UltimaFila, 3)
End With
NuevoNumeroFta = UltimoNumeroFta + 1
Range("G4") = NuevoNumeroFta
End Sub
Lo que me gustaría ahora, sería añadir otra condición... Y sería que sumara +1 si otra columna de la hoja ingresos es igual a un valor... Sino, que siguiera buscando... La idea es añadir una nueva variable:
Dim NuevoNum As Integer
NuevoNum = Range("G5")
Este G5, de entrada sé que pueden ser 001 o 002, pero puede ser diferente en el futuro...
Como se ve, son números correlativos para 001 y otros números correlativos para 002...
Si la condición de la siguiente columna fuera 001, tendría que añadir un 7 (a 6 que es el último valor le añadimos +1)... Por el contrario, si la condición de la siguiente columna fuera 002, tendría que añadir un 3 (a 2 que es el último valor de 002 le añadimos un +1)
No sé si me he explicado suficientemente... Pero sería añadir la nueva condición para sumar el número, sino, que siguiera buscando...