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

Montagnard · « **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

Mvg,
Arnold.

Ex-lid · « **Reactie #1 Gepost op:** 07 januari 2020, 16:57:00 »

Code: [Selecteer]

Private Sub CommandButton2_Click()
r = ActiveCell.Value
Application.Goto Cells(r, 1)
End Sub

emields · « **Reactie #2 Gepost op:** 07 januari 2020, 17:03:01 »

of zoiets, enkel het nummer in kolom E selecteren

cow18 · « **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:B14

Code: [Selecteer]

Private 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.

Montagnard · « **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.

Montagnard · « **Reactie #5 Gepost op:** 07 januari 2020, 17:46:21 »

@Koe : 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 hèèl veel geholpen hier op het forum.

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

Mvg,
Arnold.

Montagnard · « **Reactie #6 Gepost op:** 01 november 2021, 14:02:34 »

dag,
sedert paar dagen dit "programma" weer opgepikt om mogelijk code te veranderen naar dingen die ik sedertdien heb bijgeleerd...
zit echter met paar zaken :

1) hoe kan ik volgende code aanpassen zodat deze enkel geldt voor de range D4:D13 , dus als ik dubbelklik op een cel uit die range ?

Code: [Selecteer]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   r = ActiveCell.Value
    If r <> "" Then Application.Goto Cells(r, 1)
End Sub

2) hoe vereenvoudig ik volgende code zodat ik niet telkens diezelfde code moet gebruiken en er geen lus tot 100.000 ( database met mp3) moet doorlopen worden , maar naar de laatste ingevulde cel+1 in kolom A te gaan ? er mag effectief maar vanaf rij 15 begonnen worden , en daarom loop ik vast op de mogelijkheden die ik tot nu toe ken..

Code: [Selecteer]

For lus = 15 To 100000
    If Cells(lus, 1).Value = "" Then einde = lus - 1: Exit For
        Next

3) als ik iets invul in cel B2 en enter (ik kom dan op cel C2) dan zou er code moeten gestart worden die nu onder een commandbutton staat , zodat die button kan wegvallen...

ik heb er bewust geen voorbeeld bestandje aan vastgehangen maar mocht het alsnog nodig dan graag een seintje ?

Mvg,
Montagnard.

SoftAid · « **Reactie #7 Gepost op:** 01 november 2021, 14:26:47 »

Hallo Montagnard,

Vraag 1:
https://www.exceltip.com/cells-ranges-rows-and-columns-in-vba/determine-if-a-cell-is-within-a-range-using-vba-in-microsoft-excel.html

of mischien:

Code: [Selecteer]

If ActiveCell.Address <> ActiveSheet.Range ("D4:D13") Then
Vraag 2:

Code: [Selecteer]

LaatsteRij = Sheets("Blad1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
Dus:

Code: [Selecteer]

LaatsteRij = Sheets("Blad1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
For lus = 15 To LaatsteRij
    If Cells(lus, 1).Value = "" Then einde = lus - 1: Exit For
Next

Vraag 3-

Sub CommandButton2() veranderen in Sub WorkSheet_Change()

Code: [Selecteer]

Private Sub worksheet_change(ByVal Target As Range)
a = Range(ActiveCell.Address).Offset(0, -1)
If a = Range("C2") Then

MsgBox "Then"    'code
Else
MsgBox "Else"     'code
End If

End Sub

SoftAid

Montagnard · « **Reactie #8 Gepost op:** 01 november 2021, 14:28:42 »

ik ben nu "out" tot na de cyclocross

...

AD1957 · « **Reactie #9 Gepost op:** 01 november 2021, 15:02:18 »

zo:

Code: [Selecteer]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, Range("D4:D13")) Is Nothing Then
    If Target <> "" Then Application.Goto Cells(Target, 1)
 End If
End Sub

Montagnard · « **Reactie #10 Gepost op:** 01 november 2021, 17:01:34 »

1) @Albert : bedankt , Uw code werkt perfect , had al iets in die aard maar was enkel voor één cel....ik vond het niet om een range te gebruiken.

2) @SoftAid : alles werkt uitgenomen de laatste code (vraag3) , van zodra ik mijn blad open zegt ie al gelijk "then" , terwijl cel B2 is geselecteerd (zo start het werkbook op)...m.a.w. : ik vul een titel of zelfs maar een stuk van de titel of uitvoerder van een liedje in cel B2 in en als ik op "enter" druk (cursor staat dan op cel C2) , dan zou mijn andere code die nu onder een commandbutton staat moeten uitgevoerd worden , dit is code die kijkt of er 1 of meerdere titels/uitvoerders zijn en lijst ze op.
dat lukt me niet....

3) en hoe geraak ik die veiligheidsmelding kwijt ? mijn database is opgezet met hyperlinks , dus ik zoek een titel/uitvoerder en klik erop en de mediaplayer wordt geopend , NADAT ik die melding hebt bevestigd.

Mvg,
Montagnard.

ps : niet blind staren op de rest van de code , is wel erg "old skool"

, maar ik begrijp ze zo

Montagnard · « **Reactie #11 Gepost op:** 02 november 2021, 08:35:56 »

goedemorgen

pfft , ik dacht dat ik (na lang zoeken) had gevonden hoe ik "enter" kon ondervangen bij het enteren op cel B2 maar krijg nu volgende melding....
Mvg,
Montagnard.

Warme bakkertje · « **Reactie #12 Gepost op:** 02 november 2021, 11:15:49 »

Ik ben het absoluut niet eens met je code maar kijk eens of deze wijzigingen het gewenste resultaat geven.

Montagnard · « **Reactie #13 Gepost op:** 02 november 2021, 11:37:08 »

Citaat van: Warme bakkertje op 02 november 2021, 11:15:49

Ik ben het absoluut niet eens met je code

dat weet ik wel

, maar dat is voor later aan te pakken , ik probeer 1 voor 1 zaken op te lossen...

Uw bestand werkt niet BIJ MIJ , ik blijf foutmelding(en) krijgen , maar heb nu besloten om gewoon verder te werken met mijn commandbutton , is nu niet dat ik het bestand dagdagelijks meerdere keren gebruik...

wat die beveiligings waarschuwing betreft bij het aanklikken van een hyperlink : héél veel gevonden op het internet , héél veel suggesties en héél veel personen waaronder mezelf waarbij niets helpt , blijkbaar is dit niet op te lossen

Bedankt voor het meedenken

!

Mvg,
Montagnard.

Montagnard · « **Reactie #14 Gepost op:** 02 november 2021, 12:01:53 »

@Warme bakkertje : met mijn kennis van VBA zit ik nog in de oertijd , Jij (en vele andere helpers hier) zit(ten) al in de 21ste eeuw

...
maar zolang ik me "jeun" blijf ik graag bezig in vba.
Mvg,
Montagnard.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics

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

Montagnard

Naar een rij springen a.d.h.v. een cijfer in een cel.

Ex-lid

Re: naar een rij springen a.d.v. een cijfer in een cel

emields

Re: naar een rij springen a.d.v. een cijfer in een cel

cow18

Re: naar een rij springen a.d.v. een cijfer in een cel

Montagnard

Re: naar een rij springen a.d.v. een cijfer in een cel

Montagnard

Re: naar een rij springen a.d.v. een cijfer in een cel

Montagnard

Re: Naar een rij springen a.d.h.v. een cijfer in een cel.

SoftAid

Re: Naar een rij springen a.d.h.v. een cijfer in een cel.

Montagnard

Re: Naar een rij springen a.d.h.v. een cijfer in een cel.

AD1957

Re: Naar een rij springen a.d.h.v. een cijfer in een cel.

Montagnard

Re: Naar een rij springen a.d.h.v. een cijfer in een cel.

Montagnard

Re: Naar een rij springen a.d.h.v. een cijfer in een cel.

Warme bakkertje

Re: Naar een rij springen a.d.h.v. een cijfer in een cel.

Montagnard

Re: Naar een rij springen a.d.h.v. een cijfer in een cel.

Montagnard

Re: Naar een rij springen a.d.h.v. een cijfer in een cel.