met knop, naar een deel van een andere werkblad springen

[the head]

Heb hieronder de code geplakt deze werkt niet, welke aanpassingen moet ik maken zodat deze wel naar blad2 springt en alleen A19:AI35 laat zien

Private Sub CommandButton7_Click()
Sheets("blad2").Range("A19:AI35").Select
End Sub

Alvast bedankt.
the head

 

[mumzel]

Vraag is verplaatst uit de afdeling 'tips en handleidingen' Je kunt zelf even codetags om het stukje code zetten. Dat zag ik te laat.

 

[Warme bakkertje]

Uit het vuistje

Application.Goto (Sheets("blad2").Range("A19")), True

 

[the head]

ja zoiets had ik gevonden, maar ik zoek iets dat alleen A19:AI35 laat zien, en wat dan ook geprint zou kunnen worden

:thumb:

 

[Warme bakkertje]

Stel dan de PrintArea in op het gewenste bereik.

 

[the head]

Ja dat klopt, maar kan het niet in 1 keer????
:thumb:

 

[the head]

ja zoiets had ik gevonden, maar ik zoek iets dat alleen A19:AI35 laat zien, en wat dan ook geprint zou kunnen worden

:thumb:

Hallo allen,

Mijn vraag staat nog steeds.

ik wil graag weten hoe ik:

met een knop naar een ander werkmap kan springen en dan ook nog met een bepaalde range bijv.

Sta in map yy wil naar map xx,
en in map xx wil ik alleen a100 t/m ag150 zien, en juist wat er boven staat en er onder niet zien. het liefste meteen print klaar.

alvast bedankt

the head

ps. de knop om naar een andere werkmap te springen met code kan ik al, alleen dat extra stukje lukt niet.

 

[Warme bakkertje]

Sub tst()
Const ZichtbGeb = "$A$100:$AG$150"
With Sheets("Blad2")
        Application.Goto .Range("A100"), True
        .ScrollArea = ZichtbGeb
        .PageSetup.PrintArea = ZichtbGeb
    End With
End Sub

 

[the head]

Beste Warme bakkertje
Bedankt voor de snelle reactie, ik was zelf ff heel druk, kon niet eerder reageren

dat stukje script werkt, alleen een beetje te goed, hij blijft er in zitten.
als ik met een button terug spring naar mijn zoek lijst, en spring dan via een andere button naar een heel andere deel van het blad. dan
blijft ie staan op het eerdere aangegeven stuk.

hoe kan ik dit weer resetten.

b.v.d.

the head

 

[Warme bakkertje]

Welke code zit er achter die andere button ?

 

[the head]

code:

Private Sub CommandButton10_Click()
Worksheets("totaal").Select
ActiveSheet.Range("a1891").Select
End Sub

het zou mooi zijn,

dat ik met een druk op een button:
- van te voren ingesteld bereik kan printen (een bepaalde hoofdstuk ofzo), maar wordt niet elke keer geprint
- en dat ik op deze manier naar verschillende delen van het programma kan springen (er zitten bij "totaal" meer dan 4000 regels, en ongeveer 70 buttons )


b.v.d.

the head

 

[Warme bakkertje]

Geef elk bereik waar je heen wil springen een naam. Maak dan een validatielijst met al die namen. Hieruit kan je dan je bereik kiezen en aan 1 button heb je dan genoeg om naar eender welk bereik te springen.
Zelfde principe kan jen ook toepassen om bepaalde bereiken af te drukken.

 

[the head]

Beste Warme bakkertje,

Dit klinkt goed,:thumb:
heb je voor mij een voorbeeld van beide scripts aub.

bvd.

the head

 

[huijb]

@ the head Zou je willen stoppen met het onnodig quoten van berichten. Heb nu al diversen reacties van je aangepast.

 

[the head]

Oké

 

[Warme bakkertje]

Selecteer in de bijlage in A1 een bereik en klik op de knop.

 

[the head]

Hoi Warme bakkertje,

JA!! :thumb:

Dit is wel wat ik zoek,
Alleen ik snap niet waarom en hoe, het dropdown naar kolom "O" gelinkt is?
vindt daar geen commando voor,

lukt me wel via een omweg, bereik 4, 5, en 6 of veel meer tot bijvoorbeeld Bereik_21 erbij te zetten.
is er een manier om dit via de dropdown menu te doen, of moet je altijd een referentie naar een andere kolom hebben,
om zo ook meerdere opties te krijgen?

En hoe kan ik een al ingesteld bereik weer veranderen of wissen.

bvd.

the head

 

[Warme bakkertje]

Verdiep je maar eens in het definieëren van Namen en aan validatielijsten en een nieuwe wereld gaat voor je open.

 

[the head]

HA ha ha

Zal ik eerste wel ff proberen.

Als jij een voorschotje wilt geven,
dan stel ik dat zeer op prijs.

Totnu toe super bedankt,

Wacht nog ff jou berichtje af, en dan kan in principe deze topic eerst wel gesloten worden.

Alvast bedankt.

Gegroet the head