gegevens van Blad2 in Userform op Blad 1 weergeven

[jackfish]

Beste mensen,

Op Blad2 van het Excel-bestand staan gegevens van klanten. Met een knop op Blad1 roep ik het userform 'Overzicht' op waarin de klantgegevens worden geladen. Met de codes die ik bij elkaar sprokkelde lukt het maarniet om op blad 1 te blijven. Wie kan mij helpen.nl ?

Bekijk bijlage Test123.zip

 

[HSV]

Haal deze regelcode weg.

 Application.Goto Rng, True

Zet in een standaardmodule:

public Rng as range

En verander de code met activecell als volgt.

Private Sub UserForm_Activate()
For i = 1 To 7
   Me("Label" & i) = rng.Offset(, i - 1)
 Next i
End Sub

 

[jackfish]

Dank voor de snelle reactie HSV. Ik heb de code aangepast maar geeft foutmelding 91 tijdens uitvoering (Objectvariabele of blokvariabele With is niet ingesteld)

Onderstaande regel wordt geel gearceerd

Me("Label & i) = rng.offset(, i - 1

Als ik de onderstaande code goed begrijp dan
- staat i voor de cijfers 1 tot 7
- Me voor Userform2
- ("Label"& i) voor Label 1 tot 7 op Userform2
- Rng.Offset(, i-1) geeft aan welke label in de range aangesproken wordt. De functie van de komma snap ik nog niet.
- Next i, ga naar het volgende label

HSV: ... En verander de code met activecell als volgt.

Private Sub UserForm_Activate()
For i = 1 To 7
Me("Label" & i) = rng.Offset(, i - 1)
Next i
End Sub

Bekijk bijlage Test123 - HSV.zip

 

[snb]

Geen gesprokkel: http://www.snb-vba.eu/VBA_Userform_in_database.html

 

[HSV]

Vergeten te vermelden.

Verwijder....

Dim Rng as Range

in de "Find_First" sub nog.

Oh ja, Je hoeft kleine bestandjes niet te zippen hoor.

De functie van de komma:
offset(0,0), de eerste nul geeft de rij, na de komma de kolom.

 

[jackfish]

@ HSV, thanks, that did it.
@ snb, interessante link. Ik ga het voorbeeldbestand bestuderen.

 

[jackfish]

snb, mooi formulier met extra functionaliteit. Het werkt als een speer.

Graag zou ik dat formulier integreren in een ander excelbestand. Ik heb uw formulier exact nagemaakt, althans voor zover ik dat kan zien. Echter ik krijg het userformulier niet opgestart. Wel verkrijg ik de fout -2147024809 (80070057), kan het opgegeven object niet vinden. Bij de foutopsporing wordt scherm.show gearceerd.

Wat doe ik verkeerd, vergeet ik, zie ik niet ...

Bekijk bijlage sbn nagedaan.zip

 

[snb]

gebruik F8 in de VBeditor.

Wees terughoudend met het ongericht verwijderen van elementen in het userform; kijk per ongeluk ook eens naar de namen van die userformelementen.

 

[jackfish]

Ik heb mijn slordigheden gevonden in de titels en tekst (van 0 tot 5 is niet hetzelfde als 1 tot 6)
ik heb ook gezien dat de eerste sheet van u Da_ heet, maar die naam kan ik er niet aan geven (ongeldige waarde voor eigenschap). Als ik die naam wijzig naar Blad1 maakt dat voor de werking van uw formulier ook niet uit.
Zover ik kan zien heb ik geen formulierelementen verwijderd of overgeslagen
Met F8 krijg ik geen aanknopingspunten om het probleem te tackelen.

Misschien nog een aanwijzing :thumb:

Bekijk bijlage sbn nagedaan v2.zip

 

[snb]

kijk eens naar het aantal kolommen in het werkblad 'data' en het aantal labels in het userform.

Met F8 wordt exact duidelijk waar de schoen wringt.

 

[jackfish]

Hartelijk dank voor de aanwijzing. Het werkt nu perfect.