tegelijk verschillende range`s overzetten?

[kibus]

Goedemorgen Beste Kenners

Ik ben een beetje aan het puzellen of je in 1 keer mbv vba meerdere range kunt overzetten van het ene blad naar het andere blad.. nu doe ik dat 1 voor 1 kopieren.. werkt wel.. echter is er een betere snellere oplossing??
onderstaand ben ik mee aan het puzellen maar werkt niet

Dim a As Range
a = Range("factuurnummer:factuurnummer1")
Dim b As Range
b = Range("grootboek:grootboek1")

Sheets("test").Select
Range("m1").Select
ActiveCell = a
Range("m2").Select
ActiveCell = b

Edwin

 

[Janzwart]

Het volgende zou moeten werken

sub overplaatsen()
Dim a As Long
a = Range("A1") 'dit moet de cel zijn waar de waarde staat die je wilt overzetten.
Dim b As Long
b = Range("B1") 'dit moet de cel zijn waar de waarde staat die je wilt overzetten.

Sheets("test").Select
Range("m1") = a
Range("m2") = b
end sub

Als de waarde altijd overgezet moet worden kun je er ook voor de volgende code kiezen. (deze moet in M1 komen te staan in het andere werkblad)

=Blad1!A1

(Blad 1!A1 moet het werkblad en cel worden waar de waarde staat.)

 

[kibus]

Hallo,

Ik ga hier mee aan de slag... echter moet ik hele range`s overzetten..

gr
edwin

 

[HSV]

Zoals het omschreven wordt kan het ook zo.
Activesheet kun je veranderen in de bladnaam van toepassing.
Bv. Application.Transpose(Sheets("Blad1").Range("A1").Resize(, 2).Value)

Sub overplaatsen()
 With Sheets("test")
  .Range("M1").Resize(2) = Application.Transpose(ActiveSheet.Range("A1").Resize(, 2).Value)
 End With
End Sub