excelde sayaç yapılışı

[bilisim2010]

merhaba textbox1 e comboboxdan 1000 rakam çekiyorum bu çektiğim rakamın üzerine diğer bir textbox2 ye kaç yazarsam 1000 in üzerine okadar rakam eklesini nasıl yapabilirim?

 

[muhasebeciyiz]

Dim a
Dim i As Integer
Dim addedValue As Long

Dim currentValue As Long
currentValue = Val(TextBox1.Value)
addedValue = Val(TextBox2.Value)

If addedValue < 0 Then
MsgBox "Negatif değer eklenemez!", vbExclamation
Exit Sub
End If
currentValue = currentValue + addedValue

TextBox1.Value = currentValue
a = Split(TextBox2.Value, "-")
a(UBound(a)) = Val(a(UBound(a))) + addedValue

TextBox2.Value = ""

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

sat = ComboBox1.ListIndex + 2
Cells(sat, "ı").Select
Mutlu = Range("A65536").End(3).Row + 2
Cells(sat, "ı") = TextBox2.Text

Deneyiniz

 

[bilisim2010]

UserForm'un içinde şu kodu yazın:

Eğer sadece TextBox1'e yazılmış olan 1000'in üzerine TextBox2'deki değeri eklemek istiyorsanız, aşağıdaki gibi bir işlem yapabilirsiniz:

Private Sub CommandButton1_Click()
Dim sayi1 As Double
Dim sayi2 As Double
Dim toplam As Double

If IsNumeric(TextBox1.Value) And IsNumeric(TextBox2.Value) Then
sayi1 = CDbl(TextBox1.Value)
sayi2 = CDbl(TextBox2.Value)
toplam = sayi1 + sayi2
TextBox1.Value = toplam
MsgBox "Yeni toplam: " & toplam
Else
MsgBox "Lütfen her iki kutuya da geçerli birer sayı girin.", vbExclamation
End If
End Sub

TextBox2'ye girilen değeri alır, 1000 ile toplar ve sonucu TextBox1'e yazar. Ayrıca, TextBox2'ye girilen değerin geçerli bir sayı olup olmadığını kontrol eder ve geçerli değilse bir uyarı mesajı gösterir.

Private Sub CommandButton1_Click()
Dim sabitDeger As Double
Dim sayi2 As Double
Dim toplam As Double

sabitDeger = 1000
sayi2 = Val(TextBox2.Value)

If IsNumeric(TextBox2.Value) Then
toplam = sabitDeger + sayi2
TextBox1.Value = toplam
MsgBox "Yeni toplam: " & toplam
Else
MsgBox "Lütfen TextBox2'ye geçerli bir sayı girin.", vbExclamation
End If
End Sub

Deneyiniz

hocam buton ile değil ben diğer textbox a yazdıgımla sabit sayinin üzerine koydurtmak istiyorum zaten yukarıda da textbox2 ye kaç yazarsam 1000 in üzerine okadar rakam eklesini nasıl yapabilirim? demişim şöyle düşünün 2 tane textbox var ortada birinde 1000 yazıyor diğeri boş boş olana 100 yazdım entere bastım 1000 olan 1100 oldu böyle.

 

[bilisim2010]

UserForm'un içinde şu kodu yazın:

Eğer sadece TextBox1'e yazılmış olan 1000'in üzerine TextBox2'deki değeri eklemek istiyorsanız, aşağıdaki gibi bir işlem yapabilirsiniz:

Private Sub CommandButton1_Click()
Dim sayi1 As Double
Dim sayi2 As Double
Dim toplam As Double

If IsNumeric(TextBox1.Value) And IsNumeric(TextBox2.Value) Then
sayi1 = CDbl(TextBox1.Value)
sayi2 = CDbl(TextBox2.Value)
toplam = sayi1 + sayi2
TextBox1.Value = toplam
MsgBox "Yeni toplam: " & toplam
Else
MsgBox "Lütfen her iki kutuya da geçerli birer sayı girin.", vbExclamation
End If
End Sub

TextBox2'ye girilen değeri alır, 1000 ile toplar ve sonucu TextBox1'e yazar. Ayrıca, TextBox2'ye girilen değerin geçerli bir sayı olup olmadığını kontrol eder ve geçerli değilse bir uyarı mesajı gösterir.

Private Sub CommandButton1_Click()
Dim sabitDeger As Double
Dim sayi2 As Double
Dim toplam As Double

sabitDeger = 1000
sayi2 = Val(TextBox2.Value)

If IsNumeric(TextBox2.Value) Then
toplam = sabitDeger + sayi2
TextBox1.Value = toplam
MsgBox "Yeni toplam: " & toplam
Else
MsgBox "Lütfen TextBox2'ye geçerli bir sayı girin.", vbExclamation
End If
End Sub

Deneyiniz

hocam kodunuzu aşağıdaki kodlarıma uyarlarsanız çok iyi olur böylece hem seçtirip hem çağırıp hem sayfaya bağlayıp hemde arttırmış olacağım. aşağıdaki kodlar ile artırıyorum ama val ubound a ne yazmışsam onu koyuyor üstüne ben boş olan textboxuma 1 değil 50 yazsam 1000 i 1050 yapmasını istiyorum.

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
sat = ComboBox1.ListIndex + 2
Cells(sat, "ı").Select
Mutlu = Range("A65536").End(3).Row + 2
Cells(sat, "ı") = TextBox2.Text

 

[muhasebeciyiz]

2 nolu mesajı güncelledim.Deneyiniz

Sizin verdiğiniz örnekte, bir TextBox2'ye yazılan değeri alarak, başka bir değeri (örneğin TextBox1'deki 1000 değerini) artırmak istiyorsunuz. TextBox1'deki değer üzerine, TextBox2'ye yazdığınız değeri eklemek için, aşağıdaki adımları takip edebilirsiniz:

TextBox1'deki değeri alıp bir değişkene aktarın.
TextBox2'ye yazdığınız değeri alın.
Her iki değeri toplayın.
Sonucu tekrar TextBox1'e yazdırın.

Eğer TextBox1'deki değer sayı formatında değilse, Val fonksiyonuyla sayıya dönüştürme işlemi yapmanız önemli.