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

Quote

Weergeven resultaten 1 tot 9 van 9

Onderwerp: waarde uit cel automatisch ingevuld in userform en tekstbox beveiligd

  • Vraag is opgelost
  1. #1

    waarde uit cel automatisch ingevuld in userform en tekstbox beveiligd

    Goedeavond,

    Heb een gewone userform gemaakt waar wat getallen en namen worden overgenomen in een excel sheet

    Nu mijn vraag in 1 tekstbox in mijn userform ,zou ik graag wat willen zien wat in een bepaalde cel uit de excel sheet staat.


    Had wat gevonden maar dat werd pas ingevuld na dat ik klikte in de tekstbox en wat probeerde in te voeren


    De waarde uit tekstbox 14 gaat naar sheet 1 H17
    de waarde uit tekstbox 13 gaat naar sheet 1 H16
    deze worden gedeeld =(H17/H16)
    deze uitkomst zou naar tekstbox 20 in het userform moeten gaan , en deze teksbox zou eigenlijk net als in een sheet
    beveiligd moeten worden tegen overschrijven.

    En dan zou hij het automatisch moeten overnemen niet met een command knop

    Heb dit geprobeerd maar krijg dan fout melding wordt al gebruikt
    Private Sub UserForm_Initialize()

    dit staat al in Initialize
    Code:
    Private Sub UserForm_Initialize()
    With Me
    .Height = Application.Height
    .Width = Application.Width
    .Left = Application.Left
    .Top = Application.Top
    End With
      
    
    End Sub
    Kan jammer genoeg geen voorbeeldje invoegen ,staat bijna allemaal info op wat vertrouwelijk is.



    Bas

  2. #2
    Member
    Geregistreerd
    6 januari 2010
    Locatie
    Oppenhuizen
    Afstand tot server
    ±84 km
    Hallo,

    Volgens mij zou dit moeten volstaan.

    Code:
    Private Sub UserForm_Initialize()
    
    Textbox13.Value = Sheets(1).Cells(16,8)
    Textbox14.Value = Sheets(1).Cells(17,8)
    Textbox20.Value = Sheets(1).Cells(17,8) / Sheets(1).Cells(16,8)
    Textbox20.Locked = True
    
    End Sub
    Je zou het ook bij de Textbox - eigenschappen kunnen instellen.
    Groet,
    Jelte

  3. #3
    Hoi,

    nee hij doet het niet , de cel is wel beveiligd tegen schrijven
    maar hij neemt niets over


    geeft ook geen fout melding

  4. #4
    Senior Member HWV's avatar
    Geregistreerd
    19 februari 2009
    Locatie
    Barendrecht
    Afstand tot server
    ±147 km
    Beste,

    Deze code kan ook :

    Code:
    TextBox13.Value = Sheets(1).[H16]
    In het voorbeeld de twee voorbeelden

    Groet HWV
    Attached Files Attached Files
    Laatst aangepast door HWV : 15 september 2010 om 09:48
    Alleen weet je niet zo veel, maar met elkaar des te meer.

    (ik werk met excel 2010)

  5. #5
    Hoi,

    Hij geeft dubbele benaming

    heb natuurlijk al
    Code:
    Private Sub UserForm_Initialize()
    With Me
    .Height = Application.Height
    .Width = Application.Width
    .Left = Application.Left
    .Top = Application.Top
    End With
      
    
    End Sub
    als ik die code er tussen zet start het userform niet meer op .

  6. #6
    Senior Member HWV's avatar
    Geregistreerd
    19 februari 2009
    Locatie
    Barendrecht
    Afstand tot server
    ±147 km

    Code samengevoegd

    Beste,

    In de bijlage is dit wat je bedoeld

    Groet HWV
    Attached Files Attached Files
    Alleen weet je niet zo veel, maar met elkaar des te meer.

    (ik werk met excel 2010)

  7. #7
    Bedankt hij doet het,

    maar natuurlijk gelijk het volgende probleempje

    in een excel sheet kan je zeggen eigenschappen getal 4 cijfers achter de komma , maar hoe kan ik dit in een userform vertellen ?

    een uitkomst door delen zegt nu 1,00503181249225

    moet worden 1.0050 dus wat de uitkomst ook is ,4 cijfers achter de komma

  8. #8
    Senior Member HWV's avatar
    Geregistreerd
    19 februari 2009
    Locatie
    Barendrecht
    Afstand tot server
    ±147 km
    Beste,

    Code:
    TextBox1.Value = Format(Sheets(1).Cells(16, 8).Value, "0.0000")
    TextBox2.Value = Format(Sheets(1).[H16].Value, "0.0000")
    De oplossing vind je als bijlage.

    groet HWV
    Attached Files Attached Files
    Alleen weet je niet zo veel, maar met elkaar des te meer.

    (ik werk met excel 2010)

  9. #9
    Het werkt ,bedankt

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
Linkpartners
Aanbiedingen