Help!

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

Hulp bij posten

Recente topics

Auteur Topic: meerdere keuzes mogelijk maken in vervolglijst  (gelezen 51090 keer)

0 leden en 1 gast bekijken dit topic.

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #45 Gepost op: 01 december 2014, 13:00:18 »
heb een filelistbox gemaakt voor de knooppunten afbeeldingen.
vraag: krijg het niet voor mekaar om ik meerdere file types te selecteren (jpg, bmp, png...)

Als je voor elke extra extensie onderstaand deel onmiddellijk eronder herneemt (uiteraard met aangepaste extensie en indien nodig path aanpassen) moet dat lukken

    fName = Dir(fPath & "*.bmp")
    While fName <> ""
        I = I + 1
        ReDim Preserve fileList(1 To I)
        fileList(I) = fName
        fName = Dir()
    Wend
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #46 Gepost op: 01 december 2014, 14:30:05 »
inderdaad pitufo, simpel maar ge moet het weten.
nu heb ik ondertussen op ' blad knooppunten' getest met een listbox te maken die ook de desbetreffende afbeeldingen kan tonen. (google...): naam linker kolom verbonden met afbeelding rechterkolom.

op blad knooppunten heb ik lang moeten zoeken, maar denk dat het een probleem was van Cel benoeming: rit1... vervangen door ritA en het lukte (eerst ging hij altijd naar ref RIT op blad.

op sheet1 probeer ik hetzelfde met de originele namen, maar dat lukt me niet.

nu heb ik al op sheet1 rit1 vervangen door Rit 1, of Rit Een, of de format cells aangepast met custom en standaard vervangen door "Rit"0

heb je hier een idee over?
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #47 Gepost op: 01 december 2014, 22:34:34 »
Adri,

nu heb ik ondertussen op ' blad knooppunten' getest met een listbox te maken die ook de desbetreffende afbeeldingen kan tonen. (google...): naam linker kolom verbonden met afbeelding rechterkolom.

Daar vind ik in je laatste bijlage niets van terug. Anderzijds, als experiment kan het de moeite zijn, maar ik vond ergens dat je ritten en je afbeeldingen dezelfde nummering aanhouden. Dan ga je toch en een behoorlijke omweg maken, en je bestand nog zwaarder belasten met die extra werkbladen.

Listbox op je blad DataIngeven en deze vullen met macro is wel een goed idee (al zou ik nog altijd eerder pleiten om gewoon een nummer in te vullen - of bij nader inzien zelfs niets, want je kan ook het nummer uit "Rit" pakken).
Listbox dus. Vermits je daar al een gelinkte cel hebt in voorzien kan je bij kopiëren naar Lijst de afbeelding onmiddellijk op de juiste plaats laten terechtkomen.

als ik het met comment doe, kan ik die dan ook een bepaalde plaats zetten/schikken?
knooppunten en meteo afbeeldingen mogen niet overlappen.

Kwestie van smaak, maar om het visueel een beetje aantrekkelijk te houden zou ik "Weer" wat lager op Lijst laten terechtkomen, dan kan je daar Meteovista als commentaar aanhangen en knooppunten aan "Rit".

De code om dat te automatiseren heb je al, dus nog enkel de cel bepalen :

In Sub Button20_Click() heb je zelf al dit gezet :
Application.Goto Reference:=Worksheets("Lijst").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0), Scroll:=True
Daarmee ga je naar de linkerbovenhoek van de range waar je de gegevens wil plakken. In elk geval zou de opmerking in kolom B komen. Voor de rijen voor Meteovista en knooppunten tel je er, afhankelijk van je keuze, de nodige rijen bij.
En de code die je onder "Toon knooppunten" en "Meteovista" hebt staan voeg je toe aan Button20_Click.
Vervolgens mogen die knoppen en code weg.

Dit alles aangenomen dat, maar daar twijfel ik niet aan, je een tweede listbox voor Meteovista zal maken.

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

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #48 Gepost op: 02 december 2014, 09:31:54 »
begint nu stilaan te dagen denk ik.
oef voor mij, maar zeker ook voor pitufo.

