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
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