Scoring Sheet

ENTERTAIN

New Member
Joined
Sep 6, 2017
Messages
9
I am looking for macro to do the following
Input numbers into one specific cell and get a running total in a different specified cell.
This is for a scoring sheet where the result gets displayed on a monitor. it would make the computer operators job easier if the figures could be entered into the same cell rather than a column of cells as they are doing now.
Any help would be appreciated.
 

James006

Well-known Member
Joined
Apr 4, 2009
Messages
3,670
Hello,

You should describe the sheet structure ... and be ... more .. specific ...:wink:
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
30,545
Office Version
365
Platform
Windows
Maybe something along the lines of
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Address(0, 0) = "A1" Then
        Range("B1").Value = Range("B1").Value + Target.Value
    End If
End Sub
This needs to go in the sheet module, for the sheet you want it to work on.
 

ENTERTAIN

New Member
Joined
Sep 6, 2017
Messages
9
It is a scoring sheet for the darts game of 501 played between two teams, say a Red team and a Blue team. The red teams scores could be put into A1 and and tallied in B1. As the game starts at 501 and ends at 0 the tallied score is subtracted from 501 by formula and the remainder shown in C1. On sheet 2 which has been set up to display on a monitor cells C1 and A1 on sheet 1 are referenced to show the score remaining and the last players score. The blue team could be set up in cells A2,B2 and C2 using another macro. The main problem may be running two macro's at the same time.
 

Forum statistics

Threads
1,078,462
Messages
5,340,456
Members
399,376
Latest member
Tresfjording

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top