Hücre boş ise uyarı vermesi hk.

[manisali451]

Merhabalar,

İş yerinde kullandığımız bir form var. Normalde A sütununa kod E sütununa miktar J sütununa hurda kodu yazıp kodları doğrula dendiğinde diğer kısımlar macro ile gelmektedir. Ancak bazı bölümler A sütununu doldurup E veya J sütun hücrelerini boş bırakıp öyle gönderebiliyor.

Bu sorunu çözmek için A hücresini doldurup E hücresi boş bırakıldığında "Miktar girmediniz J hücresini boş bırakıldığında “Hurda kodu girmediniz” macro ile uyarılarını verebilir mi ?
A hücresi boş ise uyarı vermesin.

A1 Hücresine kod yazılmış E1 Hücresine miktar yazılmamış ""Miktar girmediniz" A1 Hücresine kod yazılmış J1 Hücresine Hurda kodu yazılmamış "Hurda kodu girmediniz" GİBİ

 

[yanginci34]

Örnek dosya eklerseniz iyi olacak

 

[manisali451]

Örnek dosya eklerseniz iyi olacak

http://dosya.co/peisiy8n9jg3/Yeni_Microsoft_Excel_Worksheet.xlsx.html

Yeni Microsoft Excel Worksheet.xlsx - 12 KB

http://dosya.co/peisiy8n9jg3/Yeni_Microsoft_Excel_Worksheet.xlsx.html?killcode=zlz3exs1jn



Buyrun

 

[manisali451]

Yardım lütfenn...

 

[Korhan Ayhan]

Deneyiniz.

Sub UYAR()
    Dim X As Long, Son As Long
    
    Son = Cells(Rows.Count, 1).End(3).Row
    Cells.EntireRow.Hidden = False
    
    For X = Son To 2 Step -1
        If Cells(X, "E") = "" Or Cells(X, "J") = "" Then
            Say = Say + 1
        Else
            Rows(X).Hidden = True
        End If
    Next
    
    If Say > 0 Then
        MsgBox "E ve J sütununda boş hücreler var. Lütfen kontrol ediniz!", vbCritical
    End If
End Sub

 

[manisali451]

Korhan Bey,

Formun kullanım aralığı A6-A105 arası bölümler bu aralığa kodlarını yazıp formu kullanıyorlar. Bazı bölümler bir kaç satırı kullanıp formu gönderiyor.

İsteğim A6 ya kod yazılmış miktar veya hurda kodu kısmı boş bırakılmış ise macro ile uyarı vermesidir. Örnek olması açısından ilk 3 satırı doldurdum son satırın miktar ve hurda kısmını boş bıraktım. Yazılacak macroyu mevcut macronun altına ekleyeceğim
Önceki macronun çalışması sonrasında a hücresinde kod yazılmış ise miktar veya hurda kodu boş bırakılmış ise uyarı vermesidir. a hücresi boş ise uyarı vermemesi gerekiyor.

http://dosya.co/lmelvobsv90y/HURDA_FORMU_(BZD_02-06FR001).xlsm.html

 

[manisali451]

Deneyiniz.

Sub UYAR()
    Dim X As Long, Son As Long
    
    Son = Cells(Rows.Count, 1).End(3).Row
    Cells.EntireRow.Hidden = False
    
    For X = Son To 2 Step -1
        If Cells(X, "E") = "" Or Cells(X, "J") = "" Then
            Say = Say + 1
        Else
            Rows(X).Hidden = True
        End If
    Next
    
    If Say > 0 Then
        MsgBox "E ve J sütununda boş hücreler var. Lütfen kontrol ediniz!", vbCritical
    End If
End Sub

Korhan bey,
Öncelikler ilginiz için teşekkür ederim. Kodları mevcut macromun altına yapıştırıp çalıştırdım. Sonuç olumsuz oldu. Bu nedenle anlatımımı tekrar yapmak istedim.

 

[manisali451]

Günaydınlar,
Yardımcı olabilecek var mıdır?

 

[manisali451]

Günaydınlar,
Günceldir...

 

[manisali451]

merhabalar,
Günceldir...