een cel is een textbox van een userform

[Jarodxxx]

Hallo,

Ik kan eindelijk weer mijn vragen sluiten!

Mijn afstudeerproject nadert met rasse schreden zijn einde en is door veel werk van mijn kant maar wat ik vooral niet wil vergeten ook van die van jullie op vele manieren!

Wil ik dan wel niet mijn laatste vraag stellen, maar iig eerst even iedereen bedanken!

Mijn vraag die ik wil stellen is de volgende:

ik heb nu in mijn module de mogelijkheid om omzet toe te voegen per maand/vestiging en gebruikers e.d, alleen dat werkt met behulp van ranges en worden de gegevens opgehaald door selectie van een veld....

Alleen dat gebeurd nu niet en krijg ik hier last van :shocked:

samengevat:

Een cel uit excel moet kunnen worden weergegeven in een textbox van een userform bij openen van de userform

Jarod

 

[Wigi]

Een nogal onduidelijke vraag, maar mss bedoel je een RefEdit object? Zie Visual Basic Toolbar, en dan Besturingselementen, en dan op de balk naar RefEdit zoeken.

 

[Jarodxxx]

Even duidelijker I hope

Wigi,

Ik ben ziek, was een stukje vergeten!

1. Wat ik bedoel is dat ik bijvoorbeeld een cel(A1) heb in excel
2. Een userform die deze cel weergeeft als het bestand opent
3.Dit voor een totaaloverzicht in userform

dat kan met refedit lees ik in M$ AS Excel, maar ik vermoedt als ik het zo lees niet helemaal wat ik bedoel

1 cel in excel gelinkt aan 1 cel/textbox/(Refedit control) in userform

Jarod

 

[Wigi]

Wil je de inhoud van een cel in een textbox plaatsen?

 

[Jarodxxx]

de inhoud van een cel in een textbox

sorry voor de lange uitleg!

ja dus gewoon als je de userform opent
Dat hij bijvoorbeeld Cel A1 weergeeft
Locken weet ik wel enzo alleen weergave lukt niet

 

[Wigi]

Gewoon

textboxnaam.Value = Range("A1")

Zet de juiste naam van de textbox.

Wigi

 

[Jarodxxx]

Werelds!

ik was net tegen onderstaande aangelopen op dit forum.

txtName.Text = Sheets("DownloadFM").Range("A4").Value

ik moet er wel in typen... voor 't verschijnt?!

Redder in Nood! weer een vleugje minder stress.

Jarod

ps: ik stuur je mijn lege resultaat wel als 't af is, kun je zien waar je voor een groot deel aan meegehopen hebt!
(mits je dat wilt)

 

[Demeter]

Probeer deze eens:

txtName.Value = Sheets("DownloadFM").Range("A4")

Zoals Wigi ook al heeft aangegeven .


Groet,
Ferenc

ps.
Is altijd leuk om iemand zijn eind project te bekijken
Jouw code werkt ook normaal bij mij, werk hier met Excel 2003

 

[Jarodxxx]

't gaat bijna zoals 't moet

Ik had inderdaad de zelfde info van 't forum getrokken!

't enige probleem is dat ik nu zelf in de textbox moet gaan staan en iets moet intypen..
Hoe dat komt is mij nog niet helemaal duidelijk, maar zal wel te maken hebben dat de code het nu pas ophaalt bij activiteit in de textbox zelf?!

please help!

Jarod.

't project is leuk! keep you posted

 

[Demeter]

Waar!! in je userform heb je de code geplaatst?
Hij zou hier moeten staan:

Private Sub UserForm_Initialize()
    txtName.Value = Sheets("DownloadFM").Range("A4")
End Sub

Groet,
Ferenc

ps.
Private Sub UserForm_Initialize()
Hier laadt hij alle gegevens in het userform voordat het wordt getoont!

 

[Jarodxxx]

Initiate

Tuurlijk haha, 't werkt

Ik had exact 't zelfde op _initiate na, dah!
VBA oh zo simpel als je't hebt haha:shocked:

Ferenec tx!

 

[Demeter]

Het zijn de kleine dingen in het leven die het belangrijk maken
Hier op Helpmij werkt he niet anders .

We helpen je graag.

Groet,
Ferenc

ps.
Zet je de vraag no op opgelost? bedankt.

 

[Jarodxxx]

Het is gewelidg gegaan

Ferenec,

Ik ben klaar met m'n totaaloverzichten, evevn werk, maar ging prima. thanks

Alleen loop ik nog tegen een probleem aan met Percentages en Financiele waarden in een tekstbox en nog met een list box.

Die listbox dat ga uiteraard zelf wel even uitzoeken eerst, heb nog wat voorbeelden en zelf al wat gelukt

Maar percentages worden bij mij als 0,000007 etc weergegeven en geldbedragen als Value 152312 etc...

ik weet dat je achter textboxName.text of .Name of .Value kunt zetten, maar moet niks werkt als ik dat doe
Wat moet ik doen voor het weergeven van een percentage als 40% en een bedrag in euro, iets met de textbox zelf? of moet dat anders (vba)?

Met Helpmij.nl en m'n boek kwam ik met wat zoeken niet heel veel verder dan dat 't inderdaad wel moet kunnen. ik zoek weer verder, als 't niet te moeilijk is dan scheelt met dit enorm veel tijd.

Jarod.

 

[Wigi]

Wat moet ik doen voor het weergeven van een percentage als 40% en een bedrag in euro, iets met de textbox zelf? of moet dat anders (vba)?

Gebruik de Format functie in VBA.

 

[Jarodxxx]

Euh huh

TextBoxTotaalPercentageMetEenWaardeTot.Value = Sheets("TotaalOverzicht").Range("G7")

Dat heb ik om gegevens op te halen.

Van de Format (opmaak) weet ik het volgende voorbeeld maar dat is voor mij ???... nog te moeilijk ik snap wat 't doet, maar daar houdt ook wel mee op

MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

' Returns current system time in the system-defined long time format.
MyStr = Format(Time, "Long Time")

' Returns current system date in the system-defined long date format.
MyStr = Format(Date, "Long Date")

MyStr = Format(MyTime, "h:m:s")    ' Returns "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM")    ' Returns "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy")    ' Returns "Wednesday,
    ' Jan 27 1993".
' If format is not supplied, a string is returned.
MyStr = Format(23)    ' Returns "23".

' User-defined formats.
MyStr = Format(5459.4, "##,##0.00")    ' Returns "5,459.40".
MyStr = Format(334.9, "###0.00")    ' Returns "334.90".
MyStr = Format(5, "0.00%")    ' Returns "500.00%".
MyStr = Format("HELLO", "<")    ' Returns "hello".
MyStr = Format("This is it", ">")    ' Returns "THIS IS IT".

de formatfunctie is toe te passen op een textbox? want daar gaat 't wel om voor de duidelijkheid.

Ik kreeg al wel alleen een 0 in mijn userform, maar dat shiet nou niet echt op so please
help me out if you can, want hier ben ik nog niet aan toe

Jarod

 

[Wigi]

Bv. voor een percentage:

TextBoxTotaalPercentageMetEenWaardeTot.Value = Format(Sheets("TotaalOverzicht").Range("G7"), "0.00%")

 

[Jarodxxx]

HiepHiep...

't werkt en de rest heb ik al vanzelf gesnapt.
Sense and Simplicity for sure

tx again!

Jarod