Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Display all cells values of that row from where a cell value retri
Hi All,
I'm a baby to Excel Programming. But I've to programme Excel 2003 work book in order that if sth is typed in the text box control. The code searches all the worksheets and displays the value in the label control. I've a textbox control, label control and a command button control in Sheet 1 Now with the below mentioned codes I suceeded to retrieve a cell value in a lable control. But the problem is, I've no idea to display all the cells value of that from where the cell in a row, a data was retrieved. Any Idea!! Please Help!! SOS Please consider!! Private Sub cmdbtn1_Click() Dim Sh As Worksheet Dim FoundIt As Boolean d = "A1: A5000" Let c = txtbx1.Value For Each Sh In ActiveWorkbook.Worksheets With Sh.Range(d) Set b = .Find(c, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows) If c = "" Then MsgBox "You haven't typed anything in the Search Box" Exit Sub ElseIf Not b Is Nothing Then firstAddress = b.Address lbl1.Caption = b Do txtbx2.Value = c Set b = .FindNext(b) FoundIt = True Loop While Not b Is Nothing And b.Address < firstAddress End If End With Next If Not (FoundIt) Then MsgBox "Data not found!!" End If End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Combine and display values in range in 1 cell but skip blank cells | Excel Worksheet Functions | |||
some cells display formulas, some display values | Excel Discussion (Misc queries) | |||
Display all values in other cells with no duplicates | Excel Discussion (Misc queries) | |||
display formula instead of its values in some cells | Excel Worksheet Functions | |||
Shortcut key to display change the display from displaying cell values to cell formulae | Excel Programming |