Clear form after add buton is pressed and data transferred onto other sheet

[Patriot2879]

Hello, please can you help me with the code below that works great but i just wanted the data in the form to clear once the add button has been pressed and all data has be transferred to the other sheet, is there any way for it to 'Clear' once the button is pressed? please can you help me? thank you again for your time much apprecated, i am a beginner and loving this coding and learning.

Private Sub CommandButton2_Click()

Dim NxtRw As Long
Application.ScreenUpdating = False

NxtRw = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Row
With Sheets("Northants")
Sheets("Sheet2").Range("A" & NxtRw).Resize(, 8).Value = Application.Transpose(.Range("B22:B29").Value)
Sheets("Sheet2").Range("I" & NxtRw).Value = .Range("C29").Value
Sheets("Sheet2").Range("J" & NxtRw).Resize(, 2).Value = Application.Transpose(.Range("B30:B31").Value)
End With

Application.ScreenUpdating = True
End Sub

 

[NdNoviceHlp]

u need to code each control to clear ie. Userform1.Listbox1.clear; Userform1.textbox1.value = vbnullstring; etc. . Alternatively, U can "Unload Me" then re-load the form. HTH. Dave

 

[Patriot2879]

hiya thank you for the response back, i am sorry but i dont understand what you mean, i am very new to VBA coding, if you can explain a little bit more please i would be most greatful.

 

[Fluff]

Which sheet do you want to clear & what are the ranges?

 

[Patriot2879]

Hi there the sheet i want clearing is 'Northants' cell 'C19', thank you for your patience and help,

 

[Fluff]

Try

Sheets("Northants").Range("C19").Clear

 

[Patriot2879]

thank you where do i place this in the current code? thank you again for your patience

 

[Fluff]

Anywhere after you have copied the data to the other sheet.

 

[Patriot2879]

that works perfectly thank you so much for your help

 

[Fluff]

Glad we could help & thanks for the feedback