Sheets importeren met macro

[cow18]

dan zet je die voorwaarde erbij

 With ThisWorkbook.Sheets(shnaam)                                 'werkblad in je totaalbestand
        With .Range("A" & Rows.Count).End(xlUp).Offset(1)
            .Resize(UBound(sn1), UBound(sn1, 2) - 1).Value = sn1     'nu kopieer je naar de Akolom
            If shnaam = "Blad2" Then .Offset(, 6).Resize(UBound(sn1)).FormulaR1C1 = "=VLOOKUP(RC[-6],BladA!R1C1:R10000C5,5,0)"    'in de G-kolom deze formule zetten
        End With
    End With

 

[snb]

Waarom zou je met VBA een formule in een werkblad zetten die in Excel naar waarden moet zoeken, die je in VBA ook kunt zoeken en meteen als waarde in het werkblad kunt zetten ?

 

[cow18]

daar maak je een punt

 

[ivoexcel]

De formule gelijk uitvoeren zou ook prima zijn.

Nu zit ik nog met het volgende. De formule die ik heb ingevoerd moet dit zijn:
ALS(ISFOUT(VIND.SPEC("198500";G3));ALS(ISFOUT(VIND.SPEC("198000";G3));ALS(ISLEEG(M3);"";"x");"x");"x"))

Daarvoor heb ik deze code maar iets klopt hier niet..

 If shnaam = "In- en uitkluisboekingen" Then .Offset(, 11).Resize(UBound(sn1)).FormulaR1C1 = "=IF(ISERROR(SEARCH(198500,RC[-5])),IF(ISERROR(SEARCH(198000,RC[-5])),IF(ISBLANK(RC[+1]))))