Waarden plakken ipv formule in vba statement

Paradoxx · 30 jul 2021

Goedemorgen,

Dankzij snb heb ik een mooie macro welke voor mij een hele batterij XML bestanden inleest en de benodigde informatie daaruit in 1 regel wegzet.
Ik wil deze werkwijze toepassen op een ander bestand, maar heb daar meer informatie uit nodig welke ik wegschrijf over 20 regels per ingelezen xml.

Ik heb het voor elkaar dat de macro, vanuit een hulptabel waar ik alle benodigde info uit die 20 regels ophaalt, kopieert en neerzet in het verzamelblad. Maar hij kopieert en plakt de formules waar juist de waarden geplakt moeten worden.
Hoe moet ik deze rode regel code aanpassen zodat het de waarden wegzet ipv de normale kopieer/plak functionaliteit?

Code:

Sub M_snb()

    c00 = "C:\L-Schijf\0_Test\klimaat-import\Import\"
    c01 = Dir(c00 & "*.XML")
    c02 = ThisWorkbook.XmlMaps("Monster_toewijzing").DataBinding.SourceUrl
    
    Do Until c01 = ""
        FileCopy c00 & c01, c02
        ThisWorkbook.XmlMaps("Monster_toewijzing").DataBinding.Refresh
        
       [COLOR=#ff0000] Blad3.ListObjects(1).DataBodyRange.Rows("1:21").Copy Blad4.Cells(Rows.Count, 1).End(xlUp).Offset(1)[/COLOR]      
       
        c01 = Dir
    Loop

RogerS · 30 jul 2021

Dan zul je de functio plakken speciaal moeten aanroepen.

Ik vond daar -> https://www.wallstreetmojo.com/vba-paste-values/

Dus dit voorbeeld -> Range("C6").PasteSpecial xlPasteValues aanpassen aan je eigen sheet en dan zou het moeten werken.

Haije · 30 jul 2021

Maak van:

Code:

       [COLOR=#ff0000] Blad3.ListObjects(1).DataBodyRange.Rows("1:21").Copy Blad4.Cells(Rows.Count, 1).End(xlUp).Offset(1)[/COLOR]

Eens

Code:

Blad4.Cells(Rows.Count, 1).End(xlUp).Offset(1)=Blad3.ListObjects(1).DataBodyRange.Rows("1:21").value

HSV · 30 jul 2021

Of:

Code:

with Blad3.ListObjects(1).DataBodyRange
 Blad4.Cells(Rows.Count, 1).End(xlUp).Offset(1).resize(21, .columns.count).value = .Rows("1:21").value
end with

Paradoxx · 30 jul 2021

@RogerS, bedankt voor de tip, ik zal eens even proberen of ik daar iets kan vinden.

@Haije; Helaas werkt je optie niet. Zo wordt alleen 1 cel gevuld.

Paradoxx · 30 jul 2021

@HSV

Ik heb je code geprobeerd, en het werkt super. Ook met een groter aantal XML bestanden loopt de macro als een zonnetje!

Bedankt!

Waarden plakken ipv formule in vba statement

Paradoxx

Gebruiker

RogerS

Meubilair

Haije

Terugkerende gebruiker

HSV

Inventaris

Paradoxx

Gebruiker

Paradoxx

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy