Simple data entry form above the targeted columns. Help!

[mrmikepan]

[h=2]

[/h]

So... I have a table with 4 columns, these are the headers:
Date / Item Name / Purchase From / Purchase Price
Table Starts @ B3, Headers C3 / D3 / E3 / F3 (Same order as above)
I want to be able to type in the data in C4 / D4 / E3 / F3, press an 'Enter' Button Near G4.
It will automatically place the data in the next open row for each column. "Adding it to the List"

Seems simple, but I have no clue... If someone could show me what to do I would be so appreciative and hopefully I'll be able to modify the efficiency of how I want to enter the data from there.

Thank You!

PS: Still learning so explanations of the code are soo welcome

Alternative explanation of what I'm trying to do:

I have 4 cells that I want to enter data into C4,D4,E4,F4.
Underneath those 4 cells its suppose to be a list of what I've entered.
I want to type data into C4,D4,E4,F4... Push a developer button labeled "Enter" and then have that data be put onto the bottom of the list, clearing C4,D4,E4, and F4 for the next set of data to be added to the list.

To do this it must go down the list and find the first blank row for the data from (C4,D4,E4,F4) to be placed, When the developer button labeled "Enter" is pressed. At least I think that's the easiest way to accomplish this? I don't know VB code.​

 

[mrmikepan]

I am at a loss to fix that problem.

Is it necessary that you use a table?

I'll poke around and see what, if anything, I can do.

Howard

https://www.dropbox.com/s/q3k8emyafv326ir/Balance Sheet.xlsm
I don't know if you can download the file from my dropbox, but here's a shot.

This is the Workbook I've been creating, the page I'm testing this macro on is "Inventory Value"

 

[L. Howard]

Got your workbook. Not sure what I can do but will give it a look see.

Howard

 

[L. Howard]

Try this in the sheet module of Inventory Value.
The old code was moving FourBy from Range("C7:F7") to Range("C8:F8").
This seems to work fine for me on your Drop Box workbook.

Option Explicit
Private Declare Function sndPlaySound32 _
    Lib "winmm.dll" _
    Alias "sndPlaySoundA" ( _
        ByVal lpszSoundName As String, _
        ByVal uFlags As Long) As Long

Sub CopyFourByCut()
'By Claus
If WorksheetFunction.CountA(Range("C7:F7")) = 0 Then
    MsgBox "Nothing to copy!"
    Exit Sub
 Else
   Rows(8).Insert shift:=xlDown
   Range("C7:F7").Cut _
      Range("C8:F8")
      sndPlaySound32 "C:\Windows\Media\Chimes.wav", 0&
   Range("C7").Select
End If

End Sub

Regards,
Howard

 

[mrmikepan]

Worked perfectly! Ty for all your help!

Try this in the sheet module of Inventory Value.
The old code was moving FourBy from Range("C7:F7") to Range("C8:F8").
This seems to work fine for me on your Drop Box workbook.

Option Explicit
Private Declare Function sndPlaySound32 _
    Lib "winmm.dll" _
    Alias "sndPlaySoundA" ( _
        ByVal lpszSoundName As String, _
        ByVal uFlags As Long) As Long

Sub CopyFourByCut()
'By Claus
If WorksheetFunction.CountA(Range("C7:F7")) = 0 Then
    MsgBox "Nothing to copy!"
    Exit Sub
 Else
   Rows(8).Insert shift:=xlDown
   Range("C7:F7").Cut _
      Range("C8:F8")
      sndPlaySound32 "C:\Windows\Media\Chimes.wav", 0&
   Range("C7").Select
End If

End Sub

Regards,
Howard