Code voor macro: Ga naar opgegeven rij nummer waarbij....

[1104romian]

Beste lezers,
Ik heb in een werkblad in een vaste cel (bv.B3) een rij nummer staan
bv.6, dat overigens steeds anders kan zijn.
VRAAG: Welke code kan ik maken om naar het in B3 gegeven rij
nummer te gaan om vervolgens uit die rij gegevens te kunnen kopieeren.?
Bij voorbaat dank voor Uw reactie. Romian

 

[spaarie]

Handiger om een voorbeeldje te plaatsen met je beoogde resultaat.
Dit is een optie die denk ik het makkelijkst verklaarbaar is, maar er zijn meerdere wegen die naar Rome leiden:

Sub Spaarie
    With Sheets(1)
        r = .Range("B3").Value
        .Range(.Cells(r, 1), .Cells(r, 5)).Copy , Sheets(2).Range("A1")
    End With
End Sub

 

[1104romian]

Hierbij een voorbeeld ,alles uitvoeren op hetzelfde blad.
Weet niet zeker of het voorbeeld goed overkomt, anders
graag advies. vr groet Romian
Opm. Uw code geeft foutmelding op:
.Range(.Cells(r, 1), .Cells(r, 5)).Copy , Sheets(2).Range("A1")


Bekijk bijlage Proef rij zoeken 1.xlsm

 

[spaarie]

Ik weet niet wat je nu wilt duidelijk maken, maar waar moet het bijvoorbeeld heen gekopieerd worden.
Voer deze module is uit, dan zal je zien dat hij kopieert

Sub Spaarie()
    With Sheets(1)
        r = .Range("B3").Value
        .Range(.Cells(r, 1), .Cells(r, 5)).Copy .Cells(r, 1).Offset(1)
    End With
End Sub

Wat je er verder mee doet moet je zelf weten, want weet echt niet waar je naar toe wilt in dit...

 

[VenA]

De komma hoort niet achter .copy.

Sub VenA()
    Sheets(1).Cells([b3], 1).Resize(, 5).Copy Sheets(2).[A1]
End Sub

 

[1104romian]

Bedankt Spaarie, werkt super,
Sorry voor mijn onduidelijkheid.
gr.Romian

 

[HSV]

Zonder copy.

Sheets(2).[A1].Resize(, 5) = Cells([b3], 1).Resize(, 5).Value

 

[spaarie]

@VenA: Inderdaad bedacht ik me dat later pas, zat met Before en After in me hoofd vandaar de komma

@HSV: Mijn voorkeur gaat ook uit om Copy niet te gebruiken, maar zoals ik eerder aangaf was de Copy code het makkelijkst te begrijpen. Althans, deze wordt ook gebruikt bij het opnemen van...

 

[VenA]

@spaarie, Blijkbaar heb ik jouw post in #4 niet gezien want daar staat het wel goed. De TS vraagt om

gegevens te kunnen kopieeren.?

En dan is Copy vrij logisch.:d

 

[1104romian]

Er is geen controle-expressie geselecteerd

Beste Spaarie of lezers,
Van U heb ik onderstaande code gekregen voor in VBA.
Dit n.a.v. mijn vraag:
Ik heb in een werkblad in een vaste cel (bv.B3) een rij nummer staan
bv.6, dat overigens steeds anders kan zijn.
VRAAG: Welke code kan ik maken om naar het in B3 gegeven rij
nummer te gaan om vervolgens uit die rij gegevens te kunnen kopieeren.?
Bij voorbaat dank voor Uw reactie. Romian

Omdat deze vraag te weinig infomatie gaf hierbij dan een aanvulling
op mijn vraag:

Het werkblad met de cel B3 staat in map BBB1.
Op dat werkblad staat in cel A1 de hyperlink om naar map AAA1 te gaan.
De gekopieerde cellen moeten geplakt worden in map AAA1 in regel 3
kolommen D:J.
De opmaak is in beide mappen gelijk.
Einde aanvulling.

Die code werkte perfect tot dat ik de foutmelding de vraag kreeg:
"Er is geen controle-expressie geselecteerd".
Echter er staat niets onder controle, is leeg.
In het schermpje controle toevoegen wordt gevraagd om
een expressie toe te voegen.... maar wat moet ik daar voor
een expressie invoeren. graag Uw hulp

Sub Spaarie()
With Sheets(1)
r = .Range("B3").Value
.Range(.Cells(r, 1), .Cells(r, 5)).Copy .Cells(r, 1).Offset(1)
End With
End Sub

Graag een nieuwe code voor mijn vraag MET de aanvulling.
Bij voorbaat mijn dank Romian