Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Invoeren dmv Userform  (gelezen 12239 keer)

0 leden en 1 gast bekijken dit topic.

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Invoeren dmv Userform
« Reactie #45 Gepost op: 11 april 2017, 21:32:11 »
Euh.... Als ik er nu zo even over nadenk dan zal dat een tekst zijn, of in het beste geval een getal, hmmm

Hoe zet ik de invoer om naar een geldige datum?
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Invoeren dmv Userform
« Reactie #46 Gepost op: 11 april 2017, 21:54:55 »
Het is inderdaad slechts een tekst maar vooral géén datum. Dus als je die cel voor cel tracht te vergelijken met een echte datum op je sheet, zal je nooit een match kunnen maken.

Wat denk je van zoiets ipv jouw procedure?  ;)
Private Sub CmndOk_Click()
Dim Gevonden As Range
   
    With Sheets("Blad1").Columns(1)
        Set Gevonden = .Find(DateValue(TxtDatum.Text))
        If Not Gevonden Is Nothing Then
            Gevonden.Offset(, 1).Value = CInt(TxtA.Text)
            Gevonden.Offset(, 2).Value = CInt(TxtB.Text)
        End If
    End With

End Sub
______________________________

Groet, Leo

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Invoeren dmv Userform
« Reactie #47 Gepost op: 11 april 2017, 22:06:56 »
Hoi RedHead,

Wauw, en zo lekker kort :D Heerlijk, deze werkt!!

Nu ga ik dit even testen in mijn echte situatie en dan kan ik wederom een nieuw formuliertje bouwen

Dank je wel weer. En ik heb weer wat geleerd merk ik :D
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Invoeren dmv Userform
« Reactie #48 Gepost op: 11 april 2017, 22:19:11 »
Ik loop wel weer gelijk tegen een ander probleempje aan merk ik,

Ik MOET beide waardes (Invoer A en Invoer B) invoeren anders krijg ik een foutmelding. Dit is niet echt de bedoeling, ik moet de optie hebben om bepaalde waardes niet in te voeren, puur om dat niet elke dag even veel diensten worden gereden.
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Invoeren dmv Userform
« Reactie #49 Gepost op: 11 april 2017, 22:27:42 »
Het omzetten naar een Integer waarde blijkt niet nodig in dit geval...
            Gevonden.Offset(, 1).Value = TxtA.Text
            Gevonden.Offset(, 2).Value = TxtB.Text
______________________________

Groet, Leo

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Invoeren dmv Userform
« Reactie #50 Gepost op: 11 april 2017, 22:34:20 »
Ja dit werkt ;)

Bedankt weer voor de vlotte en snelle ondersteuning.
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Invoeren dmv Userform
« Reactie #51 Gepost op: 12 april 2017, 20:52:02 »
even Opnieuw posten, Dank SoftAid voor het attenderen ;)

Hallo toppers van een oplossers :D

Nadat ik had aangekondigd mijn volgende project ook alvast op te gaan zetten, kan ik jullie nu met trots, en de hulp van jullie, de geboorte van mijn prutsel laten zien. :P

Met hetgeen ik in elkaar geflanst heb kan ik invoeren, aanvullen en aanpassen om mijn werkblad. Althans dat hoop ik dan want ik heb het nog niet op mijn echte werkblad losgelaten, maar op mijn test bestand werkt het helemaal.

Graag ontvang ik jullie mening of zaken wellicht beter kunnen, of gewoon dat het totaal nergens op lijkt :P
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.277
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Invoeren dmv Userform
« Reactie #52 Gepost op: 13 april 2017, 21:15:38 »
Johan, ziet er netjes uit toch? Hoewel de schreeuwende kleuren van je formulier en objecten volledig niet mijn dingetje zijn, is het qua opmaak keurig. En als het verder werkt, werkt het. Mooi eerste project?
______________________________

Groet, Leo

Offline Josc1965

  • Ervaren lid
  • ***
  • Berichten: 279
  • Geslacht: Man
  • Je leert echt wat op "Oplossing.be"
Re: Invoeren dmv Userform
« Reactie #53 Gepost op: 14 april 2017, 05:09:58 »
Johan, ziet er netjes uit toch? Hoewel de schreeuwende kleuren van je formulier en objecten volledig niet mijn dingetje zijn, is het qua opmaak keurig. En als het verder werkt, werkt het. Mooi eerste project?

Gelukkig verschillen smaken ;) Ik kan mij helemaal voorstellen dat "anderen" het nogal opzichtig vinden maar ik hou nu eenmaal niet van dat grijs en zwart. Gelukkig is het een geheel privé project dus zullen weinig mensen hier echt aanstoot aan nemen.

Dat dit naar meer gaat smaken weet ik nu al 100% zeker, ik heb al wel wat summiere ideeën, maar wil nu eerst dit project in zijn geheel afgerond hebben en tot in de puntjes afgewerkt :D
Johan
Windows 10 Home   NLD 64bit
Intel(R) Core(TM) i7-7700HQ CPU @ 2.80GHz 2808
838F
Intel(R) HD Graphics 630 1024MB -
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
C:\ NTFS 118,01GB 44,78GB 8.079MB
AV: Avast Antivirus
FW: Windows Firewal Enabled: True
Office 2016

 


www.combell.com