Veri değiştirme

[seddur]

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:

 

[Korhan Ayhan]

Fiyat sayfada değişiyor mu onu kontrol ediniz.

 

[seddur]

Fiyat sayfada değişmiyor.Sayfada değişmeyince Listbox1 de de değişmiyor.

 

[Korhan Ayhan]

Bu durumda resim yerine örnek dosya paylaşmanız daha hızlı yanıt almanızı sağlayacaktır.

 

[seddur]

Dosya ektedir.

 

[YUSUF44]

Öncelikle Fiyatlar sayfasında O1 hücresine SOĞUK İÇECEKLER yazın, Q1:R9 aralığındaki içecekleri Q2:R10 aralığına kaydırın ve Q1 hücresine de SICAK İÇECEKLER başlığını yazın.

Userformunuzun kod bölümündeki tüm kodları aşağıdakilerle değiştirin:

Option Explicit

Private Sub ComboBox1_Change()
Dim s1 As Worksheet
Dim i, sonsut, sonsat, sut As Integer
Set s1 = Sheets("Fiyatlar")
sonsut = s1.Cells(1, Columns.Count).End(xlToLeft).Column
sut = WorksheetFunction.Match(ComboBox1.Value, s1.Range("1:1"), 0)
sonsat = s1.Cells(Rows.Count, sut).End(3).Row
ListBox1.Clear
For i = 2 To sonsat
    ListBox1.AddItem
    ListBox1.List(ListBox1.ListCount - 1, 0) = s1.Cells(i, sut)
    ListBox1.List(ListBox1.ListCount - 1, 1) = s1.Cells(i, sut + 1)
Next
End Sub

Private Sub CommandButton1_Click()
Dim s1 As Worksheet
Dim i, sonsut, sonsat, sut As Integer
Set s1 = Sheets("Fiyatlar")
sonsut = s1.Cells(1, Columns.Count).End(xlToLeft).Column
sut = WorksheetFunction.Match(ComboBox1.Value, s1.Range("1:1"), 0)
sonsat = s1.Cells(Rows.Count, sut).End(3).Row
s1.Cells(ListBox1.ListIndex + 2, sut) = TextBox1.Text
s1.Cells(ListBox1.ListIndex + 2, sut + 1) = TextBox2.Text * 1
ListBox1.Clear
For i = 2 To sonsat
    ListBox1.AddItem
    ListBox1.List(ListBox1.ListCount - 1, 0) = s1.Cells(i, sut)
    ListBox1.List(ListBox1.ListCount - 1, 1) = s1.Cells(i, sut + 1)
Next
End Sub

Private Sub CommandButton2_Click()
Dim s1 As Worksheet
Set s1 = Sheets("Anasayfa")
If s1.Cells(2, 1) = 1 Then
    CommandButton3.BackColor = RGB(255, 190, 0)
    CommandButton3.ForeColor = RGB(0, 0, 0)
End If
End Sub

Private Sub CommandButton3_Click()
Dim s1 As Worksheet
Dim i As Variant
Set s1 = Sheets("Anasayfa")
s1.Range("A2") = CommandButton3.Caption
CommandButton3.BackColor = RGB(0, 102, 102)
End Sub

Private Sub ListBox1_Click()
TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
End Sub

Private Sub UserForm_Activate()
Dim s1 As Worksheet
Dim i As Integer
Dim sonsut As Integer

Set s1 = Sheets("Fiyatlar")
sonsut = s1.Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To sonsut Step 2
    ComboBox1.AddItem s1.Cells(1, i)
Next
ListBox1.ColumnCount = 2
ListBox1.BackColor = RGB(255, 204, 0)
ListBox1.ColumnWidths = "130;30"
ListBox1.Font.Bold = True
ListBox1.Font.Name = "calibri"
ListBox1.Font.Size = 13
End Sub