EXCEL / VBA - #N/B vervangen met een formule

[johanfcu]

Hallo allen,

Ik ben momenteel bezig een Macro te schrijven/op te nemen en ik heb jullie hulp hierbij nodig.

In mijn Macro wordt een vert.zoeken formule uitgevoerd waardoor enkele waarden als #N/B worden weergeven (Kolom K en L). De #N/B wil ik vervangen met nieuwe formules, in K met formule 1 en in L met formule 2.

Hoe krijg ik dat voor elkaar?

 

[Leotaxi]

als de formules geplaatst worden door de macro, met een iferror ervoor

FormulaR1C1 = "=IFERROR(VLOOKUP(R1C7,R2C2:R7C3,2,0),sum(R2C9:R10C9))"

mvg
Leo

 

[johanfcu]

Hallo Leo,

Bedankt voor je antwoord. Ik heb het bovenstaande geprobeerd te verwerken in de Macro, Helaas krijg ik dan foutmeldingen. Ik weet niet wat er fout gaat. Zie hieronder.

Range("K2").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-1],'projectnummer naar srt en unit'!R1C1:R800C3,2,FALSE),IF(OR(LEFT(RC[-1],1)=""I"",LEFT(RC[-1],1)=""S"",LEFT(RC[-1],1)=""V"",LEFT(RC[-1],1)=""T""),""CAPEX of Deelnemingen"",""?"")"""
    Range("L2").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-2],'projectnummer naar srt en unit'!R1C1:R800C3,3,FALSE),IF(ISERROR(SEARCH(""GNIP"",RC[1],1)),""?"",""GNIP"")"""

 

[Leotaxi]

beter eens het bestandje plaatsen, om duidelijkheid te krijgen
wat er moet gebeuren bij die foutmelding.

mvg
Leo

 

[johanfcu]

Hallo Leo,

Zie hierbij het bestand. Ik heb het bestand geanonimiseerd maar aan de macro is niets veranderd. Zie ook de uitleg op het eerste tabblad.

Alvast bedankt voor je input.

Bekijk bijlage Rapportage hm forum.xlsm

 

[Leotaxi]

heb het deel tot en met formules plaatsen beetje ingekort


mvg
Leo

 

[johanfcu]

Hallo Leo,

Bedankt voor je input. Ik kan de Macro niet uitvoeren, ik krijg het "openen" scherm om waarden bij te werken. Geen idee wat er mis gaat in de Macro.

Daarnaast lijken de formules die ik hierboven in post 3 had gezet onveranderd, waardoor ze nog steeds niet werken. Heb je enig idee wat ik hier mis doe?

Alvast bedankt.

 

[Leotaxi]

dan even de aangepaste versie in code

Sub Opvraging_CADO()
'
' Opvraging_CADO Macro
'
Dim lngLastRow As Long
Application.ScreenUpdating = False
    Rows("3:3").Delete Shift:=xlUp
    Rows("1:1").Delete Shift:=xlUp
    Columns("A:B").Delete Shift:=xlToLeft
    Columns("L").Delete Shift:=xlToLeft
    Range("C:C,M:M").Select
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns("C:C").NumberFormat = "m/d/yyyy"
    Columns("M:M").NumberFormat = "m/d/yyyy"
    Range("J1").Value = "Soort"
    Range("K1").Value = "Klant"
    Columns("D:D").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Range("D1").Value = "Week"
    Range("D2").FormulaR1C1 = "=WEEKNUM(RC[-1],2)"
    Range("D:D").NumberFormat = "General"
    
    lngLastRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("K2", "K" & lngLastRow).FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-1],'projectnummer naar srt en unit'!R1C1:R800C3,2,FALSE),IF(OR(LEFT(RC[-1],1)=""I"",LEFT(RC[-1],1)=""S"",LEFT(RC[-1],1)=""V"",LEFT(RC[-1],1)=""T""),""CAPEX of Deelnemingen"",""?""))"
    Range("L2", "L" & lngLastRow).FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-2],'projectnummer naar srt en unit'!R1C1:R800C3,3,FALSE),IFERROR(IF(SEARCH(""GNIP"",RC[1],1)>0,""GNIP"",""Nee""),""?""))"
    

 
    Range("M:M").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.AutoFilter
    Range("K1").Select
    ActiveSheet.Range("$A$1:$U$9772").AutoFilter Field:=11, Criteria1:="#N/B"
    Columns("J:J").Select
    ActiveWorkbook.Worksheets("Opvraging CADO").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Opvraging CADO").Sort.SortFields.Add Key:=Range( _
        "J1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Opvraging CADO").Sort
        .SetRange Range("A502:U9780")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Application.ScreenUpdating = True
End Sub

dus aangepast tot en met waar formules geplaatst worden

mvg
Leo