1. Welcome to Chandoo.org Forums. Short message for you

    Hi Guest,

    Thanks for joining Chandoo.org forums. We are here to make you awesome in Excel. Before you post your first question, please read this short introduction guide. When posting or responding to questions please remember our values at Chandoo.org are: Humility, Passion, Fun, Awesomeness, Simplicity, Sharing Remember that we have people here for whom English is not there first language and we need to allow for this in our dealings.

    Yours,
    Chandoo
  2. Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  3. When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Newbie and help required

Discussion in 'VBA Macros' started by Beattima, Jun 12, 2018.

  1. Beattima

    Beattima New Member

    Messages:
    4
    Hi all looking for some help with my sheets, I have 2 sheets , Sheet 1 is the Task List where I need to put a tick in column "A" then this transfers the row to "Site Schedule tab"". I also want to be able to remove the tick from sheet 1 in case i make a mistake and this removes the data from the "Site Schedule tab only " I hope this all makes sense.I will have over 3000 task to add to the sheet as well.As you can see Ive managed to put ticks into Column A on the Task List but cant sus to pull this info through. Kind regards

    Attached Files:

  2. Marc L

    Marc L Excel Ninja

    Messages:
    4,257
    Hi !

    First there is an issue if you select the cell A1 in Task List worksheet
    so you must first mod the worksheet event code …

    In a second time it can be a mess to operate each time you select a cell in
    column A (or it needs a helper column in the Site Shedule worksheet)
    as it is easier to launch a procedure via a button
    or when you activate the Site Shedule worksheet (needs only 2 codelines)
  3. Belleke

    Belleke Active Member

    Messages:
    472
    Something like this?
    See attached.

    Attached Files:

    Thomas Kuriakose and Beattima like this.
  4. Beattima

    Beattima New Member

    Messages:
    4
    Thank you Marc and Belleke for your time and response in helping me out. I was searching for a solution late last night and found this Example see attached that would help me out. But Im struggling to work out why I can not get it past row 18 when I add more Tasks, but I like the Idea tick sheet 1 copies over to sheet 2 untick sheet 1 this removes from sheet 2. Belleke I like your idea as well though. Is there anyway i can use the example to work on my current spreadsheet?

    Attached Files:

  5. Marc L

    Marc L Excel Ninja

    Messages:
    4,257
    According to your initial sample,
    the mod for Task List worksheet event :​
    Code (vb):
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        With Target
            If .Count = 1 And .Column = 1 And .Row > 1 Then
                If .Value = vbNullString Then
                   .Font.Name = "Marlett"
                   .Value = "a"
                Else
                   .Value = vbNullString
                End If
            End If
        End With
    End Sub
    You may Like it !
    Thomas Kuriakose likes this.
  6. Marc L

    Marc L Excel Ninja

    Messages:
    4,257
    According to your initial sample :

    • you must first correct the typo in cell W1 of Site Schedule worksheet
    (just compare / copy from source data worksheet
    as with a typo the code execution raises an error …)

    paste this code event to the Site Schedule worksheet module :​
    Code (vb):
    Private Sub Worksheet_Activate()
        [CA1:CA2].Value = [{"Tasks Required";"a"}]
        Sheet1.Cells(1).CurrentRegion.AdvancedFilter xlFilterCopy, [CA1:CA2], Cells(1).CurrentRegion.Rows(1)
    End Sub
    Do you like it ? So thanks to click on bottom right Like !
    Thomas Kuriakose likes this.

Share This Page