VBA code voor "dd/mm/yy" bij copieren

[grema]

Vraagje :

Hoe geef ik in VBA aan een cel mee dat de opmaak steeds :

"dd/mm/yy" is ? Dit omdat ik het blad waarin ik dit opgeef als basis gebruik voor verdere bewerking en het geheel copier in een ander werkblad ( bestandje).

vb ; sheets " uren" Range A5
Range A6
Range A7
Range A8
Range A9

deze cellen moeten de opmaak meenemen .

alvast dank

 

[grema]

Aangezien ik deze code ingeef in blad ( uren) ;

dacht ik dat het zoiets zo worden :

Cells( 5 , 1 ) . Number Format = " dd/mm/yy"
End Sub

maar dze code doet het niet !!

iemand iets beter ??

 

[LucB]

grema,

Als Blad "uren"je active sheet is kun je deze eens proberen:

Format(Cells(5, 1), "dd-mm-yy")

 

[grema]

Bij verder onderzoek blijkt de code die in mn werkblad staat deze te zijn van :

Calendar1. code in excell.

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
    ActiveCell.NumberFormat = "dd/mm/yy"
    ActiveCell.Select
End Sub

indien ik hetvolgende weglaat

ActiveCell.NumberFormat = "dd/mm/yy"

dan lukt men celopmaak.

wanneer ik echter mn werkblad her-open dan krijg ik terug :

Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
    ActiveCell.NumberFormat = "dd/mm/yy"
    ActiveCell.Select
End Sub

kan ik deze code definitief wijzigen voor dit projctje ?

Samen geraken we er wel weer uit .... ?!! :thumb:

 

[LucB]

Dit is je code nu:

Code:
Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "dd/mm/yy"
ActiveCell.Select 'de ActiveCell is altijd al geselecteerd
End Sub

Probeer dit eens.

Private Sub Calendar1_Click()
ActiveCell = Calendar1
End Sub

Op het Blad kun je de celeigenschappen instellen.

 

[grema]

Luc,

Dit lukt nog niet.

Zal even de codes verder uitspitten en laat nog iets weten .

Ben ondertussen reeds met iets anders bezig. Zie volgende vraag.

Alvast dank.

Grema

 

[LucB]

Dag grema,

Ik zag je laatste vraag niet meer, maar met jouw
bestand toch maar een reactie op beide vragen.

 

[grema]

LucB

gewoon prachtig .

De twee vb werken . :thumb:

Dank

Groet

grema