Beste Allemaal,
Ik heb een vraag over het kopiëren van cel in een bestand naar een andere cel in een ander bestand.
Maar dan alleen de waarde van de cal die ik heb geselecteerd.
Deze onderstaande code is opgenomen zoals het eigenlijk moet worden.
Is hier een code voor?
Als ik de cel kopieer en plaats hem in de cel waar deze moet komen selecteer ik met de rechter muis knop alleen waarden.
Dit zou ik graag in de code verwerken dat dit automatisch gaat gebeuren.
Als ik de cel copier in het bestand wat ik nu toepas doet hij niet wat het moet doen en als ik alleen de waarde kopieer wel.
'Hoe kan ik wsi.Range("F" & i).Value alleen de gegevens van sourceSheet.Range("F" & 6 + i).Value geven?
'Zoals hieronder aangegeven?
Ik hoop dat het duidelijk is,
Met vriendelijk groet,
Joha
Ik heb een vraag over het kopiëren van cel in een bestand naar een andere cel in een ander bestand.
Maar dan alleen de waarde van de cal die ik heb geselecteerd.
Deze onderstaande code is opgenomen zoals het eigenlijk moet worden.
Code:
Range("F8").Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Is hier een code voor?
Als ik de cel kopieer en plaats hem in de cel waar deze moet komen selecteer ik met de rechter muis knop alleen waarden.
Dit zou ik graag in de code verwerken dat dit automatisch gaat gebeuren.
Als ik de cel copier in het bestand wat ik nu toepas doet hij niet wat het moet doen en als ik alleen de waarde kopieer wel.
'Hoe kan ik wsi.Range("F" & i).Value alleen de gegevens van sourceSheet.Range("F" & 6 + i).Value geven?
'Zoals hieronder aangegeven?
Code:
'Range("F8").Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'merken
wsi.Range("B" & i).Value = sourceSheet.Range("B" & 6 + i).Value
'Aantal
wsi.Range("C" & i).Value = sourceSheet.Range("C" & 6 + i).Value
'Breedte
[B]wsi.Range("F" & i).Value = sourceSheet.Range("D" & 6 + i).Value[/B]
' Hoogte
wsi.Range("M" & i).Value = sourceSheet.Range("E" & 6 + i).Value
Ik hoop dat het duidelijk is,
Met vriendelijk groet,
Joha
Laatst bewerkt door een moderator: