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

waarde uit cel automatisch ingevuld in userform en tekstbox beveiligd

Status
Niet open voor verdere reacties.

Schipperjte

Gebruiker
Lid geworden
24 jan 2006
Berichten
212
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
 
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.
 
Hoi,

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


geeft ook geen fout melding
 
Beste,

Deze code kan ook :

Code:
TextBox13.Value = Sheets(1).[H16]

In het voorbeeld de twee voorbeelden

Groet HWV
 

Bijlagen

  • Voorbeeld.xls
    36,5 KB · Weergaven: 218
Laatst bewerkt:
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 .
 
Code samengevoegd

Beste,

In de bijlage is dit wat je bedoeld

Groet HWV
 

Bijlagen

  • Voorbeeld.xls
    37,5 KB · Weergaven: 157
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
 
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
 

Bijlagen

  • HWV_Voorbeeld-1.xls
    42 KB · Weergaven: 161
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan