boş hücre var ise...

[karakoc39]

merhabalar
formda aradım fakat kendime uygun formül bulamıyorum...
excelimde altta birden çok sekme ( çalışma kitabı )mevcut..
1-2-3 (çalışma kitabı )
1 nolu sekmede belirtilen hücreler boş ise 2 nolu sekmeye geçmesin...
seçili hücrelerden hangisi boş ise uyarı versin...
örn:
D8 Hücresi boş-üretim siparişi yazınız..
yardımlarınızı bekliyorum..
bu durum diğer sekmelerede uygulanacak...
teşekkürler..

 

[hamitcan]

Aşağıdaki kodu, ThisWorkBook kısmına ekleyin. Kod, Sayfa1'de d8 hücresi boş ve Sayfa2 seçildiğinde çalışır.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Sayfa2" Then
        If [d8] = "" Then MsgBox "D8 hücresini doldurmalısınız"
        Sheets("Sayfa1").Activate
        [d8].Select
    End If
End Sub

 

[karakoc39]

merhaba Hocam Eline Sağlık...
teşekkür ederim ...
şöyle bir ricam olsa..
alt çalışma kitaplarından geçişte sadece uyarı mesajı verebilirmiyiz.
bu çalışma kitapları 50 sekme kadar var..
sadece uyarı versin diğer sekmeye geçişi yapsın..
şimdiden teşekkürler..

 

[hamitcan]

Bence her sayfadan çıkıldığında boş olan hücreleri tespit etmeliyiz.

 

[karakoc39]

Bence her sayfadan çıkıldığında boş olan hücreleri tespit etmeliyiz.

haklısın hocam ama durum biraz karışık..
listeye müdehale eden kişiler fazla ve sizin gibi düşündük ama olmuyor..
boş olamsı gereken hücrelerde var..
yardımların için sağol..
biz her sekmeye geçişte uyrmak istiyoruz..

 

[karakoc39]

Hocam

MsgBox taki yazı stili rengi veya boyutuda değişebilirmi??

 

[hamitcan]

biz her sekmeye geçişte uyrmak istiyoruz..

Benim kast ettiğimle aynı şey. Bir örnek hazırlayıp size göndereyim.

 

[hamitcan]

Kodu, ThisWorkBook kısmına ekleyin.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
        If Sh.[d8] = "" Then
            MsgBox "D8 hücresini doldurmalısınız"
            Sh.Activate
            [d8].Select
        End If
End Sub

 

[karakoc39]

Teşekkürler....

 

[karakoc39]

Merhaba Hocam
D8 G8 J8 M8 P8 S8 hücreleri doldurmadan sonraki çalışma kitabına ( sekmesine ) geçmesin
istiyoruz..
bu çalışma kitapları 50 sekme kadar var..
bu yazdığınız kodda yazsak bile geçişe izin vermiyor.
yardımlarınızı bekliyorum..
teşekkürler..

 

[hamitcan]

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
        arr = Array("D8", "G8", "J8", "M8", "P8", "S8")
        For i = 0 To UBound(arr)
            If Sh.Range(arr(i)) = "" Then x = x + 1
        Next
        Application.EnableEvents = False
           If x > 0 Then
           MsgBox "Boş alanları doldurmalısınız"
            Sh.Activate
            End If
        Application.EnableEvents = True       
End Sub

 

[karakoc39]

selam
formül sadece d8 için çalışıyor.diğer hücreler boş ve diğer sekmeye geçiyor..

 

[hamitcan]

İlgili satırı aşağıdaki ile değiştirin.

 arr = Array("D8", "G8", "J8", "M8", "P8", "S8")

 

[karakoc39]

hocam denedim eline sağlık çalışıyor..
bir sorum daha var.
alttaki çalışma sayfalarında belirttiğimiz D8, G8, J8, M8, P8, S8 hüclerin boş olması gerekenlerde
mevcut.bu çalışma kitaplarını onlar harici deme sanşımız varmıdır?
teşekkürler..

 

[karakoc39]

örn:
ürünler,çalışan personel,rapor gbi
bunlar sadece bazıları

 

[hamitcan]

Kod satırlarının en başına aşağıdaki satırları ekleyin.

        If Sh.Name = "ürünler" Then Exit Sub
        If Sh.Name = "çalışan personel" Then Exit Sub

 

[karakoc39]

Çok Teşekkür ederim.
emeğine Sağlık..
Şu an istediğim gibi çalışıyor..