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

0 leden en 1 gast bekijken dit topic.

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #45 Gepost op: 04 november 2021, 13:17:00 »
Arnold,

Citaat
beide codes ingebracht en alles werkt als een tiereliere
Leuk om te horen !

Wat 2) betreft: nee hoor, die rij heb je daar niet voor nodig, die heeft immers geen enkel verband met waar je muziekbestand opgeslagen staat.

Laat je dan nog zien welke aanpassingen je allemaal hebt gemaakt? Dan kunnen we, mocht dat al nodig zijn, daar mee verder voor eventuele verbeteringen.
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #46 Gepost op: 05 november 2021, 11:39:58 »
goedemidag,
denk dat het nodig zal zijn om wat hulp te krijgen :
ik heb de import routine aangepast zodat deze op het 2de werkblad komt genaamd "Records" , dat werkt perfect.
ik ben nu (weeral) een ganse tijd bezig om de zoekroutine zodanig aan te passen dat ze gaat zoeken op dat werkblad , maar het lukt me niet  :(
mijn 1ste werkblad heb ik nu "Start" genoemd...
ik krijg wel al een boodschap dat er geen titels zijn gevonden maar dat is dan ook alles  ;D.
graag beetje hulp , indien mogelijk ook met wat uitleg , zo leer ik er van .
alvast bedankt !

Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #47 Gepost op: 05 november 2021, 12:15:24 »
Dag Arnold,

Je kwam behoorlijk in de buurt, hoor. Ik heb enkel het activeren van 'Records' moeten uitschakelen (dat change-event hoort namelijk exclusief bij blad 'Start'), en er dan voor gezorgd dat er effectief op het juiste blad wordt gezocht (With Sheets("Records")).
Ook de lus met 'teller' mocht weg, dat was nog een overblijfsel van toen we het rijnummer in je resultaten zetten.
Dat brengt mij tot deze code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$2" Then
    Application.EnableEvents = False
    Range("B4:B18").ClearContents
    If Target <> "" Then
        tezoekentitel = Cells(2, 2)
        With Sheets("Records")
            nummers = Filter(Application.Transpose(.Range("a1:a" & .Cells(Rows.Count, 1).End(xlUp).Row)), tezoekentitel, True, vbTextCompare)
            Select Case UBound(nummers)
                Case -1
                    MsgBox "er zijn geen titels met deze tekst", vbInformation, "Belangrijke info"
                Case Is > 14
                    MsgBox "er zijn " & UBound(nummers) & " titels met dezelfde tekst gevonden" + (Chr(13)) + (Chr(13)) + "            verfijn Uw zoekopdracht", vbInformation, "Belangrijke info"
                Case Else
                    Cells(4, 2).Resize(UBound(nummers) + 1) = Application.Transpose(nummers)
                    For I = 0 To UBound(nummers)
                        Cells(I + 4, 2).Hyperlinks.Add Anchor:=Cells(I + 4, 2), Address:=Cells(I + 4, 2)
                    Next I
            End Select
        End With
    End If
    Application.EnableEvents = True
    Cells(2, 2).Font.Underline = xlUnderlineStyleNone
    Range("B4:B18").Font.Underline = xlUnderlineStyleNone
End If
Range("B2").Select

End Sub

We horen het wel als iets nog niet duidelijk is?

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #48 Gepost op: 05 november 2021, 12:34:33 »
Arnold,

Ik zag ook nog wat overbodigs staan in je importprocedure. Importeren komt tegenwoordig neer op je ganse muziekcollectie volledig verversen. Dat betekent dat je ook niet meer naar een laatste rij moet gaan zoeken. Het zal geen merkbare tijdswinst opleveren, hoor, maar iets properder kan je dat bv. zo doen:
Sub Afbeelding8_Klikken()

Application.EnableEvents = False
With Sheets("Records")
    .Columns("A").ClearContents
    a = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""e:\muziek\*.mp3""/b/o:n/s").stdout.readall, vbCrLf)
    .Cells(1, 1).Resize(UBound(a)) = Application.Transpose(a)
    aantal = UBound(a)
End With
With Sheets("Start")
    .Range("B2,B4:B18").ClearContents
    .Cells(2, 4).Value = aantal
    .Cells(2, 2).Select
End With
MsgBox "er zijn " & aantal & " records toegevoegd !"
Application.EnableEvents = True

End Sub

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #49 Gepost op: 05 november 2021, 12:50:03 »
@Molly , weerom bedankt voor alle hulp  , ben blij dat ik "in de buurt" kwam , ik had ook al geprobeerd met "with sheets" enz maar stonden op de verkeerde plaats , dus bn blij dat mijn "gedachtegoed" in die richting goed was...
ik ga nu de nieuwe code invoeren...
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #50 Gepost op: 05 november 2021, 14:13:22 »
voila , nog wat "cosmetische" aanpassingen gedaan.....met de nieuwe code werkt alles nu perfect  :)
nu zou ik nog heel graag hebben dat ik vanuit het programma ( indien mogelijk van uit het resultatenvenster) de dubbele bestanden indien ik het wil kan wissen.
neem nu als voorbeeld "vagabond" , dan krijg ik 4 records op 4 plaatsen , ik zou er dan 3 kunnen wissen...
ik heb de nieuwste "versie" bijgevoegd als bijlage..
Mvg,
Arnold.

HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #51 Gepost op: 05 november 2021, 14:49:09 »
Moet kunnen, Arnold.
Wat denk je: via dubbelklikken en om bevestiging vragen?

En mispak je er niet aan: volgens mij gaat 4 x 'vagabond' over twee verschillende songs  ???
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #52 Gepost op: 05 november 2021, 14:52:52 »
ik zou dat zeker goed vinden , eerst bevestigen en dan pas wissen...
en je hebt gelijk , het gaat om 3 x dezelfde song...dus er mogen er 2 gewist worden  :-[
alvast bedankt !
grtjs,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #53 Gepost op: 05 november 2021, 15:12:15 »
Ziezo, klaar !

Kleine bijsturing evenwel: door die hyperlinks gaat zowel klikken als dubbelklikken tot afspelen leiden. Dan maar de opportunistische weg, zijnde rechtsklikken.
Deze code mag je dus ook achter blad 'Start' zetten:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Range("B4:B28"), Target) Is Nothing Then
    If Target <> "" Then
        Application.EnableEvents = False
        If MsgBox("Let op! Deze actie verwijdert" & Chr(13) & "- het record uit deze lijst" & Chr(13) & "- en het record uit de basislijst" & Chr(13) & "- EN het bestand op schijf" & Chr(13) & Chr(13) & "Doorgaan ?", vbYesNo) = vbYes Then
            With Sheets("Records")
                rij = .Columns("A").Find(Target).Row
                .Rows(rij).EntireRow.Delete
            End With
            Kill Target
            Target.ClearContents
        End If
        Application.EnableEvents = True
    End If
End If
Cancel = True

End Sub

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #54 Gepost op: 05 november 2021, 15:17:47 »
man man , zoals Ben zou zeggen in blokken : waar hebde gij zolang gezeten ?  ;D , U bent een heel grote aanwinst voor ons forum hier  :thumbsup:
dikke merci voor alles !
grtjs,
Arnold.

ps : k'durf het bijna niet te vragen maar is er geen oplossing voor die melding bij het openen van de player ?
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #55 Gepost op: 05 november 2021, 16:04:14 »
Arnold,

Dat zal meer een Windows- dan een Excel-kwestie zijn.
Ik heb Windows Media Player als standaardprogramma voor mp3-bestanden en die geeft die melding niet, dus verder zal ik daar niet kunnen mee helpen.

Ik heb me nog even verder geamuseerd met je bestand. Ik had al langer in de gaten dat dubbels alleen aan het licht zullen komen als ze toevallig aan je zoekcriterium voldoen. Maar nu al de rest blijkbaar in orde is hier toch ook wat voor verzonnen.
Je zal bij het importeren wat inboeten aan snelheid, dus aan jou de keuze of je dit al dan niet implementeert. Als je een blad 'Dubbels' toevoegt en de importcode door de volgende vervangt, dan worden de titels apart aan 'Records' toegevoegd en daar vervolgens de dubbels uit opgelijst.
Meer gebeurt er natuurlijk nog niet. Als je dat nuttig vindt kan er nog wat code worden toegevoegd om vanaf dat nieuwe blad te gaan opruimen.

Sub Afbeelding8_Klikken()

Application.EnableEvents = False
Sheets("Dubbels").Columns("A").ClearContents
With Sheets("Records")
    .Columns("A").ClearContents
    a = Split(CreateObject("wscript.shell").exec("cmd /c Dir ""e:\muziek\*.mp3""/b/o:n/s").stdout.readall, vbCrLf)
    .Cells(1, 1).Resize(UBound(a)) = Application.Transpose(a)
    aantal = UBound(a)
End With
With Sheets("Start")
    .Range("B2,B4:B28").ClearContents
    .Cells(22, 1).Value = aantal
    .Cells(2, 2).Select
End With
MsgBox "er zijn " & aantal & " records toegevoegd !"
Application.EnableEvents = True
   
With Sheets("Records")
    For I = 1 To aantal
        titel = Split(.Cells(I, 1), "\")
        .Cells(I, 2) = titel(UBound(titel))
    Next I
    .Columns("A:B").EntireColumn.AutoFit
    teller = 0
    Dim dubbels()
    For I = 1 To aantal
        If WorksheetFunction.CountIf(.Range("B1:B" & aantal), .Cells(I, 2)) > 1 Then
            teller = teller + 1
            ReDim Preserve dubbels(1 To teller)
            dubbels(teller) = .Cells(I, 1)
        End If
    Next I
    If teller > 1 Then
        MsgBox ("Er zijn dubbels gevonden op schijf")
        Sheets("dubbels").Select
        Cells(1, 1).Resize(teller) = Application.Transpose(dubbels)
        Columns(1).AutoFit
    End If
End With

End Sub

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #56 Gepost op: 05 november 2021, 16:06:12 »
Arnold,

Hyperlinkwaarschuwingen globaal in- of uitschakelen

Als u de hyperlinkwaarschuwingen in Microsoft Office-programma's wilt in- of uitschakelen wanneer een https://-adres, een notes://-adres of een ftp://-adres wordt gebruikt, moet u een nieuwe registersubsleutel maken. Ga hiervoor als volgt te werk:

1-Klik op Start en vervolgens op Uitvoeren.
2-Typ regedit in het dialoogvenster Openen en klik op OK.

U hoeft slechts één van deze register subsleutels te wijzigen. U hoeft beide niet te wijzigen.
Als de subsleutel Beveiliging al bestaat, gaat u rechtstreeks naar stap 6 nadat u de subsleutel Beveiliging hebt geselecteerd.
Zoek en selecteer vervolgens de volgende register subsleutel (als de subsleutel niet bestaat, maakt u deze handmatig): HKEY_CURRENT_USER\Software\Microsoft\Office\xx.0\Common

Opmerking Vervang in deze subsleutel 'xx.0' door 12.0 voor Office 2007, 14.0 voor Office 2010, 15.0 voor Office 2013 en 16.0 voor Office 2016 en hoger.

3-Klik op de register subsleutel, wijs Nieuw aan in het menu Bewerken en klik vervolgens op Sleutel.
4-Typ Beveiliging en druk vervolgens op Enter om de sleutel een naam te geven.
5-Open het menu Bewerken, wijs Nieuw aan en klik op DWORD Value.
6-Typ DisableHyperlinkWarning en druk vervolgens op Enter om de vermelding een naam te geven.
7-Klik in het rechterdeelvenster met de rechtermuisknop opHyperlink uitschakelenWarning en klik vervolgens op Wijzigen.
8-Klik in het dialoogvenster DWORD-waarde bewerken op Decimaal en typ vervolgens 1 onder Waardegegevens.


:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #57 Gepost op: 05 november 2021, 16:17:22 »
@SoftAid : ik had al alle mogelijke beveiligingen daar uitgeschakeld , werkt niet
@Molly : Windows Media player staat ingesteld als standaard player voor mp3's....
nu erg is het niet , is 1 x meer klikken maar "cosmetisch" is het niet mooi , en zoals sommigen al weten intrigeert me dan zulke zaken  ;D
@Molly : wat betreft Uw code voor die dubbels , enerzijds is dit geweldig interessant , anderzijds is er soms een reden waarom het om 2 plaatsen staat ...dus ik ga die nieuwe code invoeren in een kopie van mijn bestand (met andere naam) en het bekijken...
iedereen hier nog een fijne avond !
grtjs.

ps : @SoftAid : PM gekregen ? die laatste ?
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #58 Gepost op: 05 november 2021, 16:21:56 »
Arnold,

laatste bericht van mij aangepast, dat werkt maar tot versie 2013, en jij werkt met 2016 dacht ik:
dus een registeraanpassing....

PM niet ontvangen  :(

Groeten,

:) SoftAid :)             

MollyHV, je bent een krak (een goede bedoel ik  :thumbsup:)
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Naar een rij springen a.d.h.v. een cijfer in een cel.
« Reactie #59 Gepost op: 05 november 2021, 16:24:17 »
die registeraanpassing had ik ook al gedaan maar helpt niet...opzoekwerk op het internet bied eigenlijk nergens een afdoende oplossing  :(...
Mvg,
Arnold.

HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

 


www.combell.com