heb nu op 'data ingeven' een groene knop ivm knooppunten per rit uit een dir van ritten op mijn pc.
werkt prima, maar moet natuurlijk nog wat bijgesteld worden.
met dank aan een video tutorial.

alleen de code voor het verwijderen van de vorige afbeelding (eerste deel bij de knop) lukt me niet.
wat loopt er fout: 'picture' moet verwijderd worden: excel zou automatisch de naam 'picture' geven aan het desbetreffende object. (ook in excel2010?)
kan ik de eigenschap (naam...) van het ingevoegde object ergens vinden of is dat altijd picture...

ik zou de getoonde afbeelding eerst moeten invoegen in  blad 'lijst': rechtstreeks als afbeelding of kan dit via de link naar betreffende RitNaam  die gemaakt is op Data Ingeven?
Of in Comment ?
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #49 Gepost op: 02 december 2014, 09:38:23 »
sorry, maar eerste deel (verwijderen van de vorige afbeelding) is ondertussen opgelost.
hoe???? sluiten en terug openen???naar developer mode gegaan en terug???
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #50 Gepost op: 02 december 2014, 12:50:25 »
Adri,

Ik moet in herhaling vallen, want ik snap echt nog steeds niet waarom je wil vasthouden aan het neerzetten van een afbeelding op DataIngeven. Alles wat je daar nodig hebt is de naam van die file en die haal je al uit je listbox. Op basis daarvan kan je de afbeelding rechtstreeks in de juiste cel (of een celopmerking) zetten, of beter gezegd : laten zetten door de macro die voor het kopiëren naar Lijst zorgt.
Lees er anders mijn uitleg van gisteren nog eens op na, ik denk echt dat je dat in orde krijgt  ;)
 
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #51 Gepost op: 02 december 2014, 22:00:39 »
Adri,

Ik had het zelf nog niet getest, maar 't kon moeilijk fout gaan.
Ondertussen toch iets gesimuleerd.

In je Sub Button20_Click() heb ik na jouw "ActiveSheet.Paste" onderstaand stukje code toegevoegd :

Cells(ActiveCell.Row + 1, ActiveCell.Column + 1).Select
actievecel = ActiveCell.Address
With Selection
    .AddComment
    .Comment.Visible = True
    .Comment.Text Text:=""
    .Comment.Shape.Select
End With
Selection.ShapeRange.Fill.UserPicture "c:\...\...\" & Sheets("DataIngeven").Cells(12, 2).Value
Range(actievecel).Select

Verder de 3 overbodige knoppen op DataIngeven verwijderd, evenals de 2 sheets met afbeeldingen.
Werkt zoals verwacht.

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

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #52 Gepost op: 03 december 2014, 08:57:26 »
misschien bijlage vergeten pitufo?
heb de code ingevoegd, maar krijg dan alleen de naam van de rit bij veld datum.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #53 Gepost op: 03 december 2014, 12:42:25 »
misschien bijlage vergeten pitufo?

Juist niet ! Toen ik vroeger bijlagen met verbeteringen toevoegde stelde ik vast dat je nadien liever teruggreep naar jouw eerdere versie om daar soms (een deel van) de suggesties in op te nemen, maar voor de rest liever bleef doorwerken met heel wat ballast.

Om je dus niet opnieuw met die verscheurende keuze te confronteren  8)  had ik deze keer enkel een stukje code bezorgd. Enkel die op de goede plaats invoegen zou tot het juiste resultaat moeten leiden. Het overtollige opruimen zou mogen maar is niet noodzakelijk voor een correcte werking.
 
Ik kan nu ook niet zien wat er gebeurt, maar als je knop "Waarden kopiëren naar Lijst" nog de macro Button20_Click() uitvoert en je de extra code op de juiste plaats hebt ingevoegd zie ik niet waar het fout kan gaan.
 
Als je het echt niet goed krijgt mag je nog steeds je laatste bestand bezorgen.
 
Mvg,
pitufo
 
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #54 Gepost op: 03 december 2014, 14:50:04 »
ok pitufo, na wat zoeken weer toegepast.
dit is wat ik zocht.
bedankt.

kan je de grootte van de comment ook aanpassen? (nu nog wat klein, maar is gewoon om een mooie layout te hebben).
misschien is het toch goed om jouw bijlage nog eens door te sturen.
want ik heb precies wel veel modules (misschien wat uitleg?)
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #55 Gepost op: 06 december 2014, 11:08:38 »
hier nog eens mijn laatste oefening.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #56 Gepost op: 06 december 2014, 20:22:18 »
Hallo Adri,

Heb je laatste versie eens bekeken, maar ondertussen was ik al even bezig geweest met aanpassingen aan je vorige.

ik heb precies wel veel modules

Uit die vorige heb ik inderdaad heel wat opgeruimd : overbodige modules, maar ook procedures, buttons en een paar werkbladen. En daarnaast nog wat verbeteringen links en rechts.

Sommige daarvan heb jij ondertussen blijkbaar ook voorzien in je nieuwste versie, dus ik twijfel er niet aan dat je met wat creativiteit die 2 bestanden perfect tot een exemplaar weet te combineren dat aan je wensen voldoet.

Ik had trouwens ook de volgorde van de velden op je invoerblad een beetje gewijzigd om op die manier de afbeeldingen op een visueel attractieve manier aan een relevante cel te kunnen koppelen.

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

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #57 Gepost op: 07 december 2014, 11:20:31 »
misschien ook wat advies ivm met beveiligen/verbergen van werkbladen en/of vba code.
wil namelijk maar een deel (vb lijst en statistieken) doormailen naar vrienden: hoe best?

Je kan verbergen en beveiligen wat je maar wil, wie een beetje zijn best zoekt komt er wel achter.
Maar in dit geval hoeft dat geen probleem te zijn.
De zekerste manier EN tegelijk de gemakkelijkste : voorzie nog een stukje code waarmee je een kopie van je bestand maakt die daar meteen alles uit verwijdert wat je niet wil delen.

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

Offline adri

  • Ervaren lid
  • ***
  • Berichten: 421
  • Geslacht: Man
  • De Oplossing!
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #58 Gepost op: 07 december 2014, 14:46:52 »
in een andere topic (listbox met getallen sorteren) gaf je een oplossing om de ritten met getal als custom te benoemen.
kan ik dat hier ook ergens integreren met vba in de listboxen ritten en meteo?

maw omzetten van rit1.... (getalnotitie) naar rit1... (custom).
of kan ik dat toch rechtstreeks bij opslaan van de rit in de desbetreffende map.
Asus k750jb.
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-4700HQ CPU @ 2.40GHz 2401
X750JB
NVIDIA GeForce GT 740M        2048MB 1600 x 900
Realtek High Definition Audio
Nr: 1 Model: PLEXTOR PX-256M5S
C:\ NTFS 183,18GB 6,54GB 12 173MB
AV: AVG
FW: Windows Firewal Enabled: True

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: meerdere keuzes mogelijk maken in vervolglijst
« Reactie #59 Gepost op: 19 december 2014, 23:09:49 »
Adri,

Ik heb je laatste versie die je via e-mail stuurde nog eens kunnen inzien. De macro's één voor één nakijken is natuurlijk onbegonnen werk. Het lijkt me meer aangewezen dat je het bestand gewoon in gebruik neemt en als je ergens een fout tegenkomt goed noteert op welke procedureregel dit gebeurt en dan kan dat wel worden rechtgezet.

Heb wel direct deze zien staan : op blad DataIngeven staat in Private Sub Worksheet_Activate() helemaal onderaan een noodzakelijke regel gewoon als commentaar :
For E = 1 To UBound(fileList)
       Me.ListBox1.AddItem fileList(E)
'Next

Ook staan er nog enkele knoppen die je terug naar je formulier zouden moeten brengen maar die nog aan een foute procedure gekoppeld zijn.

toch nog een vraag ivm de listboxen van meteo en ritten.
kan ik die sorteren zodat de laatste bovenaan komt

Hangt er maar vanaf wat uiteindelijk het interessantste blijkt te zijn : je zou ze op je bron-werkblad kunnen sorteren voor ze in je listbox terechtkomen, maar net zo goed eens ze er in zitten.
Trouwens, wat ik me in jouw plaats zou afvragen : moeten ze wel allemaal in die listbox ? of zou een beperkt aantal (de laatste dus) niet handiger zijn ?

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

 


www.combell.com