hatalı ise uyarı ver diyemedim

[BarisDagidir]

Merhaba Üstadlarım; aşağıdaki koda hatalı ise uyarı getiremiyorum desteğinizi bekler, iyi çalışmalar dilerim.

* range("y1) = Pivot tablonun süzgeç alanı , combobox1 de seçilen eğer yok ise hata mesajı vermesi gerekiyor ama tüm ürünlere veriyor : (


Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Label10.Width = 1
Sheets("recete_derleme_m").Select
If Not Sheets("recete_derleme_m").Range("y1") = ComboBox1.Value Then
MsgBox ("Bu Ürünü Proje Kullanamazsınız!")
CheckBox1 = False
ComboBox1.Value = ""
TextBox4.Value = ""
t_mkt.Value = ""
Else
Sheets("recete_derleme_m").Range("y1") = ComboBox1.Value
End If

End If
If CheckBox1 = False Then
Label10.Width = 300
Prj1.Value = ""
mtr1.Value = ""

Exit Sub
End If
End Sub

 

[Ömer]

Merhaba,

Doğru anladıysam aşağıda yapı ile doğru sonuca ulaşırsınız.

Private Sub CheckBox1_Click()

    If CheckBox1 = True Then
        Label10.Width = 1
        Sheets("recete_derleme_m").Select
        If Not Sheets("recete_derleme_m").Range("y1") = ComboBox1.Value Then
            CheckBox1 = False
            ComboBox1.Value = ""
            TextBox4.Value = ""
            t_mkt.Value = ""
            MsgBox ("Bu Ürünü Proje Kullanamazsınız!")
            Exit Sub
        End If
    End If

    If CheckBox1 = False Then
        Label10.Width = 300
        Prj1.Value = ""
        mtr1.Value = ""
    End If
    
End Sub

.

 

[BarisDagidir]

Merhabalar; malesef sorunu çözmüyor aslında şunu yapıyor, ürün vermiş olduğu listede olsa dahi hatalı olarak gürüyor....

 

[Ömer]

Örnek dosya eklemenizi rica ederim.

.

 

[BarisDagidir]

Ömer Hocam, aşağıdaki güvenli linkten indirebilir misiniz?
İndirme bağlantısı
https://mageba.wetransfer.com/downloads/4b282197a7a6d0098dfa6f3675d02a7b20170728145435/650b1aa4ee5540fd9fd34f6364ffd90720170728145435/d3b2cb

Start sheet'in de bulunan butondan çalıştırıldığında Ürün/giriş Çıkış ve Stok Giriş userform üzerinde bulunan checkbox ...

 

[Ömer BARAN]

Açılış şifresi olan örnek belge üzerinden destek almanız güç.

 

[BarisDagidir]

Merhabalar; Kusura bakmayın yazmayı unutmuşum. Şifre: stok17

 

[Ömer BARAN]

Merhaba.

Açıkçası sorunuz çok açıklayıcı değil ve sayfalarınız ve kullandığınız formlar da pek anlaşılır gelmedi bana.
Sayfalar ve userformlar arasında gezinti yaparak anlayabildiğim şudur:

Kullanılan Urun_giris adlı form'daki CheckBox1 seçilmiş ve Combobox1'de seçilen değer,
Recete_derleme_M adlı sayfadaki ÖZET TABLO 5'teki seçilmiş bir değer DEĞİLSE
bir uyarı almak istiyorsunuz.

İsteğiniz bu ise;

-- CheckBox1_Click kodu'nda aşağıdaki kırmızı satırların yerine mavi olanları kullanın.

[COLOR="Blue"]If CheckBox1 = False Or ComboBox1 = "" Then Exit Sub
    If ActiveSheet.PivotTables("PivotTable5").PivotFields("Malzeme").PivotItems(ComboBox1.Value).Visible = False Then
        MsgBox "Combobox'tan SEÇİLEN değer," & vbLf & _
                "Recete_derleme_M adlı sayfadaki ÖZET TABLO 5'te" & vbLf & _
                "Aktif değerlerden biri değil", vbCritical, "..:... Ömer BARAN ..::.."
    End If[/COLOR]
        
[COLOR="Red"]'        If Not Sheets("recete_derleme_m").Range("y1") = ComboBox1.Value Then
'            CheckBox1 = False
'            ComboBox1.Value = ""
'            TextBox4.Value = ""
'            t_mkt.Value = ""
'            MsgBox ("Bu Ürünü Proje Kullanamazsınız!")
'            Exit Sub
'        End If[/COLOR]

-- Aynı şekilde Combobox1_Change kodunda da aşağıdaki mavi satırları Set ws = Worksheets("data") satırından hemen sonra ekleyin .
.

[COLOR="Blue"]If CheckBox1 = False Or ComboBox1 = "" Then Exit Sub
    If ActiveSheet.PivotTables("PivotTable5").PivotFields("Malzeme").PivotItems(ComboBox1.Value).Visible = False Then
        MsgBox "Combobox'tan SEÇİLEN değer," & vbLf & _
                "Recete_derleme_M adlı sayfadaki ÖZET TABLO 5'te" & vbLf & _
                "Aktif değerlerden biri değil", vbCritical, "..:... Ömer BARAN ..::.."
    End If[/COLOR]

 

[BarisDagidir]

Merhabalar Ömer Hocam; İstek üzerine değişme uğradığı için çok karışık oldu malesef haklısınız... bu nedenle aşağıdaki gibi değiştirdim .. ilginizden dolayı teşekkürler iyi çalışmalar.

Private Sub CheckBox4_Click()
If CheckBox4 = True Then
Me.Label10.Top = 156
Me.ComboBox2.Enabled = True
Sheets("recete_derleme_m").Select
Me.ComboBox1.RowSource = "Recete_derleme_M!x5:x" & [Recete_derleme_M!x1000000].End(3).Row

End If
If CheckBox4 = False Then
Me.ComboBox1.RowSource = "veri!f2:f" & [Recete_derleme_M!f1000000].End(3).Row
Me.ComboBox1.Value = ""
Me.ComboBox2.Enabled = False
Me.Label10.Top = 120
Me.TextBox4.Value = ""
Me.t_mkt.Value = ""
Me.mtr1.Value = ""
Me.Prj1.Value = ""

End If
End Sub

Private Sub ComboBox1_Change()
Dim ws As Worksheet
Set ws = Worksheets("data")

If Me.ComboBox1.Value = "Paslanmaz sac 1,4404 1,5 mm" Then
Me.TextBox1.Visible = True
Me.TextBox2.Visible = True
Me.TextBox3.Visible = True
Me.Label15.Visible = True
Me.Label16.Visible = True
Me.Label17.Visible = True
Me.Label22.Visible = True
Else
Me.TextBox1.Visible = False
Me.TextBox2.Visible = False
Me.TextBox3.Visible = False
Me.Label15.Visible = False
Me.Label16.Visible = False
Me.Label17.Visible = False
Me.Label22.Visible = False
Exit Sub
End If

End Sub

Private Sub mtr1_Change()
Sheets("recete_derleme_M").PivotTables("PivotTable4").PivotCache.Refresh
Sheets("recete_derleme_m").Range("z2") = Me.ComboBox1.Value
Sheets("recete_derleme_m").Range("aa2") = Me.mtr1.Value
If Sheets("Recete_derleme_M").Range("ab2").Value = "No" Then
Label21.Caption = Sheets("Recete_derleme_M").Range("ac3").Value

MsgBox "Girilen Değer Fazla Lütfen Kontrol Ediniz! En Fazla " & Label21.Caption & "    Adet Girebilirsiniz"
Me.mtr1.Value = ""
End If

End Sub