Thanks Thanks:  0
Likes Likes:  0
Results 1 to 2 of 2

Thread: Help with some Macros

  1. #1
    New Member
    Join Date
    Apr 2002
    Post Thanks / Like
    0 Post(s)
    0 Thread(s)


    First off I would love to give much thanks to Thomas Schreiner, he has been so much help, but I do not want to take all of his time.

    I have been working on a project, well a basic and Tom has taken it to new levels I never thought possible.

    I have a monthly log and need it to do some calculations based on another sheet.

    Just simple (I think) calculations based on the field being emply or haveing a date.

    It doesn't matter what is there just if anything is there.


    sheet 1
    column A
    Column B

    The other worksheet:
    If column B is written in add one to the total if not ignore

    I now know I know less than before. The more functions I try, the worse everything gets.

    I may just stick to SUM(a1:b2) that is a sure calculation.



  2. #2
    MrExcel MVP Al Chara's Avatar
    Join Date
    Feb 2002
    Newark, Delaware
    Post Thanks / Like
    0 Post(s)
    0 Thread(s)


    I am not sure exactly what you want, but you can edit the following to fit your situation:

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target <> "" Then Total = Total + 1
    Worksheets("Sheet1").Range("A1").Value = Worksheets("Sheet1").Range("A1").Value + 1
    End Sub

    Put this code in the code for the worksheet that will be added on to. The code will add "1" to Cell A1 on Sheet1 everytime a cell is changed and not blank.
    Best regards,
    Allan Chara

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts