Hücre rengine göre çıktı alma

[woodteacher]

Kolay gelsin arkadaşlar

Tüm Excel sayfasını düşünelim ( yatayda veya sutunda farketmez )
Hücrelerin herhangi birinde hücre rengi kırmızıysa ÇIKTI ALMASIN

Uyarı versin / KIRMIZI HÜCRELERİ DOLDURUN DİYE

Makro veya başka bir yöntemle yapabilirmiyiz

Yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim...

 

[Murat OSMA]

ThisWorkbook kod sayfasına şu kodları yazıp deneyiniz;

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim i As Range
        For Each i In Sayfa1.Cells.SpecialCells(xlCellTypeBlanks)
            If i.Interior.ColorIndex = 3 Then
                MsgBox " ..::.. Kırmızı Hücreleri Doldurun ..::.. ", _
                vbInformation + vbMsgBoxRtlReading, "Uyarı !"
                Cancel = True
            End If
        Next i
    Set i = Nothing
 End Sub

■ Sadece Sayfa1 için geçerlidir...

 

[woodteacher]

Tamamdır bu iş
Çok teşekkür ederim yardımlarınız için Murat bey...
Saolasınız....

 

[Murat OSMA]

Rica ederim, iyi akşamlar...

 

[woodteacher]

Tekrar yardıma iytiyacım var arkadaşlar

( HEM ÇIKTI ALMASIN HEMDE KAYDETME İŞLEMİ YAPMASIN İSTİYORUM )

Tüm Excel sayfasını düşünelim ( yatayda veya sutunda farketmez )
Hücrelerin herhangi birinde hücre rengi kırmızıysa ÇIKTI ALMASIN ve KAYDETMESİN

Uyarı versin / KIRMIZI HÜCRELERİ DOLDURUN DİYE

Yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim...

 

[woodteacher]

Yokmu arkadaşlar yardımcı olacak birisi....

 

[hamitcan]

Bu koda ek olarak, aşağıdaki kodu da kullanmalısınız.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim i As Range
        For Each i In Sayfa1.Cells.SpecialCells(xlCellTypeBlanks)
            If i.Interior.ColorIndex = 3 Then
                MsgBox " ..::.. Kırmızı Hücreleri Doldurun ..::.. ", _
                vbInformation + vbMsgBoxRtlReading, "Uyarı !"
                Cancel = True
            End If
        Next i
    Set i = Nothing

End Sub

 

[woodteacher]

Arkadaşlar herşeyden önce yardımlarınız için teşekkür ederim...

Şöyle bir sıkıntı oldu
(hücre kırmızı + içi boşken ) kayıt ve yazdırma yapmıyor , fakat hücrenin içi yazılıysa
(hücre kırmızı + içi doluyken ) kayıtta yapıyor , yazdırmada yapıyor...

Benim istediğim hücrenin içi dolu ve boş olsun farketmez
( hücre kırmızıysa ) yazdırmasın , kayıt işlemi yapmasın

Bu konuda yardımcı olursanız sevinirim....Teşekkür ederim

 

[baydeniro]

Sayın woodteacher güzel bir konu açmışsınız. Bu kod ile ilgili çok uğraştım ama sizin belirttiklerinizi yapamadım. Dosyanızı yüklemeniz mümküm mü ?

 

[woodteacher]

Serdar bey şuan ortada bir dosya yok , sadece kurguyu oluşturdum
Arkadaşlara teşekkür ediyorum verdiği kodlar istediğim şeyi yaptı , fakat yukarıda belirttiğim gibi
hücrenin içi doluyken işe yaramadı kodlar....
Bunu çözebilirsek arkadaşların yardımıyla SİPARİŞ FORMU oluşturacağım...
Siparişi doldururken , ürüne ayit tüm bilgileri doldurmasını sağlatacağım..Birşey atlanmasın diye...

 

[hamitcan]

Döngüyü mantığını değiştirmelisiniz. Yani bir aralık belirtmelisiniz, aşağıdaki gibi.

For Each i In Sayfa1.[A1:Z500]