hatalı formül arama

[peleryn]

Merhabalar;

Aktif dosyamı kaydederken tüm dosya içerisinde hata alan (YOK,AD,DEĞER gibi) formüllü bir hücrem var mıdır diye kontrol eden varsa beni bu hücreye gönderen bir kod nasıl yazılabilir?

 

[Ömer]

Merhaba,

Sub HataliFormulBul()
 
    Cells.SpecialCells(xlCellTypeFormulas, 16).Select
 
End Sub

Bu şekilde deneyiniz..

.

 

[peleryn]

Tek seferde tek bir sayfayı kontrol ediyordu.Şu şekilde genişlettim yardımınız için teşekkür ederim Ömer Hocam.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
For i = 1 To Worksheets.Count
If Sheets(i).Visible = False Then GoTo atla
Sheets(i).Select
Cells.SpecialCells(xlCellTypeFormulas, 16).Interior.ColorIndex = 6
atla:
Next i
End Sub

 

[Ömer]

Rica ederim. Ben sayfa olarak algıladığımdan o şekilde yazmıştım.

İyi çalışmalar..

 

[peleryn]

Rica ederim. Ben sayfa olarak algıladığımdan o şekilde yazmıştım.

İyi çalışmalar..

Cevabınızdan farkettim hocam zaten.Siz yolu açtınız ama önemli olan da oydu.Tekrar teşekkür ederim.

Kodun son halini biraz daha değiştirdim.Hatalı hücrenin bulunduğu sayfa adı ve hatalı hücrelerin adresini mesajla veriyor.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
For i = 1 To Worksheets.Count
If Sheets(i).Visible = False Then GoTo atla
Sheets(i).Select
MsgBox Sheets(i).Name & Cells.SpecialCells(xlCellTypeFormulas, 16).Address

atla:
Next i
End Sub

 

[şrars]

ben bunlardan birşey anlamıyorum bunları anlamam için nerden başlamalıyım teşekkür ederim saygılar

 

[peleryn]

ben bunlardan birşey anlamıyorum bunları anlamam için nerden başlamalıyım teşekkür ederim saygılar

Birşeyler yapmaya çalışın,yapamadıklarınızı da buradan arşivden bulmaya ve sorarak cevaplarını öğrenmeye çalışın.Öğrenmek bir hedef değil bir araç olduğu zaman kolay,zevkli ve hızlıdır

 

[şrars]

peleryn usta siz bana bir dosya hazırlamıştınız soruma göre ben o dosyayı gendime gere hazırladım ama formüllerde hata var mı bilmiyorum ne yapmam lazım saygılar