• 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.

Copy paste naar ander tabblad

Status
Niet open voor verdere reacties.
B

buckeru

Gebruiker
Lid geworden
6 jan 2011
Berichten
117
Mensen,

Ik probeer via een macro, een paar cellen van het ene
tabblad naar het andere te copieren. echter het gaat me niet lukken.

wie kan mij helpen. heb 1 en ander al klaar staan.
zie bijlage.

grtn buck
 

Bijlagen

  • Test copy paste.xlsm
    20,7 KB · Weergaven: 45
Vraag is niet erg duidelijk!
Misschien zo?
 

Bijlagen

  • Test copy paste.xlsm
    20,4 KB · Weergaven: 42
Of zo?
Een formule was niet te vinden.
 

Bijlagen

  • copy paste.xlsm
    18,9 KB · Weergaven: 45
Ok gast0660.
Zo bedoel ik het.
Alleen moet het van boven af aan aangevuld worden.
Dus wat er reeds staat moet allemaal 1 regel naar beneden.
en dan moet d2 wel de formule behouden.(staat nu geen formule)

hoop dat het nu wat duidelijker is
 
Hoi buckeru,
Post je formule, dan kan ik die meenemen in de aangepaste code
 
Code: 
=ALS.FOUT(VERT.ZOEKEN(C3;'D:\BRP\[Produktnamen_Snb_3.xls]Namen'!$A$2:$B$301;2;ONWAAR);ALS.FOUT(VERT.ZOEKEN(C3;'N:\BRP\[Data_R2401_SNB_2.xls]Blad1'!$A$1:$R$50;2;ONWAAR);"Geen Data gevonden"))
 
Zoiets?
Code: 
Sub dot()
Set ws = Worksheets("Oud")
ws.Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ws.Rows("2:2").Resize(, 7).Value = Array([D7], "", [F7], "", [H7], "", [J7])
Range("Copy").ClearContents
ws.Rows("2:2").Interior.Color = xlNone
ws.Range("D2").FormulaR1C1 = "=IFERROR(VLOOKUP(R[1]C[-1],'D:\BRP\[Produktnamen_Snb_3.xls]Namen'!R2C1:R301C2,2,FALSE),IFERROR(VLOOKUP(R[1]C[-1],'N:\BRP\[Data_R2401_SNB_2.xls]Blad1'!R1C1:R50C18,2,FALSE),""Geen Data gevonden""))"
End Sub
 
voor wat betreft die formule kolom zou ik denk ik niet de formule in de code zetten maar cel D3 kopieren naar cel D2 (nadat de gegevens zijn ingevoegd)

Code: 
Sub dot2()
Set ws = Worksheets("Oud")
ws.Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ws.Rows("2:2").Resize(, 7).Value = Array([D7], "", [F7], "", [H7], "", [J7])
Range("Copy").ClearContents
ws.Rows("2:2").Interior.Color = xlNone
[COLOR="#0000CD"]ws.Range("D2") = ws.Range("D3").FormulaR1C1[/COLOR]
End Sub

op die manier weet je zeker dat altijd de meest actuele formule wordt geplakt mocht die ooit wijzigen.
 
@ roeljongman
Idd.
op die manier weet je zeker dat altijd de meest actuele formule wordt geplakt mocht die ooit wijzigen.
Klik om te vergroten...
Het blijft voor mij nog altijd een raadsel waarom iemand via VBA een formule wil neerpoten. (ofwel gebruik je VBA ofwel formules denk ik dan zo, maar ja wie ben ik)
 
Heren bedankt.
De oplossing van roeljongman past mij het beste.

De bedoeling was niet om een formule te gebruiken met VBA.
maar om de invoer bestanden (zonder formules) te kopiëren naar een soort van data bestand.
in deze data bestand stond 1 formule die ik moest blijven gebruiken.
vandaar.

hartelijk dank voor jullie moeite, het was mij zelf niet gelukt

grtn buck
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan