Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Naar een rij springen a.d.h.v. een cijfer in een cel.  (gelezen 1532 keer)

0 leden en 1 gast bekijken dit topic.

Offline Montagnard

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Naar een rij springen a.d.h.v. een cijfer in een cel.
« Gepost op: 07 januari 2020, 16:02:26 »
dag,
ik heb een "muziek database" in elkaar gestoken in Excel om mijn Muziek (mp3) een beetje bij te houden , ik heb al onze cd's ingelezen en gedigitaliseerd waarbij er natuurlijk "dubbels" zijn.
in mijn bestand staan 4 knoppen :
1) zoeken , spreekt voor zich , na het ingeven van een deel van een titel/uitvoerder en klikken op "zoek" gaat het programma al de overeenkomende titels zoeken en geeft die weer in een venster met de plaats (rij) waar de naam staat..
2) titels importeren , als je er klikt wordt de verkenner geopend , ga naar een map met mp3 , klik erop en "ok" en de namen worden ingeladen en direkt gesorteerd.
3) bestand opslaan : klik erop en het bestand wordt weggeschreven naar de map waar het bestand werd geopend.

en nu mijn vraag : knop 4 "ga naar lijn" ....als er nu overeenkomende titels gevonden zijn dan zou ik graag hebben dat als ik mijn cursor op een cel zet (kolom E) met het rij nummer en dan klik op "ga naar lijn" dat de betreffende lijn wordt geselecteerd , dan ik deze verwijderen/aanpassen , ben er al een paar dagen mee zoet maar het lukt me niet  :-[..

ik hoop dat mijn uitleg voldoende duidelijk is ? in het bijgesloten bestand heb ik gezocht op "album" , 4 "matches" waarvan ik de rijen 57 - 91 - 104 zou willen wissen , als ik er naartoe kan springen via "ga naar lijn" dan gaat dat veel vlugger gaan , vooral omdat ik uiteindelijk zo'n 30.000 mp3 heb  ;D

Mvg,
Arnold.
« Laatst bewerkt op: 07 januari 2020, 22:56:56 door SoftAid »

Offline Dotchiejack

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 482
  • Geslacht: Man
  • Oplossing.be
Re: naar een rij springen a.d.v. een cijfer in een cel
« Reactie #1 Gepost op: 07 januari 2020, 16:57:00 »
Private Sub CommandButton2_Click()
r = ActiveCell.Value
Application.Goto Cells(r, 1)
End Sub
« Laatst bewerkt op: 07 januari 2020, 17:03:07 door Dotchiejack »
Groet, Philiep

Offline emields

  • Volledig lid
  • **
  • Berichten: 210
  • Geslacht: Man
  • Oplossing.be
Re: naar een rij springen a.d.v. een cijfer in een cel
« Reactie #2 Gepost op: 07 januari 2020, 17:03:01 »
of zoiets, enkel het nummer in kolom E selecteren

Offline cow18

  • Lid
  • *
  • Berichten: 29
  • Geslacht: Man
  • Oplossing.be
Re: naar een rij springen a.d.v. een cijfer in een cel
« Reactie #3 Gepost op: 07 januari 2020, 17:28:32 »
zet onderstaande in de module van blad 1 en dubbelklik op een waarde in B4:B14Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Intersect(Target, Range("B4:c14")) Is Nothing Then Exit Sub   'je dubbelklikt niet in B4=C14 = stoppen
   If Len(Target.Cells(1)) = 0 Then Exit Sub     'er staat niets in die cel
   Cancel = True                                 'dubbelklik ongedaan maken
   Set c = Range("A15:A30000").Find(Target.Cells(1).Value, LookIn:=xlValues)   'Zoek die cel
   If Not c Is Nothing Then Application.Goto c Else MsgBox "niet gevonden"   'reageer gepast
End Sub

Ik zou niet met het rijnummer werken, aangezien je van plan bent veranderingen aan te brengen, dus eventueel rijen verwijderen en dan ga je de mist in.

Offline Montagnard

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: naar een rij springen a.d.v. een cijfer in een cel
« Reactie #4 Gepost op: 07 januari 2020, 17:36:39 »
zowel de code van Dotchiejack als de aanpassing van Emields werken , bij deze laatste hoef ik niet eens te klikken op de knop , de cel selecteren volstaat , als ik echter een lege cel (per ongeluk) selecteer dan krijg ik een foutmelding , zie bijgesloten screen copy's...

ook bij Dotchiejack kreeg ik dezelfde foutmelding na het klikken op de knop en heb deze aangepast :
       r = ActiveCell.Value
       if r <> "" then Application.Goto Cells(r, 1)

bij de code van Emields weet ik niet direct hoe aanpassen  :-[

maar mijn dank voor beiden !  _/-\o_

Mvg,
Arnold.

Offline Montagnard

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: naar een rij springen a.d.v. een cijfer in een cel
« Reactie #5 Gepost op: 07 januari 2020, 17:46:21 »
@Cow18 : Uw code werkt perfect , ik hoef idd de rijen niet meer aan te geven EN : als ik daarna op dezelfde lijn dubbelklik en ik heb ondertussen deze verwijderd dan krijg ik mooi een melding dat deze er niet meer is !
want zoals U al aangeeft : als ik werk met rij nr en ik de inhoud van een rij wis , en ik klik opnieuw op hetzelfde rij nr dan is het gevaar dat ik een andere inhoud wis.
ik ga dan ook Uw oplossing gebruiken , ik hoop dat ik de beide anderen hierdoor niet voor het hoofd stoot want ze hebben me al hl veel geholpen hier op het forum.

bij deze nogmaals een DIKKE  merci aan alle 3 !!!

Mvg,
Arnold.
« Laatst bewerkt op: 07 januari 2020, 17:59:26 door Montagnard »

 


www.combell.com