I placed the following objects on my VBA excel
TextBoxes
a) file no
b) Name
Command buttons
a) Save
b) Update
@@@@@@@@@@@@In save button I have given code as@@@@@@@@@@@@@@@
Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("Employee Details").Activate
Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = txtfileno.Value
ActiveCell.Offset(0, 1) = txtname.Text
@@@@@@@@@@@@In Update button i have given the code as @@@@@@@@@@@
Dim ws As Worksheet
Dim uf As UserForm
Dim wslastrw As Long, filerow As Long
Dim fileno As String
Dim filefnd As Range
Set uf = formcalsheet
fileno = uf.txtfileno.Text
If fileno = "" Then
MsgBox "Please enter a valid File No."
Exit Sub
End If
Set ws = Worksheets("Employee Details")
wslastrw = ws.Range("A" & Rows.Count).End(xlUp).Row
With ws
Set filefnd = .Range("A2:A" & wslastrw).Find(what:=fileno,
after:=.Range("A2"), _
LookIn:=xlValues, lookat:=xlPart, searchorder:=xlByRows,
searchdirection:=xlNext, _
MatchCase:=False)
If filefnd Is Nothing Then
MsgBox "No File with this File No. exists." & Chr(10) &
"Please enter a valid File No."
Exit Sub
Else
filerow = filefnd.Row
End If
uf.txtname.Value = ws.Range("B" & filerow).Value
PROBLEM IS#############
while clicking the update button after giving the file number the form
will present the corresponding data to that particular number
If I modify any change and clicks the save button again a fresh row is
creating with the same number
It should be avoided. The data should be amended in the existing row
itself. whats wrong with the code. provide me solution
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
