Dear sir
this code is not working
Please provide the alternate solution
On Monday, 16 December 2013 20:30:22 UTC+5:30, renuka chari wrote:
>
> Thank you sir,
> i will check this once and tell you
>
> thanks once againnnnnnnnnnnnn
>
>
> On Thursday, 12 December 2013 22:24:33 UTC+5:30, pmyk wrote:
>>
>> Add these codes:
>> [code]
>> Private Sub UserForm_Click()
>> Dim AlphaInSlNo As String
>> Dim NumInSlNo As String
>> Dim LenSLNo As Integer
>> Dim NewSlNo As String
>> Dim LastRecNum As Long
>> Sheets("VolunteerList").Select
>> LastRecNum = Cells(Rows.Count, "a").End(xlUp).Row 'to go to last data
>> cell inspite of blank cells
>> Range("A" & Trim(Str(LastRecNum))).Select
>> Debug.Print "Selection.Value=" & Selection.Value
>> LenSLNo = Len(Selection.Value)
>> AlphaInSlNo = Left(Selection.Value, 3)
>> Debug.Print "AlphaInSlNo=Left(Selection.Value, 3)=" &
>> Left(Selection.Value, 3)
>> NumInSlNo = Int(Mid(Selection.Value, 4))
>> Debug.Print "NumInSlNo=" & NumInSlNo
>> NewSlNo = Trim(Str(NumInSlNo + 1))
>> txtSlNo.Text = AlphaInSlNo & NewSlNo
>> Do While Len(txtSlNo.Text) < LenSLNo
>> AlphaInSlNo = AlphaInSlNo & Trim(Str(0))
>> txtSlNo.Text = AlphaInSlNo & NewSlNo
>> Loop
>> Debug.Print "txtSlNo.Text=" & txtSlNo.Text
>> txtDtTIme.Text = Now
>> End Sub
>> [/code]
>> [code]
>> Private Sub cmdAdd_Click()
>> Sheets("VolunteerList").Select
>> LastRecNum = Cells(Rows.Count, "a").End(xlUp).Row 'to go to last data
>> cell inspite of blank cells
>> Range("A" & Trim(Str(LastRecNum + 1))).Select
>> Selection.Value = txtSlNo.Text
>> Selection.Offset(0, 2).Value = txtNam.Text 'Name entered in Name column
>> Selection.Offset(0, 3).Value = txtCty.Text 'City entered in City column
>> Selection.Offset(0, 4).Value = txtDtTIme.Text 'DtTIme entered in DtTIme
>> column
>> Call EmptyTextBoxes
>> End Sub
>> [/code]
>> [code]
>> Private Sub EmptyTextBoxes()
>> txtSlNo.Text = ""
>> txtNam.Text = ""
>> txtCty.Text = ""
>> txtDtTIme.Text = ""
>> End Sub
>> [/code]
>> Run the Code and click the Userform. I have changed the names of Text
>> Boxes and Command Button. Hope you can take care of ListBox. I am still
>> learning. Hope this helps.
>>
>> On Sunday, December 1, 2013 4:48:27 PM UTC+5:30, renuka chari wrote:
>>>
>>> Dear group Please provide the userform code here serial no should be
>>> capture on next record no on stored data sheet i.e volunteerlist if I
>>> select the listbox items and enter the name city fields then click on add
>>> button the data should be stored into volunteeerlist sheet date should
>>> be disply the now date and time after click add data should be add to
>>> data sheet as given and checkboxes and data would be clear and ready for
>>> next entry Kindly provide this thanks
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> *(¨`•.•´¨) Always `•.¸(¨`•.•´¨) Keep(¨`•.•´¨)¸.•´ Smiling!!`•.¸.•´Thanks
>>> & Regards´¨) ¸ •´ ¸.•*´¨) ¸.•*¨) (¸.•´ (¸.•*
>>> ♥♥♥...♪♪♪....RenukaChari. Kasee...♥♥♥...♪♪♪*
>>>
>>> *P Let us do our best to save nature, save water, plant trees, protect
>>> greenery, keep our surroundings clean, reduce usage of plastics, and use
>>> renewable energy sources.*
>>>
>>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.
