Posts by Baski007

can i get any other example for getting row..like listbox populated after search as done to get the row number.

Hi all,

I need a example program for finding a row number in a sheet from selected item of a list box to add a data into the specific column into the sheet.

Hi all,

The following program shows as error on invalid property value. i tried out but cant find the exact error in that. I have to search the value in column x and have to display the value with that column R in the listbox.

Private Sub textbox1_Change()
Dim i As Long
Dim a As Integer

Me.TextBox1.Text = StrConv(Me.TextBox1.Text, vbProperCase)
Me.ListBox1.Clear
For i = 2 To Application.WorksheetFunction.CountA(Sheet2.range("X:X"))
a = Len(Me.TextBox1.Text)
If Left(Sheet2.Cells(i, 24).value, a) = Left(Me.TextBox1.Text, a) Then
Me.ListBox1.AddItem Sheet2.Cells(i, 24).value

Me.ListBox1.List(ListBox1.ListCount - 1, 24) = Sheet2.Cells(i, 18).value
End If
Next i

End Sub

Hi sir,

find the attached file it is the example of the above command. In sheet 1 at column A i have some multiple values so i have to store the data in column B & C with respect to that find number of multiple values. In that command i can store data in 1 row and i cant find the next same values in that column.

Hi all,

From the below code i cannot get the next row of the column for adding data to another row with having same values in the row. i have tried with command its not showing but there was some mistake inside the command for next getting the next row of column having same value and storing on the row. kindly suggest some code.

Private Sub commandbutton1_click()
Dim prno As String
Dim pono As String
Dim podate As String
Dim rng As range
Dim X As Integer
Dim r As range
Dim rn As range



 prno = TextBox1.Text
 
 X = 2

             If rng Is Nothing Then
             Set rng = Sheet2.Columns("X:X").Find(what:=prno, SearchOrder:=xlByRows)
             Set r = rng
             Else
             Set r = Sheet2.Columns("X:X").Find(what:=prno, after:=rng, SearchOrder:=xlByRows)
             
             End If
            If r Is Nothing Then
        Else
        For Each rn In r
        rownumber = rng.Row
        pono = TextBox2.Text
        Sheet2.Cells(rownumber, 25).value = pono
        
        podate = TextBox3.Text
        Sheet2.Cells(rownumber, 26).value = podate
        X = X + 1
Next rn
End If
End Sub

Hi all,

can suggest a additional program for adding data into the sheet by getting index value of the multi selected columns in list box and by using text box adding same data into the selected multi index row number into the sheet. the below program is for only for single row nee program for multi selected values and adding values

Private Sub CommandButton1_Click()

Dim rownum As Long

 rownum = Me.ListBox1.ListIndex + 2

 With Sheet2
 .Cells(rownum, 24).value = TextBox1.value

  
End With

End Sub