Bir tık ile ekleme yapmak.

[canberkt]

Merhabalar, aşağıda gördüğünüz tabloma bir malzeme ekleme butonu koymaya çalışıyorum. 8. Satırda gördüğünüz HHTR ile başlayan kodu ve yanına adet yazdığımda tabloda o kodlu malzemeyi bulup stock kısmına yazılan adeti eklemesini istiyorum. Yani bu şekilde 8. Satırda HHTR-07-ILF200 yanında 25 yazıyorsa, Malzeme Ekle tuşuna basıldığında 24. Satır 3. sütun -77 + 25 = -52 yazması gerekecek.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Malzeme_Ekle()
    Dim Bul As Range
   
    If Range("A8") <> "" Then
        Set Bul = Range("A:A").Find(Range("A8"), , , xlWhole)
        
        If Not Bul Is nothign Then
            Bul.Offset(, 3) = Bul.Offset(, 3) + Range("B8")
        Else
            MsgBox "Aradığınız malzeme adı bulunamadı!", vbCritical
        End If
        
        Set Bul = Nothing
    End If
End Sub

 

[canberkt]

Deneyiniz.

Option Explicit

Sub Malzeme_Ekle()
    Dim Bul As Range
 
    Set Bul = Range("A:A").Find(Range("A8"), , , xlWhole)
 
    If Not Bul Is nothign Then
        Bul.Offset(, 3) = Bul.Offset(, 3) + Range("B8")
    Else
        MsgBox "Aradığınız malzeme adı bulunamadı!", vbCritical
    End If
 
    Set Bul = Nothing
End Sub

D8 hücresine oradaki adetleri ekliyor sadece.

 

[canberkt]

A8 hücresi de boş iken Ekle tuşuna basınca D2 ye basıyor.

 

[Korhan Ayhan]

Koda o koşulu ekledim. Tekrar deneyiniz.

 

[YUSUF44]

Aşağıdaki kodları commandbutton kodlarına ekleyin. Doayanızı daha önce gördüğümden bende sıkıntı olmadı ama bu tür dosyalarda örnek dosya paylaşırsanız yardımcı olacak kişilerin aynı dosyayı hazırlamak için uğraşmak zorunda bırakmazsınız:

If [A8] = "" Or [B8] = "" Then
    MsgBox "Kod ya da miktar boş olamaz!", vbInformation
    If [A8] = "" Then
        [A8].Select
    ElseIf [B8] = "" Then
        [B8].Select
    End If
Else
    son = Cells(Rows.Count, "A").End(3).Row
    If WorksheetFunction.CountIf(Range("A9:A" & son), [A8]) = 0 Then
        MsgBox [A8] & " kodlu ürün bulunamadı!", vbInformation
        [A8].Select
    Else
        sat = WorksheetFunction.Match([A8], Range("A9:A" & son), 0) + 8
        Cells(sat, "C") = Cells(sat, "C") + [B8]
    End If
End If

Ek: Ben yazana kadar Korhan üstad cevap vermiş.

 

[canberkt]

Korhan bey, Yusuf bey ikinize de çok teşekkür ederim. Yusuf beyin yazdığını uyguladım çok güzel çalıştı, her zamanki gibi elinize emeğinize sağlık