Help!

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

Hulp bij posten

Recente topics

Auteur Topic: nummers wisselen in combinatie met namen  (gelezen 10253 keer)

0 leden en 2 gasten bekijken dit topic.

Offline lco

  • Oplosser
  • ****
  • Berichten: 759
  • Geslacht: Man
nummers wisselen in combinatie met namen
« Gepost op: 12 februari 2020, 10:22:00 »
Aan de oplossers.

bij het opnieuw installeren van de pc ben ik een file kwijtgeraakt met de vba code om bij het toekennen van een nummer aan een welbepaalde persoon het nummer dat aangepast werd te verplaatsen naar de persoon die dit nummer eerst had.

vb:ikke heb nummer 9 en ik verander het naar nummer 13 dan moet nummer 9 toegekend worden aan de persoon die nummer 13 had dus gewoon omwisselen (wanneer onvoldoende uitleg laat maar weten)


    mvg,lco

Offline lco

  • Oplosser
  • ****
  • Berichten: 759
  • Geslacht: Man
Re: nummers wisselen in combinatie met namen
« Reactie #1 Gepost op: 12 februari 2020, 18:04:42 »
Aan de oplossers,

ik heb nog een stukje code gevonden waar het reeds in werkt  maar waar en hoe krijg ik ze op zijn plaats in de file.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Long, y As Long
    Dim Cl As Range
   
    If Target.Column = 2 And Target.Value <> "" Then
        Application.EnableEvents = False
        y = Target.Value
        Application.Undo
        x = Target.Value
        Set Cl = Columns(2).Find(y, LookAt:=xlWhole)
        If Not Cl Is Nothing Then Cl.Value = x
        Target = y
        Application.EnableEvents = True
    End If
End Sub


       mvg,luc

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: nummers wisselen in combinatie met namen
« Reactie #2 Gepost op: 12 februari 2020, 21:57:28 »
Hallo Luc

Plaats die macro in de VBA editor in Blad3(Namen) van je moederfile.xlsm .

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

  • Oplosser
  • ****
  • Berichten: 759
  • Geslacht: Man
Re: nummers wisselen in combinatie met namen
« Reactie #3 Gepost op: 12 februari 2020, 22:07:31 »
SoftAid,

had ik reeds verschillende malen geprobeerd maar het lukt niet :-[ :-[ :-[
ps:er staat reeds een stukje code in die bij het verwijderen van een rij  (door dubbel klikken) alles terug laat aansluiten met de juiste nummer
ik denk dat de code moet gecombineerd worden  :-\
als ik een nummer veranderd verdwijnen er enkele uit de lijst?

      mvg,lco

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: nummers wisselen in combinatie met namen
« Reactie #4 Gepost op: 13 februari 2020, 11:37:46 »
Hallo Luc,

je hebtnwaarschijnlijk gelijk, en moeten die 2 macro's gecombineerd worden.

Maar daar moet ik voor passen, wegens te weinig kennis, sorry...

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

  • Oplosser
  • ****
  • Berichten: 759
  • Geslacht: Man
Re: nummers wisselen in combinatie met namen
« Reactie #5 Gepost op: 13 februari 2020, 12:48:42 »
SoftAid,

al bedankt voor de interesse. :thumbsup:

ps;probleem met opnieuw instellen van de pc (alles kwijt) en het weinige dat ik op mijn usb heb staan ook niet meer leesbaar stick  word niet herkend door Windows!! :'(


     mvg,lco

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: nummers wisselen in combinatie met namen
« Reactie #6 Gepost op: 13 februari 2020, 13:34:41 »
Hallo Luc,

heeft er ooit een werkend exemplaar van je moederfile op Oplossing.be gestaan als bijlage?
Weet je nog van wie het bestand (of de macro ) afkomstig was.

Ik heb (thuis, waar ik pas zondag aan kan) bijna ALLE bestanden die verband houden met jou kaartclub (van in de beginjaren tot nu) in één map zitten. Misschien zit daar het gezochte bestand met werkende macro (ivm Namen) er wel bij.

Geef zo veel mogelijk info, en zondag kijk ik gelijk na wat ik kan vinden.

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

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: nummers wisselen in combinatie met namen
« Reactie #7 Gepost op: 13 februari 2020, 14:21:43 »
Hallo Luc en SoftAid,

Misschien hebben jullie hier ook iets aan: ik heb even beide macro's bekeken, t.t.z. de ene die nog in de Excel-bijlage zit, en de andere uit reactie #1. Het is tamelijk klaar dat beide macro's doen wat verlangd wordt. Maar ze proberen combineren zal je enkel in de penarie brengen. En helaas ook als je ze als afzonderlijk event aan dat werkblad koppelt, want er zal dan heel vlug een conflict ontstaan.
Ik gok dat de macro om nummers te switchen als eerste in het bestand zat. Als de andere om namen te verwijderen één of meerdere keren wordt uitgevoerd zal daarna de eerste NIET meer werken.

Luc, je zal vooraleer we er gaan aan rommelen eerst eens goed moeten nadenken over wat je er precies mee wil. Stel je hebt de nummers 1 tot 10 staan. Je wisselt de nummers 3 en 7 onderling, dan krijg je 1-2-7-4-5-6-3-8-9-10. Vervolgens schrap je nummer 5. Dan moet de rest vermoedelijk hernummerd worden naar 1 tot 9. Alleen: HOE ? Als je daar een eenduidig antwoord op hebt kan de dubbelklik-procedure vermoedelijk vlug herschreven worden.
Een veel eenvoudiger oplossing is dat we dan 'gewoon' hernummeren van 1 tot 9 en je daarna desgewenst zelf gaat switchen.
We horen het dan wel...

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline lco

  • Oplosser
  • ****
  • Berichten: 759
  • Geslacht: Man
Re: nummers wisselen in combinatie met namen
« Reactie #8 Gepost op: 13 februari 2020, 17:20:52 »
SoftAid,Pitufo,

Is het misschien niet beter dat we de namen laten wisselen dan blijven de nummers altijd hetzelfde staan ,nu staan de namen alfabetisch gerangschikt maar dat hoeft niet.
Alleen moet er dan nog een oplossing komen voor een rij te verwijderen en de nummering terug juist te zetten maar dit werkt nu al of heb ik het mis:-\ :-\

ps:SoftAid,ik had zelf al eens proberen opzoeken in welke werkende file dit staat maar ik weet niet meer wat ik voor onderwerp had ingevuld,zal alles nog eens op usb moeten zetten :-[ :-[ :-X :-X

         mvg,lco

Offline lco

  • Oplosser
  • ****
  • Berichten: 759
  • Geslacht: Man
Re: nummers wisselen in combinatie met namen
« Reactie #9 Gepost op: 13 februari 2020, 17:42:07 »
SoftAid,Pitufo,

Kan ik een naam aan een bepaald nummer koppelen zonder de nummering te moeten verplaatsen dus beide namen laten omwisselen en daarna als het nodig is ergens een rij verwijderen door dubblklikken.
Nu worden de namen met een vast nummer via de userform in blad prijskamp ingevuld en daarna de resterende
Ps:bij de grote prijskampen zijn er 100 of meer leden ingeschreven en moeten we de lijst soms aanpassen.
Ik vraag misschien het onmogelijke ::) ::)

    mvg;lco

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: nummers wisselen in combinatie met namen
« Reactie #10 Gepost op: 13 februari 2020, 18:01:18 »
Dag Luc,

Dat is zeker haalbaar. Maar toen je enkel nummers wijzigde moest je niets anders doen dan ergens een nummer zetten. Dat is met namen een beetje vervelend, daarom heb ik een afwijkende manier verzonnen. In bijgevoegd voorbeeld heb ik beide procedures herschreven zodat ze elkaar niet meer in de weg zullen lopen. Kan je daar verder mee?
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline lco

  • Oplosser
  • ****
  • Berichten: 759
  • Geslacht: Man
Re: nummers wisselen in combinatie met namen
« Reactie #11 Gepost op: 13 februari 2020, 19:02:27 »
Pitufo,

Daar kan ik zeker iets mee ,kunnen ze weinig mee misdoen.
ps: dit is de gewenste oplossing op een andere manier :thumbsup: :thumbsup: :thumbsup:

dit zal zeker in de smaak vallen (niet te moelijk)  ;) ;)


    mvg,lco

 


www.combell.com