Bij welke formule dan?
Ik voer het door een krijg geen foutmelding, plaats anders het bestand met de foutmelding.

Niels

er van uitgaande dat er altijd 1 rij en 1 kolom helemaal gevuld is.


Lastrow = cells(rows.count,1).end(xlup).row
Lastcolumn = cells(1,columns.count).end(xltoleft).column

kijk eens in de help...

Als je een probleem met excel hebt waarom gebruik je het dan?:p

Haaren101 heeft helemaal gelijk maar toch een poging.

184066

PS het zou voor de verandering ook wel eens netjes zijn om te...

Graag gedaan.



Dat mag je zelf doen, boven aan je eerste post kies zet status op opgelost.

Niels

@plannert

dat werkt alleen als de cel ernaast dezelfde waarde heeft en niet als hij voorkomt in die kolom.

Niels

Ik weet niet hoe ik het werkend moet krijgen is iets anders als werkt niet.

183588

Niels

Kun je daar een voorbeeldje van plaatsen want volgens mij gaat dat niet
maar ben nooit te oud om te leren.

Niels

@Warme bakkertje

Wat is daar anders aan dan mijn code?

Niels

VW-opmaak bij optie een formule gebruiken


=ALS(AANTAL.ALS($B$2:$B$14;$D2)>0;1;0)

Niels

ander optie


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" And Target.Value = "vervanging" Then
Do
ans = InputBox("wat moet er vervangen...

Ik zou ook geen instellingen van de gebruiker wijzigingen.
Als ik een volledig beeld wil maakt ik alles in een userform welke beeldvullend wordt weergegeven, en zich aanpast aan het scherm.

Niels

zoek even op het forum naar end(xlup) deze vraag wordt 10x per week gesteld.

Niels

If MsgBox("Kies Afdeling!!", vbOKOnly, "Kies Afdeling") = vbOKOnly Then
exit sub
End If

Niels

Heb je de opties van spaarie en octafish ook geprobeerd.

Niels

controleer ze toch maar.

Niels

Ik zie het probleem niet,hij vult netjes 06-05-2013 in voor vandaag.

183488

Niels

Het lijkt me trouwens sterk dat alle optie verkeerd om zijn, kijk ook eens bij de cel eigenschappen of het daar goed staat.

Niels

het is ook simpel maar dan moet je wel je instellingen goed hebben staan.
Kijk bij de datuminstellingen van windows, deze staat dan op Amerikaans.

Niels

zie post #2

of een van de andere varianten uit mijn een na laatste post.


ws.Cells(iRow, 4).Value =Cdate(Geldigtot1.Value)


Niels

Hierbij een aantal verschillende oplossingen:


Sub test()
Range("A1").Value = CDate(Date)
Range("A2").Value = Format(Date, "DD-MM-YYYY") 'gaat bij mij fout
Range("A3").Value = Format(Date,...

Daar heb ik je ook een oplossing voor gegeven, maar ik snap je reactie niet.

gelieve niet te quoten.

Niels

Sorry begrijp niet wat je wilt.


Niels

Zet je de vraag dan op opgelost.

En het zou ook wel netjes zijn om op deze vraag te reageren:...

ws.Cells(iRow, 4).Value =Cdate(Geldigtot1.Value)



Niels

misschien denk ik te simpel maar als je eerst kolom AB sorteert op kolom B en dan kolom DEF op kolom D.
Evt daarna AtmF sorteren op de datum.

Niels