RAKESH230583
New Member
- Joined
- Jan 10, 2011
- Messages
- 46
Dear All,
With the help of below codes, I am able to transfer userform Data to excel sheet name, "Extension Details".
But, while data are getting captured in sheet name "Extension Details", Colour and other formats are not same for every new addition. I want formatting for all new addition, to be same like A3:K3.
One solution is that to convert the range in Table - But then, if I do that, I cant make that excel as share workbook.
Code:
Dim Rw As Long
Dim Ws As Worksheet
Set Ws = Worksheets("Extenstion Details")
Rw = Sheets("Extension Details").Range("A" & Rows.Count).End(xlup).Row
With Ws
.Cells(Rw + 1,1).value = Me.Dtpicker1.value
'And other 11 in above same line
End With
End Sub
With the help of below codes, I am able to transfer userform Data to excel sheet name, "Extension Details".
But, while data are getting captured in sheet name "Extension Details", Colour and other formats are not same for every new addition. I want formatting for all new addition, to be same like A3:K3.
One solution is that to convert the range in Table - But then, if I do that, I cant make that excel as share workbook.
Code:
Dim Rw As Long
Dim Ws As Worksheet
Set Ws = Worksheets("Extenstion Details")
Rw = Sheets("Extension Details").Range("A" & Rows.Count).End(xlup).Row
With Ws
.Cells(Rw + 1,1).value = Me.Dtpicker1.value
'And other 11 in above same line
End With
End Sub