syntaxfout

[wieter]

Hallo Helpers,
In sommige cellen die moeten gecopieerd worden naar een ander blad zit een formule
Die cellen kunnen niet met de opdracht COPY alleen weggeschreven worden, want dan krijg je uiteraard een verwijzingsfout.
Value moet gebruikt worden, maar ik ken de juiste syntax niet
De regel kleurt rood, dus erg ver kan de fout niet zitten
Kan iemand dit oplossen?
Groeten Wieter

Private Sub CommandButton4_Click()
'Naar debiteuren
 Rij = Sheets("Debiteuren").Range("A65000").End(xlUp).Row + 1
  With Sheets("Debiteuren")
    Range("G14").Copy Destination:=.Range("A" & Rij)
    Range("B14").Copy Destination:=.Range("B" & Rij)
    Range("E6").Copy Destination:=.Range("C" & Rij)
    [COLOR="Red"]Range(Value["J47"]).Copy Destination:=.Range("D" & Rij)[/COLOR]
    Range("D14").Copy Destination:=.Range("E" & Rij)
 End With

 

[sickofitall]

Hallo Helpers,
In sommige cellen die moeten gecopieerd worden naar een ander blad zit een formule
Die cellen kunnen niet met de opdracht COPY alleen weggeschreven worden, want dan krijg je uiteraard een verwijzingsfout.
Value moet gebruikt worden, maar ik ken de juiste syntax niet
De regel kleurt rood, dus erg ver kan de fout niet zitten
Kan iemand dit oplossen?
Groeten Wieter

Private Sub CommandButton4_Click()
'Naar debiteuren
 Rij = Sheets("Debiteuren").Range("A65000").End(xlUp).Row + 1
  With Sheets("Debiteuren")
    Range("G14").Copy Destination:=.Range("A" & Rij)
    Range("B14").Copy Destination:=.Range("B" & Rij)
    Range("E6").Copy Destination:=.Range("C" & Rij)
  [B] Range("J47").Copy Destination:=.Range("D" & Rij)[/B]
    Range("D14").Copy Destination:=.Range("E" & Rij)
 End With

werkt ie zo?

 

[Hoornvan]

wieter,

Zo kan het ook.

Private Sub CommandButton4_Click()
'Naar debiteuren
 Rij = Sheets("Debiteuren").Range("A65000").End(xlUp).Row + 1
  With Sheets("Debiteuren")
    [G14].Copy Range("A" & Rij)
    [B14].Copy Range("B" & Rij)
    [E6].Copy Range("C" & Rij)
    [J47].Copy Range("D" & Rij)
    [D14].Copy Range("E" & Rij)
 End With
End Sub

 

[wieter]

Zo had ik het oorspronkelijk gedaan, maar in cel J47 zit een formule (=SOM J7:J45)
Die formule wordt dan naar blad2 gecopieerd en dan krijg je op blad 2 natuurlijk een verwijzingsfout
Dank voor de reactie
Wieter

 

[wieter]

Oeps!, Wim ik had je reactie niet gezien
Ga de code dadelijk proberen
Dank Wieter

 

[snb]

Dit is voldoende:

Private Sub CommandButton4_Click()
  Sheets("Debiteuren").cells(rows.count,1).end(xlup).offset(1).resize(,5)=split([G14] & "|" & [B14] & "|" & [E6] & "|" & [J47] & "|" & [D14],"|")
End Sub

 

[wieter]

Sorry Wim, maar met uw code worden de cellen op blad1 gecopieerd en niet naar blad debiteuren
Misschien kan je het oplossen

 

[sickofitall]

:shocked:

@ Snb:

Heb jij speciale macrolessen gevolgd want de manier waarop jij macro's vereenvoudigd heb ik nog nooit gezien?!

Of als je weet via welke sites ik zulke "ingewikkelde" macro's kan leren, kan je me deze dan eens melden?
Thx!!

 

[Hoornvan]

wieter,

Sorry ik dacht het goed te hebben.

 

[wieter]

@Wim, Niks te sorry, jij doet toch een poging om mensen te helpen

@SNB allemachtig, wat ben ik nog een sukkeltje wat VBA betreft
Dank aan alle mensen die gereageerd hebben
Groeten wieter

 

[snb]

@sickofitall

Die lessen heb ik gevolgd bij snb.
Ze worden verzorgd voor hooguit 3 cursisten per groep en indien gewenst individueel. Ik zelf heb alleen maar de individuele trajekten gevolgd.
Voor websites kan ik je verwijzen naar de bijdragen van snb op de volgende fora: webforums.nl (bijv. Excel Tips & Trucs), helpmij.nl en worksheet.nl