Makro çakışması yardım

[woodteacher]

Makro sorunu yardım

Merhaba arkadaşlar , sorumla ilgili detayları ekte paylaştım...
worksheet ve workbookta formüller mevcut...

worksheetteki formüllerde sıkıntı yok çalışıyor , fakat woorkbooktaki formüller çalışmıyor..

Method ' Range ' of object ' - worksheet ' failed....hatası veriyor..

Yardımcı olabilirseniz çok sevinirim arkadaşlar..

 

[Murat OSMA]

Onlar formül değil koddur. Çakışma olduğunu nereden anladınız ? Hangi kod satırında hata veriyor ?

ThisWorkbook kod sayfasındaki kodlar benim, dosyanızı eklerseniz bir bakayım.

 

[woodteacher]

Sn.Murat Osma Teşekkür ederim yardımlarınız için

Örnek bir dosya ekledim..

Yardımcı olursan sevinirim....

 

[woodteacher]

Birşey dikkatimi çekti workbooktaki kodun algıladığı kırmızı , Koşullu biçimlendirmenin atadığı kırmızıyı algılamıyor...
koşullu biçimlendirmedeki kod mantığı ekte

 

[woodteacher]

Koşullu biçimlendirmede yapmak istediğim
B10 da değer varsa C10 dan AA10 kadar hücreleri kırmızı yapsın.Hücrelerin içine birşeyler yazdığımda kırmılık kaybolsun...Bunu B.sutununda B10 dan B29 kadar geçerli olsun...
B11 doluysa C11 den AA11 kadar kırmızı yapsın.B29 kadar böyle tanımlı olsun..

Eğer kırmızı hücreler varsa ne yazdırsın nede kayıt işlemi yapsın , sayfa ön izlemede yapmasın..

workbooktaki kodlar aslında bunu sağlıyor fakat uyumsuzluk oldu , bide koşullu biçimlendirmenin atadığı rengi makro görmedi.

 

[woodteacher]

D3 ve D4 de koşullu biçimlendirmeyle hücreyi kırmızıya çevirdim.Fakat hücreye sağ tıklayınca hücrenin rengi beyaz görünüyor....
Bu sorunu çözebilirsem aslında istediğime kavuşacağım

 

[woodteacher]

Yardım lütfen....

 

[woodteacher]

Ana dosyayı eke koydum ,üstatlarımdan yardım bekliyorum....

B10 da değer olduğunda C10 dan AA10 kadar hücreler kırmızı olmasını istiyorum.hücrenin içini doldurduğum zaman kırmızılığın kaybolmasını istiyorum.
Bunu koşullu biçimlendirmeyle yaptım fakat makro tanımadı...
B10 daki uygulamayı aşağı doğru...B2-B3....B29 kadarda uygulasın istiyorum...
Örnek çalışmada bu uygulama var , mevcut makro kodlarıda var..

Çalışmada kırmızı hücre kaldığında , kaydetmesin , yazdırmasın , ön izleme yaptırmasın istiyorum..uyarı versin istiyorum..KIRMIZI HÜCRELERİ DOLDUR şeklinde.

Son noktayı koyamadım , bu listenin oluşması sürecinde yardımları olan tüm arkadaşlara teşekkür ediyorum...
BU konudada yardımlarınızı bekliyorum.

 

[woodteacher]

Herkeze günaydın , geçmiş bayramınız kutlu olsun arkadaşlar...

 

[woodteacher]

Makro sorunu yardım

Arkadaşlar çalışmada sona geldim ,
bahsettiğim konuda yardımcı olabilirseniz çok sevinirim.

 

[Huseyinkis]

Arkadaşlar çalışmada sona geldim ,
bahsettiğim konuda yardımcı olabilirseniz çok sevinirim.

Merhaba Yazdırma ve kaydetme makroları için aşağıdaki kodları denermisiniz.

ThisWorkbook kod kısmına yarlaştirin.

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

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 = -4142 Then
                MsgBox " ..::.. Kırmızı Hücreleri Doldurun ..::.. ", _
                vbInformation + vbMsgBoxRtlReading, "Uyarı !"
                Cancel = True
                Exit Sub
            End If
        Next i
    Set i = Nothing
End Sub

 

[woodteacher]

Sn.Huseyinkis yardımların için teşekkür ederim...
Şöyle bir sıkıntı oldu , verdiğiniz kodun ikisinide yapıştırdığımda hata verdi.
Çalışmada kırmızı olmasa bile yazdırmadı , kayıt yapma imkanıda vermedi..

Yardımlarınız için tekrar tekrar teşekkür ederim...


Örnek çalışmayı eke koyuyorum , bakabilirseniz çok sevinirim..

 

[Huseyinkis]

Ekteki kodlarla tekrar denermisiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    say = WorksheetFunction.CountA(Range("C" & i & ":AA" & i))
            If Cells(i, 2).Value <> "" Then
            If say <> 25 Then
                MsgBox " ..::.. Kırmızı Hücreleri Doldurun ..::.. ", _
                vbInformation + vbMsgBoxRtlReading, "Uyarı !"
                Cancel = True
                Exit Sub
                End If
            End If
        Next i
    Set i = Nothing
 End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
           For i = 10 To 29
         say = WorksheetFunction.CountA(Range("C" & i & ":AA" & i))
            If Cells(i, 2).Value <> "" Then
                If say <> 25 Then
                MsgBox " ..::.. Kırmızı Hücreleri Doldurun ..::.. ", _
                vbInformation + vbMsgBoxRtlReading, "Uyarı !"
                Cancel = True
                Exit Sub
                End If
            End If
        Next i
End Sub

 

[woodteacher]

Sn.Huseyinkis , teşekkür ederim sona yaklaşmak çok güzel bir duygu

Kaydetme işleminde çalıştı fakat , yazdırmama işleminde hata verdi.

Compile error : Next without for

 

[woodteacher]

Sn.Huseyinkis , teşekkür ederim yardımların için
Hallettim sıkıntıyı ,
Yazdırma kodlarında ( For i = 10 To 29 ) eksik ekleyince oldu..

Allah ( c.c. ) yardımcın olsun....

 

[woodteacher]

Bu çalışmanın bu hale gelmesinde başından beri emeği geçen

Sn.Korhan Ayhan
Sn.Murat OSMA
Sn.Huseyinkis
Sn.hamitcan

Hocalarıma teşekkür ederim...
Gönlünüzden ne geçiyorsa ALLAH (c.c.) daha fazlasını versin.