formül bozulup elle bir yazı yazıldığını anlayabilme

[osmancig]

AK49 Satırından BT749 hücresine kadar formüller var. Bazı formüller sonuçları uygun olmadığı için elle değiştirilmiş. ben bu elle değiştirilmiş formüllerin olduğu satırlarda A sutununa bir işaret koymak istiyorum.

örnek dosyayı ekledim.

 

[Korhan Ayhan]

Selamlar,

Bu işlemi kod ile yapabiliriz. Aşağıdaki kodu denermisiniz.

Sub ELLE_YAZILMIŞ_DEĞERLERİ_BUL()
    For Each ARALIK In Range("AK49:AR749,AT49:AZ749,BB49:BH749,BJ49:BT749")
    If Not ARALIK.HasFormula And Cells(ARALIK.Row, 1) = "" Then Cells(ARALIK.Row, 1) = "DEĞER ELLE YAZILMIŞ !"
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[Seyit Tiken]

Bu şekilde de beli bir aralıkta formül bulunmayan hücreleri anlayabilirsiniz.

Sub Makro1()
[a1:a100].Interior.ColorIndex = 40
[a1:a100].SpecialCells(xlCellTypeFormulas, 23).Interior.ColorIndex = xlNone
End Sub

 

[osmancig]

sayın KORHAN AYHAN sizin gönderdiğiniz makroyu denedim. işleminiz tamamlanmıştır dedi. hiç birşey anlayamadım. (eğer elle değiştirilmiş hücrelere bir işaret veriyorsa orada koşullu biçimlendirme olduğundan çalışmayacaktır.)benim istediğim elle değiştirilmiş bir hücre bulunan satırın (tabi dosyadaki sorduğum aralıkta (AK49 İLE BT749 ARASINDA)) a sutununa bir işaret versin

sayın SEYİT DİKEN sizin makroyu çalıştırınca RUN TİME ERROR 1004 hiçbir hücre bulunamadı hatası veriyor.

 

[Seyit Tiken]

Aşağıdaki gibi deneyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.HasFormula Then
Target.Interior.ColorIndex = 40
ElseIf Target.HasFormula Then
Target.Interior.ColorIndex = xlNone
End If
End Sub