filteren op basis van datum in ander blad van een bepaalde cel

pollepap · 9 dec 2017

Hallo iedereen

Ik ben mij aan het oefenen in VBA en ik kom ergens niet uit.
Ik ben een file aan het maken om in ons bedrijf de dagelijkse planning op te maken.

Nu wens ik in het blad planning, gegevens van het blad onderhoudsplanning te copieëren en dit volgens de datum ( en nog een aantal voorwaarden, zie marco) welke in cel D3 staat in het blad planning. Ik maak macro's door zaken op te nemen en hiermee trek ik mijn plan, maar met de datum lukt niet. Kan iemand me op weg helpen, bedankt

VenA · 9 dec 2017

in D3 staat niets. In welke macro mogen we wat zoeken? Dit soort code kan je gelijk weggooien

Code:

ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1

Alle selects kan je weghalen

Code:

 Range("A5:L5").Select
    Selection.AutoFilter

Gaat zo sneller en is beter leesbaar

Code:

Range("A5:L5").AutoFilter

Wat lukt er met de datum niet? Gebruik bij voorkeur geen samengevoegde cellen.

HSV · 9 dec 2017

Code:

Sub ljpj()
'
' ljpj Macro
'


'
    With Sheets("onderhoudsplanning").Range("$A$1:$I$17")
     .AutoFilter 9, , 7, Array(2, Format(Sheets("planning").Range("A3").Value, "m/d/yyyy"))
     .AutoFilter 8, "PLAN", 2, "WAIT"
     .Copy Sheets("planning").Cells(Rows.Count, 1).End(xlUp).Offset(1)
     .AutoFilter
    End With
End Sub

VenA · 9 dec 2017

Los van de vraag; ter illustratie van wat je uiteindelijk van een macro-opname kan maken. (of ik het handig vind om data op verschillende tabjes te zetten laat ik maar in het midden)

Code:

Sub copieren_wvb()
With Range("A5:Q" & Cells(Rows.Count, 1).End(xlUp).Row)
  For Each sh In Sheets
    If Left(sh.Name, 3) = "WVB" Then
      sh.Cells(1).CurrentRegion.Offset(2).ClearContents
      .AutoFilter 6, sh.Name
      .Offset(1).Copy sh.[A3]
    End If
  Next sh
  .AutoFilter
End With
End Sub

Code:

Sub sorteren_acties()
  Range("A5:Q" & Cells(Rows.Count, 1).End(xlUp).Row).Sort [F5], , [B5], , , [A5], , xlYes
End Sub

pollepap · 10 dec 2017

VenA zei:
in D3 staat niets. In welke macro mogen we wat zoeken? Dit soort code kan je gelijk weggooien

Code:

ActiveWindow.ScrollRow = 28 ActiveWindow.ScrollRow = 27 ActiveWindow.ScrollRow = 26 ActiveWindow.ScrollRow = 25 ActiveWindow.ScrollRow = 24 ActiveWindow.ScrollRow = 17 ActiveWindow.ScrollRow = 16 ActiveWindow.ScrollRow = 15 ActiveWindow.ScrollRow = 3 ActiveWindow.ScrollRow = 1

Alle selects kan je weghalen

Code:

Range("A5:L5").Select Selection.AutoFilter

Gaat zo sneller en is beter leesbaar

Code:

Range("A5:L5").AutoFilter

Wat lukt er met de datum niet? Gebruik bij voorkeur geen samengevoegde cellen.

bedankt

pollepap · 10 dec 2017

HSV zei:

Code:

Sub ljpj()
'
' ljpj Macro
'


'
    With Sheets("onderhoudsplanning").Range("$A$1:$I$17")
     .AutoFilter 9, , 7, Array(2, Format(Sheets("planning").Range("A3").Value, "m/d/yyyy"))
     .AutoFilter 8, "PLAN", 2, "WAIT"
     .Copy Sheets("planning").Cells(Rows.Count, 1).End(xlUp).Offset(1)
     .AutoFilter
    End With
End Sub

Beste Harry:

Bedankt, echter hij copieert ook het rij 1 ( order lijn omschrijving uren tech WVB total status plan datum) en deze moet hij niet overzetten. Ik heb eens gezocht maar ik vind niet direct een oplossing. Bij het copieeren zou hij ook kolom H en I ook niet moeten mee copieeren. thx

Danny

ExcelAmateur · 10 dec 2017

Probeer het zo eens.

Code:

Sub ljpj()
    With Sheets("onderhoudsplanning").Range("$A$1:$I$17")
     .AutoFilter 9, , 7, Array(2, Format(Sheets("planning").Range("A3").Value, "m/d/yyyy"))
     .AutoFilter 8, "PLAN", 2, "WAIT"
     .Offset(1).Resize(, 7).Copy Sheets("planning").Cells(Rows.Count, 1).End(xlUp).Offset(1)
     .AutoFilter
    End With
End Sub

filteren op basis van datum in ander blad van een bepaalde cel

pollepap

Gebruiker

Bijlagen

VenA

Inventaris

HSV

Inventaris

VenA

Inventaris

pollepap

Gebruiker

pollepap

Gebruiker

ExcelAmateur

Terugkerende gebruiker

Nieuwste berichten

Wij waarderen jouw privacy