combobox1 ile seçilen satırdaki rakamı artırma

bilisim2010

Altın Üye
Katılım
2 Nisan 2011
Mesajlar
85
Excel Vers. ve Dili
office 2007 tr
Altın Üyelik Bitiş Tarihi
17-12-2025
merhaba combobox ile sayfanın ı2 hücresinden seçtiğim satırdaki değeri textboxdan artırıyorum kod aşağıda. ancak kod artarken sayfadaki artmıyor. birde combobox ile seçtiğim 2. satırdaki yani ı3 deki rakamı da artırsın bu buton tabiki seçtikten sonra seçmeden önce değil. mantık şu

combobox1 ile ı2 deki 1000 sayısını textbox1 e çağırıyorum ve bir buton ile bu rakamı +1 yükseltiyorum. bunun hem textbox1 de hemde sayfadaki aynı hücrede artmasını yapmaya çalışıyorum. [ı2] = TextBox1.Text bu kodu yazınca istediğim oluyor ama TextBox2 = Sheets("ALİS").Cells(ComboBox1.ListIndex + 2, "I") ile combobox1 den seçtiğim 2. satırdakini değişince sayfadaki ı2 artıyor sadece. bana ı3 ün artmasıı gerekiyor.

Private Sub CommandButton2_Click()
Dim a
Dim i As Integer
a = Split(TextBox2.Value, "-")
a(UBound(a)) = Val(a(UBound(a))) + 1
For i = 0 To UBound(a)
If i = 0 Then
TextBox2.Value = a(i)
Else
TextBox2.Value = TextBox2.Value & "-" & Format(a(i), "0000")
End If
Next i
End Sub
 

muhasebeciyiz

Altın Üye
Katılım
10 Şubat 2006
Mesajlar
657
Excel Vers. ve Dili
Office 2016
64 Bit
Altın Üyelik Bitiş Tarihi
21-12-2027
Siz CommandButton2_Click olayında, ComboBox1 ile seçtiğiniz değere göre hem I2 hem de I3 hücresindeki rakamı artırmak istiyorsunuz

Private Sub CommandButton2_Click()
Dim sayi1 As Double
Dim sayi2 As Double

If ComboBox1.ListIndex >= 0 Then
TextBox1.Text = Sheets("ALİS").Cells(ComboBox1.ListIndex + 2, "I").Value
End If

sayi1 = CDbl(TextBox1.Text)
sayi1 = sayi1 + 1
TextBox1.Text = sayi1
Sheets("ALİS").Cells(ComboBox1.ListIndex + 2, "I").Value = sayi1

sayi2 = CDbl(TextBox2.Text)
sayi2 = sayi2 + 1
TextBox2.Text = sayi2
Sheets("ALİS").Cells(ComboBox1.ListIndex + 3, "I").Value = sayi2
End Sub

  1. ComboBox1'den seçilen değeri alır ve TextBox1'e yazar.
  2. TextBox1'deki değeri 1 artırır ve hem TextBox1'e hem de ilgili hücreye (I2) yazar.
  3. TextBox2'deki değeri 1 artırır ve hem TextBox2'ye hem de ilgili hücreye (I3) yazar.
Bu şekilde, hem I2 hem de I3 hücresindeki değerlerin artmasını sağlayabilirsiniz.

Deneyiniz
 

bilisim2010

Altın Üye
Katılım
2 Nisan 2011
Mesajlar
85
Excel Vers. ve Dili
office 2007 tr
Altın Üyelik Bitiş Tarihi
17-12-2025
Siz CommandButton2_Click olayında, ComboBox1 ile seçtiğiniz değere göre hem I2 hem de I3 hücresindeki rakamı artırmak istiyorsunuz

Private Sub CommandButton2_Click()
Dim sayi1 As Double
Dim sayi2 As Double

If ComboBox1.ListIndex >= 0 Then
TextBox1.Text = Sheets("ALİS").Cells(ComboBox1.ListIndex + 2, "I").Value
End If

sayi1 = CDbl(TextBox1.Text)
sayi1 = sayi1 + 1
TextBox1.Text = sayi1
Sheets("ALİS").Cells(ComboBox1.ListIndex + 2, "I").Value = sayi1

sayi2 = CDbl(TextBox2.Text)
sayi2 = sayi2 + 1
TextBox2.Text = sayi2
Sheets("ALİS").Cells(ComboBox1.ListIndex + 3, "I").Value = sayi2
End Sub

  1. ComboBox1'den seçilen değeri alır ve TextBox1'e yazar.
  2. TextBox1'deki değeri 1 artırır ve hem TextBox1'e hem de ilgili hücreye (I2) yazar.
  3. TextBox2'deki değeri 1 artırır ve hem TextBox2'ye hem de ilgili hücreye (I3) yazar.
Bu şekilde, hem I2 hem de I3 hücresindeki değerlerin artmasını sağlayabilirsiniz.

Deneyiniz
çok teşekkürler çok işime yaradı allah razı olsun
 
Üst