USERFORM fill out and transer data to new sheet

[Patriot2879]

Hi really helping you can help me with the code below please, i have a userform which i can fill out, when i click the ok button i want the information entered to be transferred into sheet6 in columns a - d then every time new info is added to goto a new lane, but i keep getting erros pop up please can you help again, i am very new to all this so still learning, and any advise you can give will be very much appreciated

Private Sub OKButton_Click()

Dim emptyRow As Long

'Make Sheet1 active
Sheet1.Activate

'Determine emptyRow
emptyRow = ThisWorkbook.Sheets("Sheet6").CountA(Range("A:D")) + 1

'Transfer information
Cells(emptyRow, 1).Value = DateBox.Value
Cells(emptyRow, 2).Value = MPANBox.Value
Cells(emptyRow, 3).Value = ManagerBox.Value
Cells(emptyRow, 4).Value = NotesBox.Value


End Sub

 

[Fluff]

What errors are you getting & on what line?
Also what is the name of the sheet you want to write the data to?

 

[Patriot2879]

HI thanks for getting back to me, i am getting Run-Time error '13': Type mismatch error which when i click on debug it highlights emptyRow = ThisWorkbook.Sheets("Sheet6").Range("A:D") + 1,
i want to get the data from UserForm2 which i have an OK button on so when i click then the data is transferred to sheet6

 

[Fluff]

Ok, try this

Private Sub OKButton_Click()

Dim emptyRow As Long

'Make Sheet1 active
'Sheet1.Activate

'Determine emptyRow
With ThisWorkbook.Sheets("Sheet6")
   emptyRow = .Range("A:D").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

   'Transfer Information
   .Cells(emptyRow, 1).Value = DateBox.Value
   .Cells(emptyRow, 2).Value = MPANBox.Value
   .Cells(emptyRow, 3).Value = ManagerBox.Value
   .Cells(emptyRow, 4).Value = NotesBox.Value
End With

End Sub

 

[Patriot2879]

this is great thankyou but how do i get it to add a new line automaticall please

 

[Fluff]

Sorry, my mistake. Change this line as shown

 emptyRow = .Range("A:D").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row [COLOR=#ff0000]+1[/COLOR]

 

[Patriot2879]

Sorry me again please can you advise when the data is copied and transferred into sheet6 how do i start it from A@:D2 to be copied into? thank you again for your time.

 

[Patriot2879]

brill thankyou again, this is great

 

[Fluff]

Glad to help & thanks for the feedback