#YOK Hatası verilenlerin toplanma problemi

[k1222]

Merhaba Arkadaşlar.

7-8 sekmeden oluşan bir excel dosyam var. #düşeyara formülü ile veri çekiyorum. Toplama yaparken boş satırlar için #YOK Hatası alıyorum. Bu hataları verdiği için toplama yapamıyorum. Sorunu =EĞERHATA(DÜŞEYARA(C21;'1.sayfa'!$A$3:$H$256;6;YANLIŞ);"") formülüyle aştım ve boş olan yerlere #YOK hatası vermeden boş göstermesi istedim. Bu şekilde toplama işlemini çözdüm.. Fakat her bir sütunum da ayrı ayrı tablolar var. yani sayfalar arası bazı boşluklarım ve birleştirilmiş hücrelerim var. Satır sayım da baya fazla. Yani manuel olarak tek tek yapmam günlerimi hatta haftalarımı alabilir. Bu durumda sorunu düşeyara formülü uygulanan tüm satırlar için nasıl çözebilirim ?
Yardımcı olan arkadaşlara şimdiden teşekkür ediyorum.

 

[Korhan Ayhan]

Merhaba,

Verilerinizi yedekleyerek kodu deneyiniz.

Dosyanızdaki tüm sayfalarda A1:AZ1000 hücre aralığında çalışır.

Kendinize göre uyarlarsınız.

Option Explicit

Sub Formula_Add_Iferror_Vlookup()
    Dim Sh As Worksheet, My_Cell As Range, Formul As String, Say As Long
   
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
   
    For Each Sh In ActiveWorkbook.Worksheets
        For Each My_Cell In Sh.Range("A1:AZ1000")
            If My_Cell.HasFormula Then
                If InStr(1, My_Cell.Formula, "IFERROR") = 0 Then
                    If InStr(1, My_Cell.Formula, "VLOOKUP") > 0 Then
                        Formul = "=IFERROR(" & IIf(Left(My_Cell.Formula, 1) = "=", Mid(My_Cell.Formula, 2, Len(My_Cell.Formula) - 1), My_Cell.Formula) & ",0)"
                        My_Cell.Formula = Formul
                        Formul = ""
                        Say = Say + 1
                    End If
                End If
            End If
        Next
    Next
   
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
   
    MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
           Say & " adet formül güncellenmiştir.", vbInformation
End Sub

 

[Ali]

Aşağıdaki formülü deneyebilirsiniz. #YOK hatası olsa da aralığınızı toplar.

=ETOPLA(A2:A100;"<>#YOK")

 

[Leoncio]

Merhaba başka bir alternatif olarak; #YOK değerlerinin görülmemesini istiyorsanız aşağıdaki formülü kendi çalışmanıza uygulayabilirsiniz.
=EĞER(EHATALIYSA(ARA(9,999999E+307;D3:CR3));"";ARA(9,999999E+307;D3:CR3)) yazıp aşağı doğru çekiniz.

 

[k1222]

çok teşekkür ederim.

 

[k1222]

Merhaba,

Verilerinizi yedekleyerek kodu deneyiniz.

Dosyanızdaki tüm sayfalarda A1:AZ1000 hücre aralığında çalışır.

Kendinize göre uyarlarsınız.

Option Explicit

Sub Formula_Add_Iferror_Vlookup()
    Dim Sh As Worksheet, My_Cell As Range, Formul As String, Say As Long
  
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
  
    For Each Sh In ActiveWorkbook.Worksheets
        For Each My_Cell In Sh.Range("A1:AZ1000")
            If My_Cell.HasFormula Then
                If InStr(1, My_Cell.Formula, "IFERROR") = 0 Then
                    If InStr(1, My_Cell.Formula, "VLOOKUP") > 0 Then
                        Formul = "=IFERROR(" & IIf(Left(My_Cell.Formula, 1) = "=", Mid(My_Cell.Formula, 2, Len(My_Cell.Formula) - 1), My_Cell.Formula) & ",0)"
                        My_Cell.Formula = Formul
                        Formul = ""
                        Say = Say + 1
                    End If
                End If
            End If
        Next
    Next
  
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
  
    MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
           Say & " adet formül güncellenmiştir.", vbInformation
End Sub

Bunu kullandım oldu. Çok teşekkür ederim.

 

[Ali]

3 nolu mesaj hiçbir düzenleme yapmadan #YOK hatası veren aralığınız toplar. Sanırım denemediniz.