Adjust cell after macro.

[Belleke]

Sorry, It is really not my day, I need some help again.
I have this code

Private Sub CommandButton1_Click()
E_name = [B30]
Sav = Application.WorksheetFunction.VLookup(E_name, Blad2.Range("A13:E21"), 5, False)
[A30] = Sav + [G30]
End Sub

This works fine, but Sav should be also Sav + [G30] at the end of code
I feel like a complete i....t
Please advice

 

[NARAYANK991]

Hi ,

Just add a line of code to what you have posted :

Private Sub CommandButton1_Click()
    E_name = [B30]
    Sav = Application.WorksheetFunction.VLookup(E_name, Blad2.Range("A13:E21"), 5, False)
    [A30] = Sav + [G30]
    Sav = Sav + [G30]
End Sub

Narayan

 

[Deepak]

As far as I understand.

Sav = Sav + [G30]
[A30] = Sav

 

[Belleke]

Thank you Deepak an Naryan, I'll post and example as soon as possible (now everthing is in dutch)
@Narayan, I tryed Sav = Sav + [G30] but no go

 

[Belleke]

See attached Pls

 

[NARAYANK991]

Hi ,

I am not sure what you want. See if this is OK.

Narayan

 

[Belleke]

@ Narayan
This is spot on my friend.
Thank you.