I think problem with yello highlighted color code. Pls try this if help
(PFA)
Sub RoundedRectangle1_Click()
Dim rng As Range
Sheet2.Range(a1:a9).Select
Set rng = Selection.Find(What:=b, After:=Range(a1), LookIn:=xlFormulas,
_
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
MsgBox rng.Address
If Not rng Is Nothing Then
rowcrnt = rng.Row
End If
MsgBox rowcrnt
End Sub
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of rutuja patekar
Sent: Thursday, November 07, 2013 11:14 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ use of find method in VBA
I am taking data from one workbook and finding the same data in different
workbook.
I am using find method, below is my code;
Dim rowcrnt As Range
Dim rng As Object
Workbooks(Input1_FileName).Sheets(Input1_SheetName).Activate
Workbooks(Input2_FileName).Sheets(Input2_SheetName).Activate
Columns(B:B).Select
Set rng = Selection.Find(What:=First_Time, After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not rng Is Nothing Then
rowcrnt = rng.Row
End If
First_Time is the data from Input1_FileName
Every time I am getting rng as nothing. Can anyone tell me what's wrong in
code?
--
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.
--
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.
findcommaninvba.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
