Dit is toch een formule voor 1 criteria ?quote:=ALS(OF(datum(jaar(vandaag());maand(vandaag())-11;dag(vandaag())>vandaag();;"UIT DATUM")
Het enige waar de voorwaardelijke opmaak op controleert is of iets waar is of niet. Als het onwaar is doet ie niets, als het waar is geeft ie een kleurtje (of iets anders) aan de cel waarvoor de voorwaardelijke opmaak hebt ingesteld.quote:Op vrijdag 16 december 2011 17:27 schreef Mind_State het volgende:
Hmm.. hij werkte nu dus alleen als ALLE criteria onwaar zijn.
[..]
Dit is toch een formule voor 1 criteria ?
Mijn excel-kennis schiet echt te kort.. ik zou niet weten hoe ik dit in moet vullen. Ik zat redelijk op weg met onderstaande formule maar dan komt het alsnog niet op de datum aan en hij werkt alleen als alle criteria ONWAAR zijn.
=ALS(OF(A1+365>G1;(B1+365>G1);(C1+365>G1));1;"UIT DATUM")
Dus ik wil wel graag die met datum etc gebruiken maar ik heb werkelijk geen idee hoe..
1 2 3 4 | Function MaandenGeleden(datum As Date) As Long MaandenGeleden = DateDiff("m", datum, DateTime.Now) If Day(datum) > Day(DateTime.Now) Then MaandenGeleden = MaandenGeleden - 1 End Function |
Ik kan thuis geen Macro's gebruiken maar op mijn werk wel dus ik zal het volgende week met deze formule proberen. Hartstikke bedankt in elk geval.quote:Op vrijdag 16 december 2011 18:36 schreef ralfie het volgende:
@mind_state
Wordt wel erg ingewikkeld zo...
mocht je macros kunnen gebruiken kun je deze gebruiken:
[ code verwijderd ]
kun je als functie gebruiken
ALS(EN(MaandenGeleden(A1)>23;MaandenGeleden(B1)>11;MaandenGeleden(C1)>11;1;"Uit datum")
???quote:Op vrijdag 16 december 2011 19:51 schreef Mind_State het volgende:
[..]
Ik kan thuis geen Macro's gebruiken maar op mijn werk wel dus ik zal het volgende week met deze formule proberen. Hartstikke bedankt in elk geval.
http://uk.answers.yahoo.c(...)0070929072105AAjHDWuquote:Op zondag 18 december 2011 11:23 schreef EL_Presidente het volgende:
k wil gegevens uit cellen A1 t/m A50 kopiëren en vervolgens al deze gegevens plakken in 1 cel. Dat lukt wel, maar ik krijg deze gegevens dan verticaal in de cel, is het mogelijk om het ook horizontaal in de cel te krijgen. Helemaal mooi zou zijn als er ook nog telkens een komma tussen zit. Wie weet hoe dit moet? Het liefst zonder het gebruik van een formule.. Alvast bedankt
quote:Op zondag 18 december 2011 11:23 schreef EL_Presidente het volgende:
k wil gegevens uit cellen A1 t/m A50 kopiëren en vervolgens al deze gegevens plakken in 1 cel. Dat lukt wel, maar ik krijg deze gegevens dan verticaal in de cel, is het mogelijk om het ook horizontaal in de cel te krijgen. Helemaal mooi zou zijn als er ook nog telkens een komma tussen zit. Wie weet hoe dit moet? Het liefst zonder het gebruik van een formule.. Alvast bedankt
1 2 3 4 5 6 7 8 9 10 | Sub AddCellVal() Dim Str As String Dim i As Integer For i = 1 To 50 Str = Str & Cells(i, 1) & "," Next ActiveCell.Value = Str End Sub |
kan je dit misschien stap voor stap uitleggen in Jip en Janneke taal voor iemand die Excel nooit gebruikt..quote:Op zondag 18 december 2011 12:22 schreef KritischeMassa het volgende:
[..]
[ code verwijderd ]
Plak dit in de VBA editor in de betreffende sheet
Als je nu "run macro" doet zal in de cel waar je in staat bij het runnen van de macro jouw rij met gegevens staan
welke excel versie heb je (versie en taal?)quote:Op zondag 18 december 2011 12:28 schreef EL_Presidente het volgende:
[..]
kan je dit misschien stap voor stap uitleggen in Jip en Janneke taal voor iemand die Excel nooit gebruikt..
Excel voor Mac 2011 (versie 14.0) Nederlandsquote:Op zondag 18 december 2011 12:29 schreef KritischeMassa het volgende:
[..]
welke excel versie heb je (versie en taal?)
zonderquote:Op zondag 18 december 2011 12:39 schreef EL_Presidente het volgende:
moet ik die getallen 1 t/m 10 in de code ook pasten of zonder?
ik moet het kennelijk niet op een gewone manier opslaan, omdat er macro's zitten.. hoe dan wel?quote:Op zondag 18 december 2011 12:40 schreef KritischeMassa het volgende:
[..]
zonder
dat is automagische toevoeging
dus code is zonder codetag:
Sub AddCellVal()
Dim Str As String
Dim i As Integer
For i = 1 To 50
Str = Str & Cells(i, 1) & ","
Next
ActiveCell.Value = Str
End Sub
Die komma's op het eind, is daar wat aan te doen en is het mogelijk om na elke komma één spatie te krijgen?quote:
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |