Hi,
I have a some issue with the User Form which i created.
Query:
1) When i search with any content, it display in Text Box 1 and when i click on it, its shows me in respected Text Box (for Eg. First Name in txtfn like this) but the problem is arise when i change any thing and click on Replace Button its give me a error.
Plz Extract the Zip file
Plz can one help me out in this.
Waiting for reply,
Hari
Re: Replace In User Form Text Box
Your code for the replace button does not match the command button names... you've declared duplicate variables...
Private Sub cmdrep_Click()
'Dim fnRepl
'Dim lnRepl
'Dim addRepl
'Dim dobRepl
'Dim dojRepl
'Dim statRepl
Dim r As Range
Dim fnRepl As String
Dim lnRepl As String
Dim addRepl As String
Dim dobRepl As String
Dim dojRepl As String
Dim statRepl As String
Dim faddress As String
With Me
fnRepl = .txtfn '.Column(0)
lnRepl = .txtln '.Column(1)
' addRepl = '.txtadd '.Column(3)
dobRepl = .txtdob '.Column(4)
dojRepl = .txtdoj '.Column(5)
statRepl = .ListBox1 '.Column(6)
End With
With Sheets("Dec07").Range("DataRange")
Set r = .Find(What:=fnRepl, LookAt:=xlValue, MatchCase:=False)
If Not r Is Nothing Then
faddress = r.Address
Do
If r.Offset(0, 1) = fnRepl _
And r.Offset(0, 2) = lnRepl _
And r.Offset(0, 3) = dobRepl Then
r = Me.txtsearch
r.Offset(0, 1) = fnRepl
r.Offset(0, 2) = lnRepl
r.Offset(0, 3) = dobRepl
Exit Do
End If
Set r = .FindNext(r)
Loop While Not r Is Nothing And r.Address <> faddress
Else
MsgBox "THIS PRODUCT HAS NOT BEEN FOUND, PLEASE TRY AGAIN", vbInformation + vbOKOnly, "PRODUCT NOT FOUND"
Me.txtsearch = ""
Me.txtsearch.SetFocus
End If
End With
With Me
.txtsearch.Value = ""
.txtfn.Value = ""
.txtln.Value = ""
' .txtadd.Value = ""
.txtdob.Value = ""
.txtdoj.Value = ""
.cbostat.Value = ""
.ListBox1.Clear
.cmdsub.Enabled = True
.cmdsearch.Enabled = True
.cmddel.Enabled = False
.cmdrep.Enabled = False
End With
End SubDon’t have an account yet? Register yourself now and be a part of our community!