• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Als waarde kopieren

Status
Niet open voor verdere reacties.
D

Dappre

Gebruiker
Lid geworden
28 mei 2017
Berichten
102
Hi forumleden,

Voorafgaand aan de volgende code wil ik de waarde tussen kolom Z en AE als waarde kopieren/plakken.
Hier staan namelijk formules in die verwijzen naar een ander bestand. Welke toevoeging heb ik nodig om dit te bewerkstelligen?

PHP: 
With Range("A1").CurrentRegion
  .AutoFilter Field:=26, Criteria1:=Array("#N/B"), Operator:=xlFilterValues
  .Offset(1).Copy Worksheets("Overig").Range("A2")
  .AutoFilter
End With
 
bijvoorbeeld
Code: 
[COLOR="#FF0000"].[/COLOR]Range("Z2:AE5")=[COLOR="#FF0000"].[/COLOR]Range("Z2:AE5").Value
 
Laatst bewerkt:
Oke, en waar moet ik deze plaatsen? Opnieuw als variabele opnemen?
 
wanneer moeten er waardes van gemaakt worden? Voordat je een bereik selecteert en kopieert, lijkt me. Dus tussen 1 en 2 zoals VenA al aangeeft.
 
Bedankt! Code werkt alleen hoe krijg ik hem tot het eind van alle rijen ipv 5?
 
door ipv AE5 in te vullen AE18?

Of eerst bepalen welke regel de laatste is en dan dat aantal gebruiken
 
Laatst bewerkt:
Nee snap ik Haije, bedoelde eigelijk tot het einde van mijn totale dataset.
Die iedere keer weer variabel is. Ene keer loopt hij tot 3000 rijen, andere keer 6000.
 
Is er een snelle mogelijkheid middels een button om de betreffende waarde die ik zojuist heb gekopierd als waarde weer terug te zetten in de oorspronkelijke formules?
Ik heb van kolom Z tot AE allemaal verticaal zoek functies die ik wederom tot de laatste rij vanuit mijn dataset zou willen terugkopieren.
 
ik denk dat je beter de formules kunt laten staan en kunt plakken als waarden op tabblad Overig
 
Dat is net niet de bedoeling, lang verhaal. Maar het gaat om veel databerekeningen die ik wil voorkomen qua berekentijd.
Vandaar een switch tussen waarde en formule.
 
maar als je de formules weer terugplaatst heb je toch ook te maken met berekentijd?
 
Dan zet je het berekenen toch op handmatig en aan het eind van de code weer op automatisch?

Code: 
Application.Calculation = xlManual
Application.Calculation = xlAutomatic
 
Klopt helemaal, echter zijn gebruikers niet altijd in staat om dit elke keer te onthouden.
Vandaar dat ik het handmatig wilde toepassen.
 
Wat moeten de gebruikers onthouden dan?

Code: 
Sub VenA()
  Application.Calculation = xlManual
  With Range("A1").CurrentRegion
    .AutoFilter Field:=26, Criteria1:=Array("#N/B"), Operator:=xlFilterValues
    .Offset(1).Copy Worksheets("Overig").Range("A2")
    .AutoFilter
  End With
  Application.Calculation = xlAutomatic
End Sub
 
Even mijn gedachtegang; moet "#N/B" niet Criteria1:="#N/A" zijn?
 
Heren,

Middels de application.calculation is het probleem helemaal opgelost. Super!

@HSV: Klopt, was een snel voorbeeld. Maar je hebt gelijk.
 
Dan heb je aan onderstaand genoeg.
Code: 
.AutoFilter 26, "#N/A"
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan