seddur
Altın Üye
- Katılım
- 12 Nisan 2012
- Mesajlar
- 531
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
- Altın Üyelik Bitiş Tarihi
- 18-12-2024
Merhaba.Aşağıdaki kod ile Fiyatlar sayfası "A" sutunundaki veriyi textbox1'deki değere göre değiştiriyorum ancak "B" sutununda bulunan Fiyatı textbox2'deki değere göre değiştiremiyorum.Veriler Listbox1'de görüntüleniyor.Yardımcı olursanız sevinirim.
Dim s1 As Worksheet
Dim a As Integer
Set s1 = Sheets("Fiyatlar")
For a = 1 To s1.[a1048576].End(xlUp).Row
If s1.Cells(a, 1) = ListBox1.List(ListBox1.ListIndex, 0) Then
s1.Cells(a, 1) = UserForm1.TextBox1
s1.Cells(a, 2) = UserForm1.TextBox2'çalışmayan satır
End If
Next:
Dim s1 As Worksheet
Dim a As Integer
Set s1 = Sheets("Fiyatlar")
For a = 1 To s1.[a1048576].End(xlUp).Row
If s1.Cells(a, 1) = ListBox1.List(ListBox1.ListIndex, 0) Then
s1.Cells(a, 1) = UserForm1.TextBox1
s1.Cells(a, 2) = UserForm1.TextBox2'çalışmayan satır
End If
Next:
Ekli dosyalar
-
15 KB Görüntüleme: 13