• 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...

  • 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

Beattima

New Member
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
 

Attachments

  • Sample.xlsm
    480 KB · Views: 12
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)
 
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?
 

Attachments

  • TestsheetQ28298465 (1).xlsm
    45.3 KB · Views: 4
According to your initial sample,
the mod for Task List worksheet event :​
Code:
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 !
 
when you activate the Site Shedule worksheet
(needs only 2 codelines)
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:
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 !
 
Back
Top