Condição SE no VBA

[AlexandreAMS]

Olá tenho uma macro que modifica uma data de acordo com uma condição:

Sub Ajust_data_venc()

Application.ScreenUpdating = False

Dim y As Long

For y = 2 To Cells(Cells.Rows.Count, "A").End(xlUp).Row

Select Case Cells(y, "A").Value

Case "teste"

Cells(y, "C") = Cells(y, "B").Value + 28

Case "BrazCubas"

Cells(y, "C") = Cells(y, "B").Value + 45

End Select

Next

Application.ScreenUpdating = True

End Sub

o que faz esta macro! ela percorre a coluna A e encontra um determinado cliente, no exemplo esta como "teste" (isso aumentará por isso usei case).

e pega o valor que esta na coluna "B" e soma com 28(variavel de acordo com cliente) e altera em "C"

o que necessito agora é que na mesma busca, da coluna "A" ele busque o que estiver em "D"...

se fosse como formula... seria o mesmo que SE e E

então ficaria assim:

SE "teste" e "entregue"(nome que estará na célula D e é variável) executa a soma de B + a condição do cliente no caso 28...

alguém saberia como posso solucionar isso, via VBA.