Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 18 van 18

Onderwerp: gegevens wegschrijven via een userform

  1. #1
    Senior Member
    Geregistreerd
    4 maart 2007
    Vraag is niet opgelost

    gegevens wegschrijven via een userform

    Beste Experts,

    een momenteel bezig met het maken van een excel bestand waarbij ik gegevens wil wegschrijven via een userform.
    Echter ik kom er niet verder mee.
    Het wordt voor mij te complex doordat er meerde keuze per land zijn (omschrijvingen)

    Ik heb in de Excel file in de textvak een beschrijving gemaakt wat precies de bedoeling is.
    Hopelijk heb ik het duidelijk genoeg omschreven wat de bedoelingen zijn.
    Zie Bijlage

    Voorbaat dank.
    Jan E
    Attached Files Attached Files

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    VBA script gevraagd Excel bestand is en geen duidelijke omschrijving van de een vraag en gaat ook het doel van dit forum voorbij. De vraag en de code zijn niet eenduidig wat het nog makkelijkere maakt. Twee knoppen met dezelfde naam geven ook zeer veel inzicht wat je wil.

    In de bijlage mijn interpretatie van een deelprobleem. (selecteer een land in de combobox en klik op een tekst in de listbox)
    Attached Files Attached Files
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  3. #3
    Beheerder
    Verenigingslid
    mastermindzh's avatar
    Geregistreerd
    10 december 2008
    Locatie
    Oss
    Afstand tot server
    ±64 km
    Beste Jan excel,

    Ik heb uw vraag even een duidelijkere titel gegeven
    Met vriendelijke groet, Rick van Lieshout
    of op: http://rickvanlieshout.com

  4. #4
    Senior Member
    Geregistreerd
    4 maart 2007
    Hoi V&A en andere Experts

    V&A,

    Jou code voor het vullen de textboxen werkt zoals bedoelt.
    Nu dienen de gegevens in de TextBox1 t/m TextBox5 en de landcode in ComboBox1 weggeschreven worden naar het invulblad in de corresponderende kolommen.
    De gegevens dienen altijd in de eerste lege regel worden weggeschreven, in dit voorbeeld dus regel 3.
    Welke code dient dan toegepast worden voor CommandButton2 in het UserForm.
    update bijlage toegevoegd.

    Wie kan mij daarbij helpen.

    Alvast bedankt.
    Jan E

    Helpmij2.xlsm

  5. #5
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Volgens mij zijn zulke basale zaken eenvoudig te vinden. Maar goed

    Code:
    Private Sub CommandButton2_Click()
        Sheets("Invulblad").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 6) = Array(ComboBox1, TextBox1, TextBox2, TextBox3.Value, TextBox4.Value, TextBox5)
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  6. #6
    Senior Member
    Geregistreerd
    4 maart 2007
    Beste V&A,

    Ten eerste dankjewel voor je reactie en script.
    Echter de code voor het weg schrijven naar invulblad lukt niet, er wordt helemaal niks weggeschreven.
    Wat doe ik fout of ontbreekt er wat aan de code.

    zie bijlage.

    Helpmij3.xlsm

  7. #7
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Kijk eens in rij 29. Als je overal zwevende rommel hebt staan dan kom je natuurlijk niet in rij 3 uit.
    Laatst aangepast door VenA : 7 december 2018 om 18:34
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  8. #8
    Senior Member
    Geregistreerd
    4 maart 2007
    Beste V&A,

    Wat dom had ik niet gezien, in ieder geval bedankt, code is dus wel goed.
    Nu kan ik weer verder.
    Zal vast nog wel terug komen voor een vervolg vraag hopelijk zijn jullie Experts dan ook weer behulpzaam.

    Groetjes,
    Jan E

  9. #9
    Senior Member
    Geregistreerd
    4 maart 2007
    V&A en overige forumleden,


    De code die ik van V&A heb gekregen dient wat aangepast te worden doordat de tabel in werkblad info is gewijzigd.
    Er is een kolom G toegevoegd aan de tabel, in deze kolom komt de laatste gebruikte doos te staan die vanuit een andere werkblad
    wordt gehaald. In dit voorbeeld is een situatie handmatig in kolom G gecreëerd wat in de praktijk ook zo kan zijn.
    Nu is het de bedoeling dat altijd het laatst vermelde "vorige doos" die in kolom G staat ook in TextBox 6 komt te staan (UserForm1)
    Deze wordt dan weer weggeschreven, denk dat mij dit dan wel zelf lukt ter aanvulling van de code die v&A mij heeft gegeven.
    Zo niet dan meld ik mij wel weer.


    V&A of overige forumleden weet jij/iemand dit te realiseren.
    Zie bijbijlage.

    Helpmij4.xlsm

    Groet,
    Jan E

  10. #10
    Senior Member
    Geregistreerd
    23 mei 2013
    ik denk niet dat er veel mensen uw uitleg zullen begrijpen.

    Nu is het de bedoeling dat altijd het laatst vermelde "vorige doos" die in kolom G staat

    speelt het land een rol of moet er ergens naar gezocht worden in een grote hangaar?
    Attached Files Attached Files

  11. #11
    Senior Member
    Geregistreerd
    4 maart 2007
    Emields en overige forumleden,

    Dank je wel voor je reactie en aanvulling van de code.
    Echter het weergeven van de vorige doos in TextBox6 is anders bedoelt.
    Je moet het zo zien Kolom A t/m F lopen synchroon aan de land keuze.
    Echter de vorige doos in kolom G dien je hiervan los te zien.
    Dus m.a.w. heb ik een code nodig voor TextBox 6 die de vorige doos toont die boven de eerste lege regel staat in kolom G.
    (ER komt na invoeren van laatste gegevens in een andere werkblad in mijn project telkens weer een volgende vorige doos erbij te staan ik kolom G)

    Betreft je vraag over de landkeuze, ja het is nodig om eerst een landkeuze te maken omdat in de praktijk per land er heel veel omschrijvingen zijn.
    Door eerst een land keuze te maken worden aantal omschrijvingen in ListBox1 minder en daardoor eenvoudiger een omschrijving te selecteren behorende bij dat land.


    hopelijk is het nu wat duidelijker.
    Jan E

  12. #12
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    De code die ik van V&A heb gekregen dient wat aangepast te worden doordat de tabel in werkblad info is gewijzigd.
    Lijkt mij niet het doel van dit forum.

    De vraag begrijp ik niet. Leg zaken duidelijk uit en benoem tabnamen waar iets moetkomen. Hoe zie je dit voor je?
    Dus m.a.w. heb ik een code nodig voor TextBox 6 die de vorige doos toont die boven de eerste lege regel staat in kolom G.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  13. #13
    Senior Member
    Geregistreerd
    4 maart 2007
    Hoi Allemaal,

    Even een nieuwe poging, op een andere wijze.
    Hopelijk is nu e.e.a duidelijker wat de bedoeling is.

    In het tabblad "invulblad" wil ik de vorige doos van vorige werkorder vermelden in kolom D van een nieuwe werkorder die daarop volgt. (dus volgende regel)
    In kolom A van het "invulblad" staat een formule die de vorige doos van vorige werkorder vermeld in de volgende regel in kolom A.
    De bedoeling is nu dat in UserForm1 deze vorige doos in TextBox6 komt te staan zodat bij het wegschrijven van alle gegevens die in UserForm1 staan op de eerste lege regel vanaf kolom A wegschrijft.
    De code die aan CommandButton2 hangt is hierop al ingericht.
    Echter mijn probleem is dat ik het niet voor elkaar krijg om in TextBox6 (UserForm1) de laatste regel met tekst in kolom A te krijgen.

    De gegevens die nu in kolom D staan zijn er handmatig in gezet als voorbeeld zoals het dient te zijn.
    Dus bij de volgende werkorder dient in cel d7 wit 30x50 te staan.
    zie ook bijlage.

    Helpmij4.2.xlsm


    groet,
    Jan E

  14. #14
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Met Kolom A Kolom D maak je het er weer, volgens mij, niet duidelijker op. Bedenk eerst even wat het worden moet en hoe het resultaat er uit moet zien ipv steeds weer met misleidende informatie te komen.
    Laatst aangepast door VenA : 9 december 2018 om 18:54
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  15. #15
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Code:
    Private Sub CommandButton2_Click()
     Sheets("Invulblad").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 7) = Array(ComboBox1, TextBox1.Value, TextBox6.Value, TextBox2.Value, TextBox3.Value, TextBox4.Value, TextBox5.Value)
     Sheets("Blad1").Range("G8") = TextBox2.Value
    End Sub
    Code:
    Private Sub ListBox1_Click()
      For j = 1 To 5
        Me("TextBox" & j) = ListBox1.Column(j)
      Next j
     TextBox6 = Sheets("blad1").Range("G8").Value  'of .Cells(Rows.Count, 7).End(xlUp)
    End Sub
    Laatst aangepast door HSV : 9 december 2018 om 19:36 Reden: 7
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  16. #16
    Senior Member
    Geregistreerd
    4 maart 2007
    Hoi Allen,

    De code van HSV was bijna goed, twee kleine aanpassingen en het is nu goed, zie onderstaand.
    Allen bedankt voor jullie inbreng en sorry als ik wat onduidelijk ben.
    Vind het best wel lastig hoe e.e.a te omschrijven, maar uiteindelijk komen wij er toch uit.

    Code:
    Private Sub CommandButton2_Click()
     Sheets("Invulblad").Cells(Rows.Count, 2).End(xlUp).Offset(1).Resize(, 6) = Array(ComboBox1, TextBox1.Value, TextBox6.Value, TextBox2.Value, TextBox3.Value, TextBox4.Value, TextBox5.Value)
     Sheets("Blad1").Range("G8") = TextBox2.Value
    End Sub
    Kan nu verder met het project, zal vast nog wel wat vervolg vragen komen.


    Groet,
    Jan E

  17. #17
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Code:
    .Resize(, 7) =Array(ComboBox1, TextBox1.Value, TextBox6.Value, TextBox2.Value, TextBox3.Value, TextBox4.Value, TextBox5.Value)
    of:
    Code:
    .Resize(, 6) =Array(ComboBox1, TextBox1.Value, TextBox6.Value, TextBox2.Value, TextBox3.Value, TextBox4.Value)
    Laatst aangepast door HSV : 9 december 2018 om 20:12
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  18. #18
    Senior Member
    Geregistreerd
    4 maart 2007
    HSV,

    Je hebt gelijk moet 6 zijn !

    groet,
    Jan E

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren