Simple Macro help
I have no idea what is going on, it didn't here.
--
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
"Ewing25" wrote in message
...
It keeps telling me to create a name and when i do it starts a new sub. in
a
module.
Not sure what to do.
"Bob Phillips" wrote:
Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "B:B" '<== change to suit
Dim sh As Worksheet
Dim NextRow As Long
On Error GoTo ws_exit
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
Set sh = Worksheets("Sheet1")
If sh.Range("A1").Value = "" Then
NextRow = 1
ElseIf sh.Range("A2").Value = "" Then
NextRow = 2
Else
NextRow = sh.Range("a1").End(xlDown).Row + 1
End If
.Offset(0, -1).Copy sh.Cells(NextRow, "A")
sh.Cells(NextRow, "B").Value = .Offset(0, 1).Value +
.Offset(0,
2).Value
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub
'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.
--
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my
addy)
"Ewing25" wrote in message
...
Heres what i want the macro to do.
I have a spreadsheet with 2 tabs. one named commisions and the other
named
summary.
In the commisions tab there are 4 columns (Lets call them 1,2,3, and 4)
Columns 1 and 2 are non number values and 3 and 4 are columns with
number
values.
At every change in Column 2 i want it to put the value next to it in
column
1 and the sum of the values in columns 3 and 4 that correlate with the
value
in Column2.
And i want it to display the information in the Summary Tab.
If anyone can help that would be amazing.
Thanks!
Alex
|