VBA selecteren meerdere actieve cellen

Status
Niet open voor verdere reacties.

Herminator

Nieuwe gebruiker
Lid geworden
22 apr 2018
Berichten
1
hoi,

Ik heb onderstaande VBA code gevonden op het internet, dit probeer ik nu aan te passen en daar loop ik op vast.

Sub waardes()
'
' waardes Macro
'
Range("A1").Select
While Not IsEmpty(ActiveCell.Value)
Range("C1").Value = ActiveCell.Value
For i = 1 To 10000000
Next
ActiveCell.Offset(1, 0).Select
Wend

End Sub


Wat ik graag wil is dat tevens B2 geselecteerd wordt. Dat zou dan middels Range("A1:B1").Select kunnen, en dat in cel D1 de laatst gekozen waarde van rij B komt te staan. Voor Rij A werkt dit wel goed, hier komt steeds de laatst gekozen waarde in cel C1 te staan.

Misschien dat dit ook niet de manier is om meerdere kolommen af te gaan maar ik kom er even niet uit.

Groet Herman
 
Laatst bewerkt:
Welkom bij Helpmij :)

Misschien dat je wat duidelijker kan zijn in je uitleg wat je precies probeert te bereiken.
Je code maakt dat ook niet echt duidelijk. Tevens haal je rijen en kolommen door elkaar in je uitleg.
Daarnaast is die For loop totaal overbodig en die .Select ook.

Code die je hier plaatst dient ook voorzien te zijn van codetags en een voorbeeld documentje is altijd handig.

Lees ook dit:
http://www.helpmij.nl/forum/faq.php?faq=vb3_reading_posting
 
Laatst bewerkt:
zou dit niet genoeg moeten zijn?


Code:
[C1] = Range("A" & Rows.Count).End(xlUp).Value
[D1] = Range("B" & Rows.Count).End(xlUp).Value
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan