• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Application.Goto Reference:="Naam"

Status
Niet open voor verdere reacties.
Code kan je het beste tussen codetags plaatsen. Wat wil je bereiken met dit project. Wees eerst eens duidelijk met wat de uitgangspunten zijn. Dan weer B5 dan weer G1. Dus wat wil je nu waar wijzigen om toch het verwachte resultaat te krijgen?

de waarde in (Kopie!B5) wordt geplaatst door een ander programma
Klik om te vergroten...
Hoe dan? En als een waarde in een cel gewijzigd wordt dan kan je gebruik maken van het Change Event.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) = "B5" Then
    MsgBox "ik doe maar wat"
  End If
End Sub
 
Sorry voor de puinhoop

wat ik heb is een file met drie bladen: Main - Unitrange en kopie

een blad Main waar diverse gegeven op komen te staan vanuit een ander programma
op dat blad B49 staat een naam die in kopie B3 (=Main!B49)

tot voor kort moest ik dan de gegevens uit de lijst (unitrates) opzoeken, 20 regels selecteren en plakken in blad (Kopie)

ik dacht dat moet anders kunnen,toch.

vandaar ik de lijst op gedeeld heb in naamvaken
en dus als de naam bekend is met de bewuste knop, het bij behorende naamvak kopieer naar kopie
 
Nu is het weer B3? En heb je drie tabbladen? Het wordt er steeds duidelijker op.
 
Boeck,

probeer deze eens....
 

Bijlagen

  • Test boeck (hs).xls
    77 KB · Weergaven: 21
Heb je wel op de knop op tabblad "Unit rates" geklikt?
 
jawel dat gebeurd ook in mijn bestand

mijn vraag was kan dit zonder knop
of een knop op kopie plaatsen

als ik deze knop verplaats naar Kopie krijg ik een fout melding script valt buiten bereik
 
Of deze code in tabblad Kopie...
Code: 
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Target, Range("B3")) Is Nothing Then
    
    Select Case Target.Value
     Case Is = "X"
        sn = Sheets("Unit rates").Cells(4, 1).CurrentRegion.Value
     Case Is = "Y"
        sn = Sheets("Unit rates").Cells(27, 1).CurrentRegion.Value
     Case Is = "Z"
        sn = Sheets("Unit rates").Cells(50, 1).CurrentRegion.Value
    End Select
  
    Range("A13").Resize(20, 3) = sn
  End If
End Sub
[/FONT]
Misschien is het beter om .CurrentRegion.Value te vervangen door .Resize(20, 3)
 
Laatst bewerkt:
Jack

geweldig, dank je wel

.Resize(20, 3) is mij niet duidelijk
 
Code: 
Range("A13").Resize(20, 3)

hiermee wordt A13 uitgebreid tot een range met 3 kolommen en 20 rijen (A13:C33)
 
Dit heeft toch werkelijk niets met de OP te maken?

Met een iets betere opzet kan het in 1 regel.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "B3" Then Cells(13, 1).Resize(20, 3) = Sheets("Unit rates").Cells((Asc(Target.Value) - 88) * 23 + 4, 1).Offset(-1).Resize(20, 3).Value
End Sub

Eventueel nog even de Events uit- en aanzetten.
 
Laatst bewerkt:
beste VenA

allereerst werkt perfect en voorkomt veel type werk, in eerste instantie was mijn OP

-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)


vervolgens ontstaat er een discussie

als cel is anders e.d. wat ik eigenlijk niet relevant vind
vervolgens schrijf je "Ook dat lijkt mij overbodig."

mijn reactie

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

Krijg ik van Jack Nouws een code die doet wat ik in eerste instantie vroeg
op een geheel andere manier die werkt
die van U ga ik gebruiken

Dank je wel

PS er zijn meerdere wegen naar Rome
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan