copy date in vba kan niet met een cel waar een formule in staat ????

[rogersmeets]

mooi man, en hij schrijft hem dan weg op de datum zoals nu maar ook vanzelf in het bestand met het juiste jaar ?

 

[rogersmeets]

Hij schrijft m dan automatisch bij de juiste datum zoals nu, maar ook in de map van het juiste jaar elk jaar ?



Deze code van jou verschijnt bij het kopieren heel even het 2e tablad, het oogt wat onstabiel als dat beeld zo opeens verspringt is dat op te lossen ?

 [COLOR=#333333]Sub Button2_Click()[/COLOR]Set sh = Sheets("teamleider-productie dashboard")
With Sheets("Jaarproductie-aantal karren")
  r = Application.Match(sh.Range("e15"), .Columns(2), 0)
  If IsNumeric(r) Then
     sh.Range("f15:l15").Copy
     .Cells(r, 3).PasteSpecial xlPasteValues
 Application.CutCopyMode = False
     For Each cl In .Cells(r, 3).Resize(, 7)
       cl.Interior.Color = sh.Range("f15").Offset(, y).DisplayFormat.Interior.Color
        y = y + 1
     Next cl
  End If
End With [COLOR=#333333]End Sub[/COLOR]

 

[HSV]

De eerste regel in mijn vorig schrijven voorkomt dat.