Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: Waarden plakken ipv formule in vba statement

  1. #1
    Senior Member Paradoxx's avatar
    Geregistreerd
    2 november 2007
    Locatie
    Marknesse
    Vraag is opgelost

    Waarden plakken ipv formule in vba statement

    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
            
            Blad3.ListObjects(1).DataBodyRange.Rows("1:21").Copy Blad4.Cells(Rows.Count, 1).End(xlUp).Offset(1)      
           
            c01 = Dir
        Loop
    Laatst aangepast door Paradoxx : 30 juli 2021 om 08:44
    Van eerst zelf proberen, is nog nooit iemand dommer geworden.

  2. #2
    Mega Honourable Senior Member RogerS's avatar
    Geregistreerd
    2 maart 2009
    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.
    Zoekt en gij zult vinden. Vindt gij het niet, dan is het zoek.

  3. #3
    Giga Senior Haije's avatar
    Geregistreerd
    24 maart 2009
    Locatie
    Oldenzaal
    Maak van:
    Code:
            Blad3.ListObjects(1).DataBodyRange.Rows("1:21").Copy Blad4.Cells(Rows.Count, 1).End(xlUp).Offset(1)
    Eens
    Code:
    Blad4.Cells(Rows.Count, 1).End(xlUp).Offset(1)=Blad3.ListObjects(1).DataBodyRange.Rows("1:21").value
    Haije
    ___________________________________________________

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    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
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  5. #5
    Senior Member Paradoxx's avatar
    Geregistreerd
    2 november 2007
    Locatie
    Marknesse
    @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.
    Van eerst zelf proberen, is nog nooit iemand dommer geworden.

  6. #6
    Senior Member Paradoxx's avatar
    Geregistreerd
    2 november 2007
    Locatie
    Marknesse
    @HSV

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

    Bedankt!
    Van eerst zelf proberen, is nog nooit iemand dommer geworden.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren