Buton ile tabloya giriş yapma

[winstoncash]

Merhaba. Ekteki örnek dosyada parça listesi var. sağ taraftaki alanda ise ekle ve çıkar butonlarına bastığımda oradaki sayıyı ilgili parçanın stok miktarına (D sütunu) eklemesini/çıkarmasını istiyorum. kod yazmayı denedim ama beceremedim maalesef. yardımcı olabilirseniz çok sevinirim.

 

[AdemCan]

Merhaba, sayfa1 kod penceresine ekleyiniz.

Private Sub CommandButton1_Click()
Dim s As Long, r As Long

If Range("I5").Value = "" Or Range("J5").Value = "" Then
    MsgBox "Parça ve Stoğa Giriş bilgileri boş olmamalı!", vbInformation, ""
    Exit Sub
End If

If Not IsNumeric(Range("J5").Value) Then
    MsgBox "Stoğa Giriş bilgisi için sayısal değer yazınız.", vbInformation, ""
    Range("J5").Value = Empty
    Exit Sub
End If

s = WorksheetFunction.CountIf(Range("A:A"), Range("I5"))
If s > 0 Then
    r = Range("A:A").Find(What:=Range("I5")).Row
    Range("D" & r).Value = Range("D" & r).Value + Range("J5").Value
End If
End Sub

Private Sub CommandButton2_Click()
Dim s As Long, r As Long

If Range("I5").Value = "" Or Range("K5").Value = "" Then
    MsgBox "Parça ve Stoktan Çıkış bilgileri boş olmamalı!", vbInformation, ""
    Exit Sub
End If

If Not IsNumeric(Range("K5").Value) Then
    MsgBox "Stoktan Çıkış bilgisi için sayısal değer yazınız.", vbInformation, ""
    Range("K5").Value = Empty
    Exit Sub
End If

s = WorksheetFunction.CountIf(Range("A:A"), Range("I5"))
If s > 0 Then
    r = Range("A:A").Find(What:=Range("I5")).Row
    Range("D" & r).Value = Range("D" & r).Value - Range("K5").Value
End If
End Sub

 

[winstoncash]

Merhaba, sayfa1 kod penceresine ekleyiniz.

Private Sub CommandButton1_Click()
Dim s As Long, r As Long

If Range("I5").Value = "" Or Range("J5").Value = "" Then
    MsgBox "Parça ve Stoğa Giriş bilgileri boş olmamalı!", vbInformation, ""
    Exit Sub
End If

If Not IsNumeric(Range("J5").Value) Then
    MsgBox "Stoğa Giriş bilgisi için sayısal değer yazınız.", vbInformation, ""
    Range("J5").Value = Empty
    Exit Sub
End If

s = WorksheetFunction.CountIf(Range("A:A"), Range("I5"))
If s > 0 Then
    r = Range("A:A").Find(What:=Range("I5")).Row
    Range("D" & r).Value = Range("D" & r).Value + Range("J5").Value
End If
End Sub

Private Sub CommandButton2_Click()
Dim s As Long, r As Long

If Range("I5").Value = "" Or Range("K5").Value = "" Then
    MsgBox "Parça ve Stoktan Çıkış bilgileri boş olmamalı!", vbInformation, ""
    Exit Sub
End If

If Not IsNumeric(Range("K5").Value) Then
    MsgBox "Stoktan Çıkış bilgisi için sayısal değer yazınız.", vbInformation, ""
    Range("K5").Value = Empty
    Exit Sub
End If

s = WorksheetFunction.CountIf(Range("A:A"), Range("I5"))
If s > 0 Then
    r = Range("A:A").Find(What:=Range("I5")).Row
    Range("D" & r).Value = Range("D" & r).Value - Range("K5").Value
End If
End Sub

Hocam çok teşekkür ederim, epey uğraşmışsınız. Elinize sağlık.

 

[AdemCan]

Rica ederim, kolay gelsin.