Selamlar...
Şimdi data1 sayfamdan arama yaparak verileri ListBox1 e alıyorum.Daha sonra CommandButton2 yi tıklayınca ListBox1 deki verileri data2 sayfamdan sırasıyla arasın bulduğu satırdaki veriyi TextBox2 deki veri ile değiştirsin istiyorum.AMA YAPAMADIM...Kodları şöyle yazmıştım
Private Sub CommandButton2_Click()
Sheets("data2").Select
Range("A2").Select
For a = 2 To 30000
f=ListBox1.ListCount
If Sheets("data2").Cells(a, "Q") = ListBox1.List(f - 1) Then
ActiveCell.Offset(0, 15).Value = TextBox2.Value
End If
Next
End Sub
böyle yazınca sadece ListBox1 deki tek veriyi bulup değiştiriyor diğerlerini değiştirmiyor.
Şimdi data1 sayfamdan arama yaparak verileri ListBox1 e alıyorum.Daha sonra CommandButton2 yi tıklayınca ListBox1 deki verileri data2 sayfamdan sırasıyla arasın bulduğu satırdaki veriyi TextBox2 deki veri ile değiştirsin istiyorum.AMA YAPAMADIM...Kodları şöyle yazmıştım
Private Sub CommandButton2_Click()
Sheets("data2").Select
Range("A2").Select
For a = 2 To 30000
f=ListBox1.ListCount
If Sheets("data2").Cells(a, "Q") = ListBox1.List(f - 1) Then
ActiveCell.Offset(0, 15).Value = TextBox2.Value
End If
Next
End Sub
böyle yazınca sadece ListBox1 deki tek veriyi bulup değiştiriyor diğerlerini değiştirmiyor.