Kendi fonksiyonumdaki hata nedir?

[YUSUF44]

Yalnız şunu hatırlatayım: Bu kodlar H sütununa HAZIR yazıldığında çalışır. Eğer önce HAZIR yazıp sonra model ve adet bilgisini hücrelere yazarsanız kodlar çalışmaz. Çalıştırmak için tekrar HAZIR yazmanız gerekir.

 

[canberkt]

Yusuf bey merhabalar tekrardan, ben yardımcı olduğunuz koda biraz eklemeler yaptım. Bir message box çıkartmaya çalışıyorum. Bu "HAZIR" yazdığım yerdeki sütunu "STOKTAN INILDI" yaptığımda (STOKTAN INILDI diyince yeni yaptığım başka bir tabloda HCU ların stoğunu adet kadar otomatik düşüyor) "STOKTAN DÜŞÜLECEK EMİN MİSİN?" diye sormasını istiyorum. Forumu biraz araştırdım ama yapamadım. Aşağıdaki Kod "STOKTAN İNİLDİ" yazısını altığında gördüğünüz üzere stoktan düşüyor. Messagebox ı nereye ve nasıl ekeleyebiliriz?

If Intersect(Target, [H3:H200]) Is Nothing Then Exit Sub
If Target = "STOKTAN INILDI" Then
Select Case Target.Offset(0, -4)
Case Is = "HCU-250"
s2.[G10] = s2.[G10] - Target.Offset(0, -1)
s2.[G18] = s2.[G18] - Target.Offset(0, -1)
Case Is = "HCU-250E-500"
s2.[G11] = s2.[G11] - Target.Offset(0, -1)
s2.[G20] = s2.[G20] - Target.Offset(0, -1)
Case Is = "HCU-250E-750"
s2.[G12] = s2.[G12] - Target.Offset(0, -1)
s2.[G20] = s2.[G20] - Target.Offset(0, -1)
Case Is = "HCU-250WH"
s2.[G13] = s2.[G13] - Target.Offset(0, -1)
s2.[G18] = s2.[G18] - Target.Offset(0, -1)
Case Is = "HCU-400"
s2.[G14] = s2.[G14] - Target.Offset(0, -1)
s2.[G19] = s2.[G19] - Target.Offset(0, -1)
Case Is = "HCU-400E-1000"
s2.[G15] = s2.[G15] - Target.Offset(0, -1)
s2.[G21] = s2.[G21] - Target.Offset(0, -1)
Case Is = "HCU-400E-1250"
s2.[G16] = s2.[G16] - Target.Offset(0, -1)
Case Is = "HCU-400WH"
s2.[G17] = s2.[G17] - Target.Offset(0, -1)

End Select

 

[YUSUF44]

Aşağıdaki gibi dener misiniz?

If Intersect(Target, [H3:H200]) Is Nothing Then Exit Sub
If Target = "STOKTAN INILDI" Then
    uyar = MsgBox("STOKTAN DÜŞÜLECEK EMİN MİSİN?", vbYesNo)
    If uyar = vbYes Then
        Select Case Target.Offset(0, -4)
            Case Is = "HCU-250"
                s2.[G10] = s2.[G10] - Target.Offset(0, -1)
                s2.[G18] = s2.[G18] - Target.Offset(0, -1)
            Case Is = "HCU-250E-500"
                s2.[G11] = s2.[G11] - Target.Offset(0, -1)
                s2.[G20] = s2.[G20] - Target.Offset(0, -1)
            Case Is = "HCU-250E-750"
                s2.[G12] = s2.[G12] - Target.Offset(0, -1)
                s2.[G20] = s2.[G20] - Target.Offset(0, -1)
            Case Is = "HCU-250WH"
                s2.[G13] = s2.[G13] - Target.Offset(0, -1)
                s2.[G18] = s2.[G18] - Target.Offset(0, -1)
            Case Is = "HCU-400"
                s2.[G14] = s2.[G14] - Target.Offset(0, -1)
                s2.[G19] = s2.[G19] - Target.Offset(0, -1)
            Case Is = "HCU-400E-1000"
                s2.[G15] = s2.[G15] - Target.Offset(0, -1)
                s2.[G21] = s2.[G21] - Target.Offset(0, -1)
            Case Is = "HCU-400E-1250"
                s2.[G16] = s2.[G16] - Target.Offset(0, -1)
            Case Is = "HCU-400WH"
                s2.[G17] = s2.[G17] - Target.Offset(0, -1)
        End Select
    End If
End If

 

[canberkt]

işe yaradı yusuf bey, çok teşekkür ederim. Eğer NO' ya basarlarsa işlemi de iptal ettirdim çok sağolun.