Please Help! Stuck on Formulas for keep station plan up to date

**ds24** · 06-05-2015, 09:14 AM

Hi everyone.

I'm a newly registered member. Hope someone 'out there' can help me with this task I'm completely overstrained...
I have 25 Daily tasks in a column, every task comes with 7 values under it, there is a dropdown list on the top of every task (dropdown list Station 1 to 25) .
After choosing the Station for example A6 I would need the following 7 cells include the Station number copied to another place in the same sheet.
I would need this action to create an Floorplan to keep visual on track with the daily progress and positionsSample.xlsxSample.xlsx.

I have tried several formulas, but I cannot make this work.

I would be really grateful for anyones help on this, as I have spent hours and hours on this, and I am just banging my head on the wall!

Many thanks,
Carmen
Sample.xlsx

**MarvinP** · 06-05-2015, 09:41 AM

Hi Carmen and welcome to the forum,

This looks like a VBA problem to me. See the attached that has an Event code behind the sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("y6")) Is Nothing Then
        Dim LastRow As Double
        Dim RowCtr As Double
        LastRow = Cells(Rows.Count, "A").End(xlUp).Row
        For RowCtr = 1 To LastRow
            If Cells(RowCtr, "A") = Target Then GoTo Found
        Next RowCtr
Found:
        Range(Cells(RowCtr + 1, "A"), Cells(RowCtr + 7, "A")).Copy
        Cells(Target.Row + 1, Target.Column).Select
        ActiveSheet.Paste
    End If
End Sub