Need assistance/help with VBA Code

[mgesh2002]

Hello Ninjas,

Please find attached the excel file. On Row 50, I have two buttons to Add or Delete the primary contact section (Row 41:48).

If I press the "Click to add another Primary Contact" button, then the empty Primary Contact section (Row 41:48) inserted below the first one and If I press the "Click to delete new Primary Contact", then the latest Primary Contact should be deleted.

If you could assist me on writing a VBA code for these two buttons that would be really helpful.

Thanks in advance.

Regards,
Muru

 

[Hui]

Muru

I would use two subroutines like:

Sub Add_Primary_Contact()
  Sheets("Input (Questioner)").Select
  Rows("49:55").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
  Range("B42:M48").Copy
  Range("B49").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  Rows("49:49").RowHeight = 7.5
  Range("B51,C51:H51,I51:K51,L51:M51,L53,J53:K53,C53:I53,B53,G55,H55,I55:J55").ClearContents
  Range("F57").Select
End Sub

Sub Del_Primary_Contact()
  Sheets("Input (Questioner)").Select
  Rows("49:55").Select
  Selection.Delete Shift:=xlUp
  Range("F50").Select
End Sub

See attached file

 

[mgesh2002]

Hui,

Thank you for your help.
I will test these code on my worksheet and get back to you soon.

Thanks,
Muru