Hi I have below macro, which i would like to put a color in the row it copy to the sheet.
My macro copy from the stated fields in my sheet masterinvoice(which is a form to fill out) to sheet which is difined from cell M12.
Here is my code and my guess is i have to put some in to this line, but havent been able to fix it yet.
So would be great with some help.
Thanks
Abjac
Line where i think there have to be some changes
And i would like to have Interior.ColorIndex = 6 in the first cell.
Here is the full code.
My macro copy from the stated fields in my sheet masterinvoice(which is a form to fill out) to sheet which is difined from cell M12.
Here is my code and my guess is i have to put some in to this line, but havent been able to fix it yet.
So would be great with some help.
Thanks
Abjac
Line where i think there have to be some changes
Code:
Worksheets(.Range("M12").Value).Range("A65000").End(xlUp).Offset(x, y) = cHere is the full code.
Code:
Sub clientemaster20()
x = 1
y = 0
With Worksheets("Masterinvoice")
If .Range("M12") <> "" Then
For Each c In .Range("M6,D11,D10,D12,D13,F13,D14,F14,B17,B18,B19,B20,B21,B22,B23,B24,B25,B26,B27,B28,B29,B30,B31,B32,B33,D31,D32,D33,L31,L32,L33,M12,M10,H38,M34,M36,K37,M38")
Worksheets(.Range("M12").Value).Range("A65000").End(xlUp).Offset(x, y) = c
y = y + 1
x = 0
Next c
End If
End With
Sheets("Masterinvoice").CommandButton4.Enabled = False
Sheets("Masterinvoice").Activate
End Sub