Application.Goto Reference:="Naam"

B

Boeck

Gebruiker

Lid geworden

9 okt 2019

Berichten

15

• 10 okt 2019

• #1

Beste

Onderstaande macro wil ik graag wat aanpassen


Sheets("Unit Rates").Select
Application.Goto Reference:="Naam"
Selection.Copy

Sheets("Overzicht").Select
ActiveSheet.Paste


Naam is gedefinieerde stukje uit een lange lijst 1700 regels die gekopieerd word in overzicht.

mijn vraag: is het mogelijk dat deze waarde uit een cel wordt gehaald

BV de waarde uit Cel (N13)

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.747

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 10 okt 2019

• #2

Zo bijvoorbeeld:

Code:

Application.Goto Reference:=Range("N13")

 

B

Boeck

Gebruiker

Lid geworden

9 okt 2019

Berichten

15

• 10 okt 2019

• #3

Hoi Edmoor

dit is niet wat ik bedoel misschien ben ik niet geheel duidelijk



ik heb voor elk gedefinieerd stukje een naam

BV Range("B422") is gedefineerd als x

Range("B389401") is gedefineerd als y

Application.Goto Reference:=" x "

Het is dan de bedoeling dat de gehele range("B422") wordt gekopieerd naar overzicht

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.747

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 10 okt 2019

• #4

Dan moet je die naam niet tussen aanhalingstekens zetten.

 

B

Boeck

Gebruiker

Lid geworden

9 okt 2019

Berichten

15

• 10 okt 2019

• #5

dan krijg ik

Fout1004

Dit is een ongeldige verwijzing

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.747

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 10 okt 2019

• #6

Plaats dan een voorbeeld document.

 

B

Boeck

Gebruiker

Lid geworden

9 okt 2019

Berichten

15

• 10 okt 2019

• #7

Voorbeeld

 

Bijlagen

• voorbeeld.xlsm

  33,5 KB · Weergaven: 28

V

VenA

Inventaris

Lid geworden

2 mrt 2013

Berichten

17.103

• 11 okt 2019

• #8

Code:

Sub VenA()
  Sheets("Unit Rates").Range("X").Copy Sheets("Kopie").Cells(13, 1)
End Sub

 

B

Boeck

Gebruiker

Lid geworden

9 okt 2019

Berichten

15

• 11 okt 2019

• #9

Hallo VenA

Dit werk perfect maar was niet wat ik bedoel
de range staat vast en is gedefineerd met een naam in de Sheets("Unit Rates")
zodat ik met Application.Goto Reference="het bereik = naam"
kan selecteren en kopieren
zoals ik in het voorbeeld heb proberen duidelijk te maken kan ik dit ook doen om
voor elk bereik een knop te maken maar dat is niet overzichtelijk en een hoop werk

vandaar de vraag of het mogelijk is om de waarde "het bereik = naam" uit een cel te halen

ik hoop dat het een beetje duidelijk is

 

V

VenA

Inventaris

Lid geworden

2 mrt 2013

Berichten

17.103

• 11 okt 2019

• #10

Zo?

Code:

Sub VenA()
  Sheets("Unit Rates").Range(Sheets("Kopie").Range("B4").Value).Copy Sheets("Kopie").Cells(13, 1)
End Sub

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.747

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 11 okt 2019

• #11

Of dit?

Code:

Application.Goto Reference:=Range(ActiveWorkbook.Names("X"))

De naam kan ook uit een cel komen.
Bijvoorbeeld als er een X in cel G1 staat:

Code:

Application.Goto Reference:=Range(ActiveWorkbook.Names(Range("G1").Value))

 

Laatst bewerkt: 11 okt 2019

V

VenA

Inventaris

Lid geworden

2 mrt 2013

Berichten

17.103

• 11 okt 2019

• #12

Het eerst selecteren is volledig overbodig.

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.747

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 11 okt 2019

• #13

Mee eens.
Ik gaf dan ook alleen antwoord op de Application.Goto vraag.

 

B

Boeck

Gebruiker

Lid geworden

9 okt 2019

Berichten

15

• 11 okt 2019

• #14

zojuist de code van Edmoor geplaatst

krijg ik deze melding

fout 9 tijdens uitvoering het subscript valt buiten het bereik

 

Bijlagen

• voorbeeld.xlsm

  30,6 KB · Weergaven: 28

V

VenA

Inventaris

Lid geworden

2 mrt 2013

Berichten

17.103

• 11 okt 2019

• #15

Waarom wil je eerst application.goto gebruiken? Is toch nergens voor nodig?

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.747

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 11 okt 2019

• #16

Erg vreemd.
Dat zie ik inderdaad ook gebeuren, maar als je dezelfde opdracht in het Direct venster uitvoert werkt het zonder probleem.
Ik heb zo geen idee wat daar de oorzaak van is.

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

39.747

Besturingssysteem

Windows XP, 7, 10, 11-23H2

Office versie

Office 365

• 11 okt 2019

• #17

Ik zie het al. De code staat in het blad Kopie.
Je werkt dus vanuit de context van dat blad en is G1 leeg.

Maar wat VenA al opmerkt, die hele werkwijze is overbodig.

 

B

Boeck

Gebruiker

Lid geworden

9 okt 2019

Berichten

15

• 11 okt 2019

• #18

Edmoor $ VenA

ik ben blij met jullie hulp en kan weer verder

De knop naar het andere blad geplaatst en G1 vullen vanuit =Kopie!B5
Bedankt Ed

 

V

VenA

Inventaris

Lid geworden

2 mrt 2013

Berichten

17.103

• 12 okt 2019

• #19

Ook dat lijkt mij overbodig.

 

B

Boeck

Gebruiker

Lid geworden

9 okt 2019

Berichten

15

• 14 okt 2019

• #20

Hoi Ven A
ik lees zojuist je bericht

het liefst had ik helemaal geen knop gehad of in het zelfde blad (Kopie)
de in het blad (kopie) geplaatste knop geeft de melding
fout 9 tijdens uitvoering het subscript valt buiten het bereik vandaar
geplaatst in het blad(Unit Rates)
de waarde in (Kopie!B5) wordt geplaatst door een ander programma

Ik zelf ben een excel gebruiker en kom aan de Code door (macro opnemen) vandaar
Application.Goto Reference:="Naam"

Sheets("Unit rates").Select
Application.Goto Reference:="X"
Application.CutCopyMode = False
Selection.Copy
Sheets("Kopie").Select
ActiveSheet.Paste