Çözüldü Her Bölüm için Tek Msgbox Gelmesi

Merhaba, E6 hücresi için örnek.

On Error Resume Next satırının üzerine Dim kontrolE As Byte tanımlama satırını ekleyiniz.

E6 için olan bu satırları aşağıda paylaştığım satırlar ile değiştiriniz.
HTML:
Yeni kodlar.
HTML:
Diğer bölümler için de yeni kontrol tanımı yapıp, örneğe göre güncelleyiniz.

Alparslan' Alıntı:

Merhaba, E6 hücresi için örnek.

On Error Resume Next satırının üzerine Dim kontrolE As Byte tanımlama satırını ekleyiniz.

E6 için olan bu satırları aşağıda paylaştığım satırlar ile değiştiriniz.
HTML:

Kod: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Yeni kodlar.
HTML:

Kod: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Diğer bölümler için de yeni kontrol tanımı yapıp, örneğe göre güncelleyiniz.

Genişletmek için tıkla...

Alpaslan bey,
Öncelikle desteğiniz için teşekkür ederim. Benim aslında istediğim eğer yapılabiliyorsa tam olarak şöyle. Örneğin kodu çalıştırdığınızda 1 Eylül için 3 kere Msgbox geliyor. 65 Planlandı, 68 Planlandı ve 72 Planlandı diye. Ben sadece son hali olan 72 planlandının gelmesi çabası içindeyim. Yukardaki kodla sadece 65 Planlandı geliyor. Bunun yapılabilmesi mümkün mü ? Desteğiniz için teşekkür ederim.

Bu işlem için mesaj kutusu içeren satırları döngünün dışına çıkartmanız gerekir.

Örnek olarak E6 hücresi için olan bölümü Next satırından sonra yazınız.

Alparslan' Alıntı:

Bu işlem için mesaj kutusu içeren satırları döngünün dışına çıkartmanız gerekir.

Örnek olarak E6 hücresi için olan bölümü Next satırından sonra yazınız.
Ekli dosyayı görüntüle 12010

Genişletmek için tıkla...

Alpaslan bey, O şekilde yapamadım. Bende ilk gönderdiğiniz tasarımı değiştirerek yapmayı denedim. Ancak atla: kısmını ikinci kez yazınca hata aldım. Örneğin aşağıdaki gibi;

If kontrolE = 1 Then GoTo atla
If Sheets("Sayfa1").Range("e6") > 50 Then
MsgBox Sheets("Sayfa1").Range("c1") & " tarihinde " & Sheets("Sayfa1").Range("a3") & " bölgesine kapasitenin üzerinde personel planladınız. Bilginize. ", , "Planlama"
kontrolE = 1
End If
atla:

'İlgili günde yönetici sayısı 10 u geçerse uyar.
If kontrolE = 1 Then GoTo atla

If Sheets("Sayfa1").Range("f6") > 10 Then
MsgBox Sheets("Sayfa1").Range("c1") & " tarihinde " & Sheets("Sayfa1").Range("a3") & " bölgesine kapasitenin üzerinde yönetici planladınız. Bilginize.", , "Planlama"
kontrolE = 1

End If
atla:
End If
End If

Yazdığımda aşağıdaki resimdeki hatayı almaktayım. Yardımlarınız ricasıyla.

Çok güzel olmuş elinize, emeğinize sağlık.

Rica ederim.