Excel 2007 : updating data to another sheet with update command button

[murthykr72]

Hi to all!

Fisrtly,I want to update, filled in data on Invoice template to my sheet(InvoiceData).
Secondly, My invoice numbers should be increased automatically after updating.
Thirdly, I should be able to select customer id, customer details have to appear in relevant cells. Please help

[royUK]

You haven't even made a start!

1. sample code to adapt for transferring data in the contacts form here
http://excel-it.com/vba_examples.htm
2.[code]Range("G4").Value=Range("G4").Value+1
3. Use VLOOKUP based on customer ID#
http://excel-it.com/excel_functions.htm

[murthykr72]

thanks RoyUK

I don't have any idea about macros, I normally use it as speadsheet only, now i am trying to learn.
so can you please guide me in details.

[royUK]

Start by reading the code in the example.

The populating names & address can be done with VLOOKUP, no VBA required

[murthykr72]

can you explain me,

Please Login or Register  to view this content.

[royUK]

Pleaseuse code tags in future.That line finds the next empty row in the data sheet based on entries in Column A which should be the Invoice number

[murthykr72]

what modification i have to do from this?

Private Sub cmdUpdateInovice_Click()
'Set variables
Set wsData = Sheet3
Set wsForm = Sheet1
'find the next empty row for data input
Set rNextCl = wsData.Cells(65536, 1).End(xlUp).Offset(1, 0)

'enter the data using Offset to find next Column
'note use With....End With to let Excel that the following lines are working with rNextCl
'also reduces typing!!

With rNextCl
.Value = wsForm.Cells(2, 2).Value
.Offset(0, 1).Value = wsForm.Cells(3, 2).Value
.Offset(0, 2).Value = wsForm.Cells(4, 2).Value
.Offset(0, 3).Value = wsForm.Cells(5, 2).Value
.Offset(0, 4).Value = wsForm.Cells(6, 2).Value
End With

'confirm data transferred
MsgBox "Data transferred successfully" & vbCrLf & "", vbInformation, "Data transfer"

'clear input cells, note use of Named Range
wsForm.Range("DataInput").ClearContents

'clear variables
Set wsData = Nothing
Set wsForm = Nothing
Set rNextCl = Nothing

End Sub

[murthykr72]

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[royUK]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[murthykr72]