VBA trouble

[Jstump]

Can someone help me with why this is not working? It should be a triggered Macro that adds rows and data on my dash sheet in between rows 3 and 4 and copies the data into column A on Dash sheet from K4-K23 from Input sheet

Kane Macro.xlsm
	G	H	I	J	K
1
2
3		# manpower	10	Employee	Employee name
4				1	Clement, Vincent
5				2
6				3
7				4
8				5
9				6
10				7
11				8
12				9
13				10
14				11
15				12
16				13
17				14
18				15
19				16
20				17
21				18
22				19
23				20
Input page

Cells with Data Validation
Cell	Allow	Criteria
K4:K23	List	=Database!$A$2:$A$10

Kane Macro.xlsm
	A	B	C	D	E	F	G
1
2
3	Employee Name		12-Jan	13-Jan	14-Jan	15-Jan	16-Jan
4	total
5
6
Dash

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your "Input page" sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a name in column K and press the ENTER key.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column <> 11 Then Exit Sub
    Application.ScreenUpdating = False
    With Sheets("Dash")
        .Rows(6).Insert
        .Range("A6") = Target
    End With
    Application.ScreenUpdating = True
End Sub

 

[Jstump]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your "Input page" sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a name in column K and press the ENTER key.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column <> 11 Then Exit Sub
    Application.ScreenUpdating = False
    With Sheets("Dash")
        .Rows(6).Insert
        .Range("A6") = Target
    End With
    Application.ScreenUpdating = True
End Sub

Nothing was added or populated on the "dash" sheet.

 

[mumps]

I tested the code using the data on the two sheets you posted and it worked correctly. Have you placed the macro in the worksheet code module as I described? Are you using the macro on the same data?

 

[Jstump]

I entered it correctly, just like you said. I added a tab and change the name to "Hours" but that was after it didnt work and i went back in the code and changed it there as well.

Kane Macro.xlsm
	M	N	O	P
1
2
3	# manpower	10	Employee	Employee name
4			1	McCain, Austin
5			2	Clement, Vincent
6			3	McCain, Austin
7			4
8			5
9			6
10			7
11			8
12			9
13			10
14			11
15			12
16			13
17			14
18			15
19			16
20			17
21			18
22			19
23			20
Input page

Cells with Data Validation
Cell	Allow	Criteria
P4:P23	List	=Database!$A$2:$A$10

Kane Macro.xlsm
	A	B	C	D	E	F	G
1
2
3	Employee Name		12-Jan	13-Jan	14-Jan	15-Jan	16-Jan
4	total
5
6
7
8
Hours

 

[MARK858]

You've moved the target.column from K to P and so you need to amend the 11 accordingly (please also post your code directly in the thread [and preferably in code tags] rather than in an image)

 

[Jstump]

Beofre i moved it to column P it still was not working. However, now that the data was in column P i did adjust the 11 to 16 and it is working now. Thanks a bunch to everyone who helped.

 

[Jstump]

What could i add to make it delete the Row off of "hours" when data is deleted out of my P column on "input page"

 

[Jstump]

This is what i used to get it to auto delete as well. Thanks guys!

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge <> 1 Then Exit Sub
    If Target.Column = 16 Then
        Application.ScreenUpdating = False
        With Sheets("Hours")
            If Target.Value = "" Then
                .Rows(6).Delete
            Else
                .Rows(6).Insert
                .Range("A6") = Target.Value
            End If
        End With
        Application.ScreenUpdating = True
    End If
End Sub

 

[mumps]

You are very welcome.