• 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.

invoerscherm

Status
Niet open voor verdere reacties.
M

meesterf

Gebruiker
Lid geworden
17 nov 2007
Berichten
29
Hallo

ik wil een invoerscherm of formulier dat van blad1 de ingevoerde gegevens naar blad2 wegschrijft
Deze gegevens moeten worden opgeslagen maar ook weer met een ander blad worden op gevraagd. Het blad wat de gegevens opvraagd kan ik zelf genereren maar het lukt me niet om een invoerscherm/formulier te maken.


wie kan mij hier mee verder helpen. eventueel met formules of met vba
met vba ben ik een leek, dus dan liever kant en klaar format dat ik iets kan aanpassen.

Gegroet,

Frank.
 

Bijlagen

Frank,

Welke waardes worden ingevuld in de verschillende cellen?
Lokatienummer moet dit een random nummer zijn of een vaste waarde?
Moeten al deze waardes via een userform ingevuld worden?
Wat als er 1 of meerdere waardes niet ingevuld worden?

er zijn al veel van dit soort formulieren op het forum besproken/behandeld.
 
Bedankt voor de snelle reactie

Ik weet dat er al meerdere formulieren zijn besproken en toch lukt het mij niet.

Hierbij wat extra informatie zodat u mij wellicht verder kunt helpen

Lokatienummer is een vast nummer bij mij bekend
de andere waarden moeten inderdaad allemaal op het invoerscherm staan
nu werk ik met allemaal aparte bestanden van klanten maar het geeft problemen om al deze bestanden uit te lezen in een totaal bestand.
alle waardes zijn vereist anders komt uitlezen van het bestand de waardes door elkaar waardoor het hele bestand nutteloos is.
alle ingevoerde gegevens staan gelijk aan 1 hele regel in blad2
Wanneer niet alle waardes zijn ingevoerd dan moet hij stoppen en om de ontbrekende gegevens vragen of gewoon niet verder gaan met verwerken van de gegevens in blad2

verder wil ik dat wanneer een lokatienummer voor een tweede keer weggeschreven lijkt te worden, er een waarschuwing ontstaat die zegt dat er al een waarde beschikbaar is of overschreven wordt.

ik hoop dat het doel nu duidelijk is.

ik wil u alvast bedanken voor de snelle reactie

Frank:D:thumb::)
 
Frank,

Ik heb eens snel gekeken, maar dat zijn wel verschrikkelijk veel textboxen op 1 userform. (als je het op 1 blad wilt hebben)

Zijn er veldnamen die bij elkaar horen?
Zodat er met verschillende tabbladen gewerkt kan worden?

Het weg schrijven naar 1 excelblad is dan voor later, omdat in orde te krijgen.

Als de andere forumleden een beter voorstel hebben.

Ik zelf zit te denken aan een userform met tabbladen.
 
mogelijkheid

het is mogelijk om met 2 tabbladen te werken het meest voor de hand liggende is dan een splitsing te maken in

het eerste gedeelte cel1 t/m cel 15
het tweede gedeelte cel 21 t/m cel 61

of in drieen

deel 1 cel 1 t/m cel 15
deel 2 cel 21 t/m 49
deel 3 cel 51 t/m 61

het liefste in twee gedeeltes om het overzichtelijk te houden maar kijk of het mogelijk is.

ik hoor graag van iemand.

Bedankt alvast voor iedereen die meedenkt en reageert.


Frank
 
Ik heb u een begin gemaakt.
Als je nu de layout aanpast naar wens en de labels allemaal de passende waardes geeft( kun je gewoon in de label typen).

Ook de nodige textboxen invoegen(deze kun je gewoon kopiëren en zoveel als nodig plakken.

Dan zien we wel weer verder.

Cobbe
 
Laatst bewerkt:
Selecteer op Blad2 alle kolomkoppen en ga dan via:
Klik op OK op het gele scherm dat getoond wordt.

Data - Formulier en zie wat er gebeurt.

Cobbe
 
Aangepast

hallo nu heb ik de layout wat aangepast en de labels maar nu wil ik graag
wanneer ik op de knop begroting oplaan klik dat de betreffende gegevens naar
de betreffende kolommen op blad 2 worden verwerkt.

ik hoop dat iemand mij nu weer wat verder kan helpen.

Alvast bedankt.


Frank:thumb::)
 

Bijlagen

Code hieronder (met hulp van Roccanio + andere forumleden) gemaakt.
Even aanpassen naar je eigen behoefte.

Code: 
Private Sub CmdContactpersoon_Click()
    Dim ctl_Cont As Control
    Dim iRow As Long
    Dim ws As Worksheet

Set ws = Worksheets("Contactpersonen Club")
'find first empty row in database
        iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'copy the data to the database
    
    ws.Cells(iRow, 1).Value = Me.TxtNaamContact.Value
    ws.Cells(iRow, 2).Value = Me.TxtVoornaamContact.Value
    ws.Cells(iRow, 3).Value = Me.TxtAdresContact.Value
    ws.Cells(iRow, 4).Value = Me.TxtNrContact.Value
    ws.Cells(iRow, 5).Value = Me.TxtPostcodeContact.Value
    ws.Cells(iRow, 6).Value = Me.TxtGemeenteContact.Value
    ws.Cells(iRow, 7).Value = Me.TxtTelefoonContact.Value
    ws.Cells(iRow, 8).Value = Me.TxtEmailContact.Value
    ws.Cells(iRow, 9).Value = Me.TxtClubContact.Value
    Columns("A:I").Select
    Selection.Columns.AutoFit
    
For Each ctl_Cont In Me.MultiPage1.Pages(1).Controls
    If TypeName(ctl_Cont) = "TextBox" Or TypeName(ctl_Cont) = "ComboBox" Then
        If ctl_Cont.Value = "" Then
    MsgBox "De " & TypeName(ctl_Cont) & Space(1) & ctl_Cont.Name & " is niet ingevuld!"
        End If
    End If
Next
'clear the data
    Me.TxtNaamContact.Value = ""
    Me.TxtVoornaamContact.Value = ""
    Me.TxtAdresContact.Value = ""
    Me.TxtNrContact.Value = ""
    Me.TxtPostcodeContact.Value = ""
    Me.TxtGemeenteContact.Value = ""
    Me.TxtTelefoonContact.Value = ""
    Me.TxtEmailContact.Value = ""
    Me.TxtClubContact.Value = ""
    Me.TxtNaamContact.SetFocus
End Sub
 
lukt niet

hallo allemaal,

nu heb ik een probleem, ik wilde namelijk de code verstrekt door RaymondC invoegen
maar dit is niet gelukt. ik ben nog meer een leek dan mogelijk is want nu werkt mijn knop op blad1 ook niet meer, wie wil mij alstublieft helpen?

de code die RaymondC heeft gestuurd heb ik wel in module1 geplakt

Gegroet,

Frank.:(:confused:

please:)
 

Bijlagen

Frank, de code moet je achter het formulier plakken dus Rechtsklikken op Userform1 >> Programmacode weergeven >> Plakken

Mvg

Rudi
 
Warme bakkertje zei:
Frank, de code moet je achter het formulier plakken dus Rechtsklikken op Userform1 >> Programmacode weergeven >> Plakken
Klik om te vergroten...

Dat gaat helaas niet werken aangezien er in de code verwezen wordt naar besturingselementen (textboxen, commandbuttons, etc) die niet in het formulier staan.

Met vriendelijke groet,


Roncancio
 
Code hieronder (met hulp van Roccanio + andere forumleden) gemaakt.
Even aanpassen naar je eigen behoefte.
Klik om te vergroten...
Inderdaad niet, daarom dat RaymondC ook al had aangewezen dat ze moet aangepast worden naar eigen behoefte, maar ze moet wel eerst op de juiste plaats gezet worden.

Mvg

Rudi
 
Laatst bewerkt:
Het is meer dan alleen maar even aanpassen.

Bijv.:
- De namen van de besturingselementen (textboxen, commandbuttons, etc) komen niet overeen.
- De code schrijft weg per rij ipv per kolom.
- In dit bestand staan lege regels tussen de tekst. Dit zou moeten worden afgevangen.

Ik heb het niet eens over het feit dat er berekeningen tussen enkele tekstboxen plaats zouden moeten vinden (netto, bruto, e.d.)

Met vriendelijke groet,


Roncancio
 
Ik heb je een beetje op weg geholpen.

Cobbe
 
Laatst bewerkt:
Bedankt!

Hallo en alvast bedankt voor alle hulp.

Dit werkt inderdaad een stuk beter.
Ik wilde het meteen testen en keek op blad 2 en tot mijn verbazing stonden daar geen bedragen zoals 1000 of 2000 of 5000 maar kijkt u zelf maar.

Ik weet niet hoe ik dit moet aanpassen. Ik kan vrijwel geen vba en heb toch de wens om dit werkend te krijgen.

Is het verder mogelijk om het lokatienr te koppelen aan de naam, wanneer het lokatie nummer wordt ingevuld automatisch ook de naam wordt gevonden, bijvoorbeeld bij lokatienr 123 hoort "pietje"

verder zit ik er over te denk om sommige velden te laten berekenen. Zoals wanneer je de bruto omzet wordt ingevuld dan er bij label met af ob, bruto omzet x 6% doet en dan het correcte bedrag in blad2 plaatst.

Als dit laatste mogelijk is heb ik slechts 18 velden nodig ipv 31

Met vriendelijke groet,

Frank.
 

Bijlagen

Hij schrijft natuurlijk wel alles weg naar de goede plaats, alles wat er in staat zijn testcijfers die ik er heb ingezet.
Haal die weg en je kunt aan de slag.

Geef eens aan welke nummers en namen, welke velden moeten berekend worden.

Cobbe
 
Laatst bewerkt:
Ten eerst SUPER bedankt!

Sorry ik wist niet dat het jouw testcijfers waren.

Het werkt perfect

ik heb nu een regel zelf ingevoerd en bij de labels op blad 1 geschreven wat de bedoeling is

ik hoop dat u/je mij verder kunt helpen.

Geweldig dat u/je dit wilt doen.

Met vriendelijke groet,


Frank:thumb::):D
 

Bijlagen

Ik heb nog een beetje aan het bestand gewerkt.
Daar is nog tamelijk wat werk aan.
Maar door de code die er nu in staat kun je heel veel zelf uitdokteren.

Succes, Cobbe
 
Laatst bewerkt:
Bedankt!

Ik wil jouw super bedanken voor al het werk dat je erin hebt gestopt en de moeite die je ervoor hebt gedaan.

Ik ga er nog verder aan sleutelen maar bij dezer wijze in ieder geval,

BEDANKT!!!!!

Gegroet,

Frank.:thumb:;):D
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan