ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   VBA: how do I return a row number? (https://www.excelbanter.com/excel-programming/315465-vba-how-do-i-return-row-number.html)

Mcasteel[_23_]

VBA: how do I return a row number?
 

-Thanks Ron, its a great clue for me.-

Let me expand a little:

Now I want to know the row number of a given row. What Im doing i
searching customer records for a specific Social Security Number. Onc
I find the customer number, want to know what row that social securit
number is in so I can select the range and delete or update th
customer record.

Any suggestions?

_My_Code:_
Dim rng As Range

With Worksheets(1)
Set rng = .Columns(6).Find(txtCustSSN.Text)

If Not rng Is Nothing Then
'Populate frmCustLookup with Customer Information
txtLname.value = .Cells(rng.Row, 3).Value
txtFname.value = .Cells(rng.Row, 4).Value
txtMname.value = .Cells(rng.Row, 5).Value

Else: MsgBox "Customer Data Not Found"

End If

End With

End Sub


Thanks again for any advice

--
Mcastee
-----------------------------------------------------------------------
Mcasteel's Profile: http://www.excelforum.com/member.php...fo&userid=1569
View this thread: http://www.excelforum.com/showthread.php?threadid=27430


Ron de Bruin

how do I return a row number?
 
You have it in your code

rng.row = the row with the Social Security Number

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Mcasteel" wrote in message ...

-Thanks Ron, its a great clue for me.-

Let me expand a little:

Now I want to know the row number of a given row. What Im doing is
searching customer records for a specific Social Security Number. Once
I find the customer number, want to know what row that social security
number is in so I can select the range and delete or update the
customer record.

Any suggestions?

_My_Code:_
Dim rng As Range

With Worksheets(1)
Set rng = .Columns(6).Find(txtCustSSN.Text)

If Not rng Is Nothing Then
'Populate frmCustLookup with Customer Information
txtLname.value = .Cells(rng.Row, 3).Value
txtFname.value = .Cells(rng.Row, 4).Value
txtMname.value = .Cells(rng.Row, 5).Value

Else: MsgBox "Customer Data Not Found"

End If

End With

End Sub


Thanks again for any advice.


--
Mcasteel
------------------------------------------------------------------------
Mcasteel's Profile: http://www.excelforum.com/member.php...o&userid=15698
View this thread: http://www.excelforum.com/showthread...hreadid=274302





All times are GMT +1. The time now is 02:04 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com