Panna

Merci alvast. Op vandaag werkt prima want datum 02/06/23 verschijnt in de cel. Nu afwachten wat deze morgen tot vrijdag doet en dan zaterdag moet er 09/06/23 in de cel staan.

Ok, heb ze nog niet getest maar geeft deze formule niet op zaterdag de datum van donderdag  weer? Als het zondag is zal het wel kloppen. Of ben ik mis?

Hey excel experts. Ik ben op zoek naar een formule die mij de dag van vandaag weer geeft in cel A1, maar als zaterdag of zondag is dan moet de datum van vrijdag er in staan.  Als het dan weer maandag is dan moet daar weer de datum van maandag in cel A1 verschijnen. Ik heb iets gevonden wat werk als het zaterdag is, dan geeft die netjes dag-1 maar als het zondag is geeft die zaterdag als datum. Wat is er nog fout in de formule?  Hieronder de formule die ik nu heb.

=ALS(WEEKDAG(VANDAAG(),2)>5, VANDAAG()-1, VANDAAG())
 

Dank je wel voor de hulp !

Oeps, mijn vraag over geen letters accepteren in een textbox heeft te maken met dat je de textboxnamen gewijzigd hebt naar t_1, t_2, enz... zekers?

Thanks emielDS, heb weer veel bijgeleerd. Handige tips. Ook de codes op die manier verkorten, heel handig.

Alleen de vraag van in begin is niet gans opgelost.  De reden waarvoor ik dat stukje code wil gebruiken is dat ik achteraf heel handig kan terug zien in de code waar alle gegevens precies terecht komen.  In het voorbeeld wordt het duidelijk.  Heb de knop (Private Sub cmdToevoegenV1_Click()) genoemd.  Daar werk ik dan met de kolom nummer, A, B, C  enz... echter hier werkt het dan weer niet als de tabel leeg is.   Heb al iets liggen proberen met jou stukje code:

    If .[a2] = "" Then
       .[a2].Resize(, 10).Value = gg

toe te voegen, maar dat lukt me niet. Hij slaat iedere keer die blauwe regel van een tabel over.  Hoe komt dat trouwens, kan je mij dat eens uitleggen aub? Wil altijd bijleren.  

Kan je eens kijken of je dan het juiste kan toevoegen aub?

Waarom werkt de code van geen letter mogelijk in te geven niet meer bij iedere textbox?  Onderstaand stukje code:

Private Sub txtINKVroege_Change() 'Deze code zorgt ervoor dat je aalleen maar cijfers mag invullen
    If txtINKVroege <> "" Then
    If IsNumeric(txtINKVroege.Value) Then
Else
    Application.EnableEvents = False
    MsgBox "Je mag alleen cijfers invullen!", vbOKOnly + vbExclamation, "Waarschuwing"
    txtINKVroege.Value = ("")
    Me.txtINKVroege.SetFocus
    Application.EnableEvents = True
    Exit Sub
End If
End If
    'Deze code zorgt ervoor dat a en b worden opgeteld
    a = Val(txtINKVroege.Text)
    b = Val(txtINKLate.Text)
    Sum = (a + b)
    txtTotINK.Text = Sum
End Sub

Bijgevoegd het aangepast bestand.

2.  "gebruik knoppen idpv tekeningen" Bedoel je hiermee geen figuur gebruiken maar de Button uit de formulierbesturingselementen?

3.  "kleur nooit gehele bladen, dat is enkel goed om een groot en traag bestand te maken" Bedoel je dan een stuk kleuren, bv wat je alleen zie?

4.  "gebruik geen samengevoegde cellen , maak gebruik van centreren over selectie" kan je mij dat eens tonen in het opstartblad?  Ik ken alleen samenvoegen en centreren.

Ik weet, veel vragen, maar zou je heel dankbaar zijn.

Voorbeeld File.xlsm

Hallo emielDS, allereerst bedankt voor de reactie.  Je hebt gelijk, en meestal steek ik er ook een voorbeeld bij.  Nu was de file zo groot en er zaten heel veel gegevens in die ik niet wou delen.  Dat was de reden dat ik alleen de code had gestuurd, dacht dat dit kon omdat er de mogelijkheid is om deze toe te voegen (zie knopje </>).  Maar swat, ik heb alvast het voorbeeld bestand van mij toch toegevoegd, helemaal moeten pimpen om alleen mijn vraag over te houden.

Waar ik eigenlijk op zoek naar ben is de code te kunnen gebruiken ongeveer zoals in voorbeeld wat ik eerder had gestuurd.  Ik vind dit meer overzichtelijk omdat je hier netjes de codes van de textboxen onder elkaar kan zetten.  In mijn voorbeeld zie je dat je deze allemaal achter elkaar moet zetten.  Tenzij je natuurlijk met ( Val(Replace(txtTotINK.Text, ",", ".")), _ ) de underscore naar de volgende regel gaat. Ook in de voorbeeld code van mijn eerste vraag worden de gegevens op regel 3 ingevuld in een lege tabel ipv van regel 2 in de Tabel.

Ik zie ook niet goed in jou voorbeeld hoe hier dan de regels van de textboxen die je toevoegd dan netjes onder elkaar staan. Kan hier wel mis in zijn. Heb ook jou bestand toegevoegd met extra textboxen.  Ff tussendoor, pivots maken lukt in jou voorbeeld niet omdat deze de gegevens niet als getal ziet, maar dat weet jij volgens mij ook wel, is trouwens maar een voorbeeld.

Hopelijk is alles een beetje duidelijk.  Alvast bedankt voor je tijd !

vergeten voorbeeld.xlsm Voorbeeld File.xlsm

Ik heb een code gevonden die gegevens aan een tabelformat zou moeten toevoegen.  Als de tabel leeg is moet deze starten met invoegen op cel D2.  Als deze niet leeg is moeten de gevens worden ingevuld op de eerst volgende lege regel.

Heb al een juiste code die de gegevens toevoegd op de eerst volgende regel maar vind niet de juiste die gegevens toevoegd als de tabel als deze leeg is.  Dan gaat deze steeds naar regel 3 ipv regel 2.  Waarschijnlijk omdat dit een tabel is.  Hieronder de code die ik gevonden heb maar die werkt niet, krijg een error op "lastRow = Worksheets("Productiviteit").Range("D" & Rows.Count).End(xlUp).Row"

Private Sub cmdToevoegen_Click()
Dim lastRow As Long
lastRow = Worksheets("Productiviteit").Range("D" & Rows.Count).End(xlUp).Row
        ' Tabel bestaat niet, voeg gegevens toe aan cel D2
        ThisWorkbook.Sheets("Productiviteit").Range("D2").Value = Me.txtDatum.Value
        ThisWorkbook.Sheets("Productiviteit").Range("E2").Value = Me.txtDatumUur.Value
        ThisWorkbook.Sheets("Productiviteit").Range("F2").Value = Me.txtAantalVRG.Value
Else
        ' Tabel bestaat, zoek de laatste rij
        Set tbl = ThisWorkbook.Sheets("Productiviteit")
        lastRow = tbl.Range.Rows.Count + tbl.Range.Row - 1
        
        ' Voeg gegevens toe aan de eerstvolgende lege rij
        tbl.ListRows.Add
        tbl.Range(lastRow + 1, 4).Value = Me.txtDatum.Value
        tbl.Range(lastRow + 1, 5).Value = Me.txtDatumUur.Value
        tbl.Range(lastRow + 1, 6).Value = Me.txtAantalVRG.Value
    
    ' Wis invoervakken
    Me.txtDatum.Value = ""
    Me.txtDatumUur.Value = ""
    Me.txtAantalVRG.Value = ""
End Sub

Dank bij voorbaat !

Oeps, meting vorige, bedoel ik

Zie voorbeeld bestand , Meeting vorige

Die geef ik dan ook in , in het invulformulier

Ik heb nog iets wat ik graag zou willen toevoegen maar wil maar niet lukken.  Ik wil dat een bepaald cijfer zich in een bepaalde cel plaats van de dag voordien.  Ik heb deze code gevonden ergens, maar werkt niet.  Kan iemand mij helpen aub?   Ik heb deze code ook in het voorbeeld bestand gezet.

Dus stel ik geef vandaag 11/03 de gegevens in dan zou "Meeting vorige" zich op 10/03 in de kolom "Meeting dag ervoor" moeten zetten in de lege cel. Merci alvast !

    With Sheets("Resultaten").ListObjects("Tbl_Resultaten").DataBodyRange
    fRow = Application.Match(txtDatum, .Columns(7), 0)
    txtVorige = .Cells(fRow, 1).Value
    .Cells(fRow, 0) = .Cells(fRow, 0) + Val(Me.txtVorige.Text)
    End With

Test.xlsm

Was er verder mee bezig en kwam nog iets tegen.  Als ik van de gegevens een pivot tabel wil maken krijg ik geen gegevens opgeteld bv, aantal werkt wel, logisch telt gewoon de velden.  Maar als ik de som wil maken staat er 0.  Ik heb dit proberen op te lossen door bv Val(txtStroomkast) er voor te zetten.  Nu.... UCase(txtStroomkast) werkt ook, mar wat is het verschil eigenlijk, wat doet dit met het getal in beide gevallen?

Dit gedaan kwam er een nieuw probleempje, de % kolom gaf gewoon een getal zonder "%" teken, heb ik opgelost door celeigeschappen naar Percentage te zetten, of is aangepast eigenschappen gebruiken  0 "%" beter?

Dan heb ik 3 velden verplicht in te vullen gemaakt, kan je dit ook voor alle 3 in 1 code?  Kwestie van het netjes en overzichtelijk te houden.

Zou jij dit ales zo oplossen?  Merci alvast !

Test.xlsm

Heel mooi, hier kan ik al mee verder.  Heel hartelijk bedankt voor de hulp !!!  Ik probeer de code te begrijpen hoe die nu de dagen aftrekt zonder weekend, kan je mij dit uitleggen?  En waarom gebruik je americaanse format mm/dd/yyyy?

Aah, je bedoelde dus vandaag maandag en afgelopen vrijdag, zou dan inderdaad 1 zijn.  Had het eerst niet door !

Nee 4, 06/03/2023 min 28/02/2023 = 4 (4 en 5-3 niet mee tellen)

3-3 = 1

2-3 = 1

1-3 = 1

28-2 = 1

Samen 4

Eigenlijk datums van elkaar aftrekken minus de weekenden

Of.... werkdagen van elkaar aftrekken

Als ik dan weet hoe het teken "%" er achter komt kan ik dit ook voor andere velden gebruiken bv "kwh" 

De "x" zet ik als tss de vorige datum en de huidige datum een weekend is, dan moet het verschil 2 dagen minder zijn.

Percentage berekenen heb ik nog niet gedaan, wou alleen weten hoe daar automatisch het teken "%" achter kon komen?

Hier nog een knipsel van het scherm, aantal dagen is raar getal, Opbrengst is zonder "%" teken.

Hey,  Heb het getest en doet het niet helemaal.  Als ik in het textvak "txtStroomkast" een letter typ kan je gewoon verder naar het volgende textvak, echter als ik dan in "txtStroomkast" dan de letter overschrijf met weer een letter krijg ik de melding dat het niet mag.  Hetzelfde voor "txtOmvormer".  Karakter fout wordt ook niet verwijderd.

2. In  het textvak "txtOudsteDtm" hoeft standaard geen datum te staan als ik het form opstart.

3. Als ik een kruisje plaatst omdat er een weekend tss vorige datum zit krijg ik een raar getal, ik weet niet hoe je dit bv anders kan oplossen.  Zou beter zijn als ik bv in oudste datum 28/02/23 typ , automatisch het weekend wordt afgetrokken als de datum voor het weekend ligt..  Uitkomst zou dan 4 Dagen moeten zijn.

4. Ik heb ook een veld percentage toegevoegd.  Hier zou, als het gaat, het % teken achter moeten komen staan.  Bij de resultaten zou me dat wel lukken maar daar staat in mijn voorbeeld 8000% terwijl ik 80 typ.

5.  Waarom wordt  in resultaten de 1ste regel overgeslagen, is mij een raadsel.

Ik weet veel vragen, maar beter denk ik dat ik ze allemaal op een rijtje zet aangezien het gaat over dezelfde file.

Wil iets bijleren uiteraard, wat betekend dit precies, wat doet deze regel?

"  txtOudsteDtm = Sheets("resultaten").Range("a1500").End(xlUp).Value"

Bijgevoegd het bestand.

Alvast bedankt !

Test (58).xlsm

Bijgevoegd het bestandje.  Als ik nu nog een andere vraag heb bv over datums aftrekken, moet ik dan een nieuwe topic starten, ook al staat het in hetzelfde bestand?  De datum bdw had ik fout getypt / en -.  Ik bedoelde bv 28/02/2023.

Test.xlsm

Toch nog een vraag over ongeveer hetzelfde.  Ik heb ook een datumveld, hier vormt zich al automatisch de datumnotatie 04/03-2023, maar hier kan ik wel nog letters invullen.  Jouw code toegevoegd doet het niet bij een datumveld, ik krijg de datum nu niet ingevuld.

Private Sub txtDatum_Afterupdate()
    txtDatum.Value = Format(txtDatum.Value, "dd/mm/yyyy")
    
    If txtDatum <> "" Then
If IsNumeric(txtDatum.Value) Then
Else
    Application.EnableEvents = False
    MsgBox "Je mag alleen cijfers invullen!", vbOKOnly + vbExclamation, "Waarschuwing"
    txtDatum.Value = ("")
    Application.EnableEvents = True
    Exit Sub
End If
End If

End Sub

Prima, code werkt.  Vraagje, als ik nu over dezelfde file iets anders wil vragen moet ik dan een nieuwe topic starten?  Nogmaals merci !

Merci alvast, klopt, beter voorbeeld mee sturen, voorkomt misverstanden.   Ik ga het bekijken zodra ik tijd heb.

Welke vba code moet ik gebruiken  zodat ik in een veld in een userform alleen maar cijfers kan typen en geen letters. Moet ik dit soms bij de eigenschappen van dit veld instellen?