• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Database voor CD's

Status
Niet open voor verdere reacties.
E

elloco

Gebruiker
Lid geworden
22 nov 2007
Berichten
83
Hallo,

Ik ben bezig met het maken va een database voor CD's.

Ik wil vragen of wat ik in gedachte heb misschien technisch mogelijk is, bijvoorbeeld:

1 Rijnummer 14 van tabladpagina CD's pagina selecteren en de inhoud van dat rij wordt dan automatisch weergegeven op tablad formule plakken bij opmerking onder rijnummer 7

2 Als ik bijvoorbeeld rij 3 selecteer van tablad CD's pagina, dan moet dat weergegeven worden op tablad formule plakken bij opmerking onder rij nr 7

3 Dus elke keer dat ik een rij selecteer onder tablad CD'S pagina moet de inhoud van dat rij weergegeven worden op rij 7 van tablad formule plakken bij opmerking, enz, enz, enz.

Is dit mogelijk ?

Zie voorbeeld: Bekijk bijlage CD datalijst forum.xlsb
 
Heb je hier niet meer aan?
Kan je exporteren naar csv (te gebruiken in excel) en html etc.
 
jackall bedankt voor je reactie, dat zoek ik niet.

Ben bezig met een eigen database.

Maar evengoed heel erg bedankt voor het meedenken. :thumb:
 
VenA, bedankt voor je reactie.

Ik klik dubbel op welke willekeurig rij dan maar ook, maar het wordt niet gekopieerd naar dat andere werkblad, wat gaat fout of wat doe ik fout ?
 
Hoi, ik zie het nu.

Ik moest kilkken op A1, A2, Of A5, enz, enz, enz.

Ik klikte op rijnummers en dus gebeurde niets , :D

Kan dit ook maar klikken op de rijnummer zelf, of gaat dat niet
 
In ieder geval dit werkt perfect, heel erg bedankt.

Ik laat deze draad nog even open voor het geval dat iemand weet of klikken op rijnummer mogelijk is.

VenA, nogmaals bedankt.
 
Beste,

Heb je ervaring met VBA? Staat de optie "Macro's niet inschakelen" soms aangevinkt bij de instellingen van Excel?
 
Klikken op rijnummer, en dan knop
Kan ook met meerdere rijen tegelijk
 

Bijlagen

Laatst bewerkt:
Tekint, ik ben wel bekend met "Macro's wel / niet inschakelen", dat is het punt niet en ook niet mijn vraagstelling, evengoed heel erg bedankt voor je reactie.

Wieter, dat is ook wel een oplossing maar het resultaat moet wel verschijnen bij rijnummer 7, en niet steeds een regel opschuiven.
Ook jij bedankt.

De optie van VenA voldoet voor nu prima, alleen zou het beter zijn om de bewuste hele regel te kiezen en dat dat dus bij de andere tablad op rij nummer 7 zou komen te staan, waarschijnlijk is dat onmogelijk, ik weet het niet? maar de wonderen zijn de wereld nog niet uit, maar zoals eerder al gezegd met de oplossing van VenA kan ik ook heel goed uit de voeten, alleen ben ik nu erg nieuwsgierig of wat ik wil wel kan.
 
Wat bedoel je met een hele regel? Je hebt nu gegevens staan t/m kolom AA dit is kolom 27. Vandaar de resize(,27). Verder is het niet echt zinvol om alle rijen en kolommen op voorhand al van opmaak te voorzien. Dit maakt bestanden onnodig groot.

Om de gehele rij te kopiëren.

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 3 Then Target.EntireRow.Copy Sheets("Formule plakken bij opmerking").Rows(7)
Cancel = True
End Sub
 
Hoi VenA, ik begrijp heel erg goed dat dit verwarrend is.

Wat ik bedoel is dat als je met je muis naar rij (bijvoorbeeld) 6 toe gaat en je selecteer die, dat de gegevens zeg maar van kolom A t/m AA automatisch worden gekopieerd op dat anderen tablad en wel op rij nr 7.

Dus niet eerst klikken op cd nummer 3,kolom A, zoals bij je post nummer 4 beschreven is, welke het voor mij prima voldoet.

Waarschijnlijk moet wat ik zou willen, inderdaad met een knop zoals wieter beschrijft op post nummer10
 
Maak dan gebruik van het Worksheet_SelectionChange event.

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 3 Then Sheets("Formule plakken bij opmerking").Cells(7, 1).Resize(, 27) = Cells(Target.Row, 1).Resize(, 27).Value
    Sheets("Formule plakken bij opmerking").Activate
End Sub

Wat is het doel hier eigenlijk van?
 
Oke VenA,

Dit is oke # 14, maar niet helemaal wat ik bedoel, als ik nu op welke willekeurig rij klik dan doet het wat ik vraag, maar hij schiet gelijk naar dat ander werkblad, in een flits.

Ook als ik op een ander willekeurig cel er op klik schiet hij als een flipperkast naar dat ander werkblad.

Dat wil ik niet.

Je vraagt wat wel de bedoeling hiervan is, ik zal het proberen het uit te leggen, zo kort en duidelijk mogelijk.

1e Werkblad: formule plakken bij opmerking, is een hulpmiddel werkblad.
2e Ik kopieerde eerst de hele rij (bijvoorbeeld nr 3) van werkblad CD’s pagina en plakte het op werkblad “ formule plakken bij opmerking ”, en wel op rijnummer 7.
3e F2 van CD’s pagina heb ik het gekoppeld aan het beruchte regel nr 7 van werkblad “ formule plakken bij opmerking ” .

Waarom doe ik dat?

Ik wil de tracks wat ik al eerder ingevuld heb, in een opmerking invoegen onder werkblad CD’S pagina onder kolom C en bij het bijbehorende CD.

Als ik al die tracks selecteer en kopieer van (Bijvoorbeeld CD 11) G 14 t/m AA 14 en ik wil dat plakken onder opmerking in dat bewuste cd van kolom C 14, dat gaat dus niet.

Soms kan ik dat wel doen door op internet te zoeken en de tracks te selecteren, kopiëren en in de opmerking te plakken, soms lukt dat en soms lukt dat dus mooi niet.

Dus doordat ik de gegevens doorsluis naar hulpblad “formule plakken bij opmerking” en doorkoppel aan wekblad “CD’s pagina” op F2, kan ik de tracks kopiëren en op kladblok plakken.

Het resultaat daarvan is een lange rij tekst, ik ga met mijn cursor op 02…………. staan en druk op enter,daarna op 03……….. en enter, enz,enz,enz.

Tot dat ik een keurig rij krijg met mijn tracks op volgorde.

Vervolgens selecteer ik alle tracks welke keurig staan in een rij (volgorde) en knip ik dat, zodat mijn kladblok leeg raakt.

Ik ga daarna naar excel: CD’s pagina en plak de inhoud van kladblok in mijn opmerking van in dit voorbeel d C 11.

Klaar.

Je oplossing van # 10 werkt perfect.

Ik heb ongeveer 1000 CD’s en ik zou om mijn doel te bereiken 2000 x moeten klikken om al mijn cd’s in te voeren met opmerkingen (tracks).

Dat kan makkelijker met 1 klik.

Kan je in plaats van double click dat ook bereiken met 1 click.

Dan was mijn probleem, als dat het wel is, opgelost zijn.

Let op!! Ik heb wel gemerkt dan op kolom A sommigen CD nummers wel met 1 klik gaan, kan dat ingesteld worden voor alle CD’s nummers.

En een tweede vraag gelijk er achter aan, is het mogelijk dat bij mijn invulwerkblad, bij gegevens invullen dat de tracks in 1 keer bij een opmerking worden ingevoerd, dat lijkt me niet mogelijk, maar jullie zijn de specialisten en weten misschien daarvoor wel een oplossing.

Let op!!!! Invulblad heb ik niet hier bijgevoegd om dit niet te ingewikkelder te maken, dit is alleen een vraag of het mogelijk is.

Bekijk bijlage CD datalijst forum.xlsb
 
Perfect dat is wat ik zocht. :thumb:

En op terug te komen op mijn tweede vraag, als je een invulwerkblad hebt waar je gegevens invoert, en die verzend je naar een ander werkblad is het mogelijk om de tracks gelijk ingevoerd te krijgen in een opmerking van een cel, automatisch.
 
Om de comments toe te voegen zonder extra blad.

Code: 
Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 3 Then
    For j = 7 To 27
        If Cells(Target.Row, j) <> "" Then c00 = c00 & Cells(Target.Row, j) & Chr(10)
    Next j
    Set c = Cells(Target.Row, 3).Comment
        If Not c Is Nothing Then
            c.Text c00
          Else
            Set c = Cells(Target.Row, 3).AddComment
            c.Text c00
        End If
        Cells(Target.Row, 3).Comment.Shape.TextFrame.AutoSize = True
End If
Cancel = True
End Sub
 
Laatst bewerkt:
Hallo,

Ik ben nu bezig om de voorkantjes (frontjes) van de CD's handmatig in te voeren als opmerkingen, zie mijn voorbeeld bestand excel.

Bij de opmerkingen tracks is dat gelukt met vba code in te voegen, door te klikken bij kolom A op de nummer van het bewuste CD.

Nu komt mijn vraag, kan dat ook met frontjes, welke opgeslagen zijn op mijn bureaublad, onder de map benaming:
CD'S covers frontjes.

De covers bestanden zijn opgeslagen met .jpg bestand

Verder sla ik ze op door eerst de naam van de artist in te voeren, dan voeg ik een spatie en daarna - (middenstreep) en vervolgens weer spatie dan de naam van het CD, bijvoorbeeld:
Andre Hazes - Jah6 .jpg

Als dit mogelijk zou zijn dan zou ik het willen invoeren als opmerkingsbeeld met een vba code door te klikken net als bij de tracks maar dan te klikken op kolom B en dan de bijbehorende artist.

Dan zou de bijbehorende voorfront automatisch moeten overkomen van het map uit het bureaublad.

Ik weet niet of dit mogelijk is, omdat het frontje uit een map van buiten excel ingevoegd moet worden.

Ik ben benieuwd of dit wel kan.

Mocht dit niet kunnen, weten jullie dan misschien een ander oplossing.

Met de hand gaat natuurlijk ook, maar als het automatisch kan is dat beter.

Bekijk bijlage CD datalijst forum.xlsb
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan