Ik krijg geen activecell gekopieerd naar een ander blad

Status
Niet open voor verdere reacties.

MichaelEv

Gebruiker
Lid geworden
18 mei 2018
Berichten
12
Hallo,

Ik heb echt alles geprobeerd maar elke keer voert VBA de bovenste regel wel uit en de rest niet. Weten jullie wat ik fout doe?

'Eerst zet ik alles vast in een geheugen
Dim Naam As String
Dim Adres As String
Dim Postcode As String
Dim Plaats As String
Dim Wijk As String
Dim Telefoonnummer As String
Dim Email As String

De ActiveCell is d.m.v. VBA op de juiste plaats komen te staan
Naam = ActiveCell.Value
Adres = ActiveCell.Offset(0, 1).Value
Postcode = ActiveCell.Offset(0, 2).Value
Plaats = ActiveCell.Offset(0, 3).Value
Wijk = ActiveCell.Offset(0, 4).Value
Telefoonnummer = ActiveCell.Offset(0, 5).Value
Email = ActiveCell.Offset(0, 6).Value
Alles cellen zitten nu in het geheugen

Nu ga ik het geheugen naar het volgende werkblad zetten
wsNotities.Range("B2").Value = Naam
wsNotities.Range("B3").Value = Adres
wsNotities.Range("B4").Value = Postcode
wsNotities.Range("C5").Value = Plaats
wsNotities.Range("B5").Value = Wijk
wsNotities.Range("D2").Value = Telefoonnummer
wsNotities.Range("D3").Value = Email

Helaas plaats VBA alleen de bovenste regel en de rest blijft leeg (er komt geen foutmelding).

Wat doe ik fout?

Wellicht is er een makkelijkere code in VBA.

Dit is wat ik wil:
Ik heb in een werkblad een heleboel rijen met klantinformatie. Als ik met mijn muis op een cel in het bereik ga staan en druk dan op een "opdrachtbutton" dan wordt via VBA de cel verplaats naar de eerste kolom in de betreffende rij. Dit gaat goed. De actieve cell is de naam en de cellen naar rechts vullen de gegevens verder aan.

Ik wil deze gegevens in een ander werkblad plaatsen op plaatsen die ik daarvoor in VBA vastleg.

(Ik kan deze gegevens makkelijk in een userform laden maar het kopiëren naar een ander werkblad zonder een userform lukt me niet)

Alvast bedankt voor jullie hulp
 
Ik vind deze wel leuk.
Code:
sub hsv()
Dim sv, j As Long
sv = Split("B2 B3 B4 c5 b5 d2 d3")
  With ActiveCell
   For j = 1 To UBound(sv)
    wsNotities.Range(sv(j)) = .Offset(, j)
   Next j
 End With
end sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan