Auteur Topic: Formule om cellen te "locken" na data entry (gelezen 3374 keer)

Nico2 · « **Gepost op:** 31 maart 2024, 21:07:44 »

Beste

Ik zoek een manier voor het volgende:

Op blad 1 heb ik waardes staan.
Op blad 2 heb ik een overzicht tabel staan met de totalen. Deze worden automatisch uit blad 1 gehaald. Ik werk ook met de =VANDAAG formule.

Nu wil ik eigenlijk dat als er een waarde wordt ingevuld in blad 2 deze blijft staan in de cel en niet verdwijnt wanneer de datum verandert.

Is zoiets mogelijk?

Alvast bedankt.

Groeten Nico

SoftAid · « **Reactie #1 Gepost op:** 01 april 2024, 10:32:12 »

Hallo Nico2,

Welkom op Oplossing.be

Nico, hang even een voorbeeldbestandje aan waarin je betreffende formules gebruikt, en wat je wil bereiken.

Groeten,

SoftAid

Nico2 · « **Reactie #2 Gepost op:** 01 april 2024, 18:14:26 »

Beste

Alvast bedankt voor je snelle reactie.
In bijlage zit het bestandje...

Bedoeling is dus:

data blad 1 wordt dmv van formule naar blad 2 gezet.
nu zou ik graag willen als die data in blad 2 staan er ook blijven instaan. Dat is nu niet het geval want als mijn datum op blad 1 wijzigt dan wijzigt blad 2 en data dus ook.

Iemand een oplossing of voorstel?

Thx & grtz Nico

Della Jordan · « **Reactie #3 Gepost op:** 01 april 2024, 19:58:10 »

Sorry, maar met dit voorbeeld kan niemand iets aanvangen.

Je formule =VANDAAG() is te vinden in cel C3, leuk dat we het zelf mogen uitvogelen.
Blad Data1 heb je niet, en Blad Data 2 ook niet, zijn heel verschillende namen in je voorbeeld en er verder is in heel je bestand is geen enkele formule te vinden.
Gelieve wat duidelijker te zijn als je wilt geholpen worden, wij hebben geen glazen bol.

Nico2 · « **Reactie #4 Gepost op:** 01 april 2024, 20:15:52 »

Ter verduidelijking

blad 1 = Data_day
blad 2 = Data_Overall_Day

in cel B33 (Data_Overall_day) staat de formule die ik gebruik om de totalen (My Points op blad Data_day) te halen.

Wat had je graag nog geweten om eventueel te kunnen helpen

Thx Nico

RedHead · « **Reactie #5 Gepost op:** 01 april 2024, 22:03:01 »

Formules zijn dynamisch... Dus elke Calculate in het werkblad zal alle formules opnieuw berekenen en je dus een nieuwe waarde geven als in 1 van de referentie cellen in die formule iets is aangepast. Alleen met VBA zou je wellicht iets eenmalig kunnen laten uitvoeren.

SoftAid · « **Reactie #6 Gepost op:** 01 april 2024, 22:10:34 »

Daar de ingave (en dus ook de resultaten) per dag worden ingegeven, is het mogelijk een idee om een Workbook_OnSave () te gebruiken?
Daarmee kan je dan waardes overzetten zonder formules in de werkbladen? en laten kijken of de datum nog klopt.

Met wat waarschuwings msgboxes lijkt me dat wel mogelijk.

Misschien met =MATCH voor de datums?

Just my 2 cents...

SoftAid

Della Jordan · « **Reactie #7 Gepost op:** 04 april 2024, 13:04:38 »

Met dit stukje code zou het moeten lukken.

Code: [Selecteer]

Sub go()
Dim FindString As Date, rng As Range
Sheets("Data_Day").Range("C27:N27").Copy
FindString = Date
With Sheets("Data_Overall_Day").Range("A:A")
Set rng = .Find(What:=FindString, After:=.Cells(.Cells.Count), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not rng Is Nothing Then Application.Goto rng, True
ActiveCell.Offset(, 1).PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
End Sub

SoftAid · « **Reactie #8 Gepost op:** 04 april 2024, 13:47:09 »

Hallo Della,

Die code werkt prima hier bij mij.

Als Nico deze kan implanteren in zijn bestand dan kan hij ze of onder een knop, of onder een Workbook_OnSave() zetten.

Nico, laat eens horen...

SoftAid

Nico2 · « **Reactie #9 Gepost op:** 05 april 2024, 21:10:17 »

Hallo allemaal

Allereerst mijn excuses voor mijn late reactie...

Nu heb ik nog een domme vraag...
Moet ik bij het stukje code de range nog aanpassen?

Sheets("Data_Day").Range("C27:N27").Copy

Thx voor alle hulp al!
Toppers.

Grtz Nico

Nico2 · « **Reactie #10 Gepost op:** 05 april 2024, 21:31:17 »

Nevermind my dumb question

Code werkt perfect met knop!

Mijn eeuwige dank helden!

Fijne avond nog

Grtz

Della Jordan · « **Reactie #11 Gepost op:** 07 april 2024, 18:05:50 »

Wat bedoel je met een late reactie, moest iedere vraagsteller maar zo snel zijn.

Dank voor de reactie.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics