• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

datum onder elkaar

Status
Niet open voor verdere reacties.
X

xbox360

Gebruiker
Lid geworden
7 nov 2008
Berichten
498
Hoi,

omdat me eerste vraag geen reactie kreeg wil ik het op deze opzet proberen
ik heb een export van datum en uren
Cel C3 t/m L54

nu heb ik een vraagje of dit misschien via een macro de datum plus uren ( C3+D3 ) en andere datums
onder elkaar zouden kunnen
net zoals ik al handmatig heb ingevoerd in cel A3+B3

Alvast super bedankt
 

Bijlagen

  • datum.xls
    39 KB · Weergaven: 37
Code: 
=IF(WEEKDAY(A3;2)=5;A3+3;A3+1)

Of deze formule in A4 zetten en doortrekken naar beneden.
 
Of het allemaal zo lekker werkt met tekst en getallen door elkaar? Met een macro kan ook.
Code: 
Sub VenA()
ReDim ar1(1, 0)
  With Sheets("Sheet1")
    ar = .Cells(1, 3).CurrentRegion.Offset(, 2).Resize(, 10)
    For j = 3 To UBound(ar)
      For jj = 1 To 10 Step 2
        ar1(0, UBound(ar1, 2)) = Format((ar(j, jj)), "mm-dd-yyyy")
        ar1(1, UBound(ar1, 2)) = ar(j, jj + 1)
        ReDim Preserve ar1(1, UBound(ar1, 2) + 1)
      Next jj
    Next j
    .Columns(1).Resize(, 2).Clear
    .Cells(3, 1).Resize(UBound(ar1, 2), 2) = Application.Transpose(ar1)
  End With
End Sub
 
Laatst bewerkt:
Iets minder hoog gegrepen
 

Bijlagen

  • datum (1).xlsm
    26,6 KB · Weergaven: 28
@cow18-@popopipo-@vena-@emields

Beste Heren,

alle vier werken perfect :thumb::thumb::thumb::thumb:

harstikke bedankt voor de snelle reactie, kan op deze manier mijn capaciteit planning gaan vullen :d
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan