Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 9 van 9

Onderwerp: VBA gegevens ophalen

  1. #1
    Vraag is opgelost

    VBA gegevens ophalen

    Goedenavond,

    Ik heb de volgende VBA code waarin ik 2 dingen niet voor elkaar krijg.

    1. wk wordt het filter op datum. Hier moet de code de datum van morgen nemen. In het bestand is de datum indeling dd/mm/JJJJ.
    2. Op het voorblad (TEST) worden de opgehaalde gegevens geplaatst uit vier tabbladen. Nu wordt steeds de bovenste regel overgenomen en erboven geplaatst. Dit hoeft alleen bij de eerste (de rest van de bladen zijn dezelfde indeling, dus dezelfde tekst).


    Alvast bedankt!!


    HTML Code:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    
    Sub test2()
      
    Dim sh As Worksheet, Po As Worksheet
    Set Po = Sheets("TEST")
    Dim answer As Integer
     
        'Veld wordt leeg gemaakt en opmaak verwijderd
           Dim opmk As Range
           On Error Resume Next
           Set opmk = Po.Columns("A:R")
           Application.ScreenUpdating = False                           'screenupdating uit
           opmk.Clear
           Application.ScreenUpdating = True
     
    answer = MsgBox("Wilt u morgen?", vbQuestion + vbYesNo)
     
      If answer = vbYes Then
      wk = Date
      Else
        wk = InputBox("Vul datum in")
        If wk <> "" Then
      End If
     
            'Zoekterm wordt gezocht in array sheets
            For Each sh In Sheets(Array("Blad1", "Blad2", "Blad3", "Blad4"))
                If sh.Name <> Po.Name Then
                    With sh.Cells(4, 1).CurrentRegion
                        .AutoFilter 5, Criteria1:="<>0"
                        .AutoFilter 14, wk
                        If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then    'er zijn nog gefilterde gegevens overgebleven
                            .SpecialCells(xlCellTypeVisible).Copy        'gefilterde gegevens kopieren
                            Po.Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
                        End If
                        .AutoFilter
                    End With
                End If
            Next sh
            With Po.Cells
                .WrapText = False
                .MergeCells = False
            End With
            Application.GoTo Sheets("TEST").Range("A1"), 1
        End If
        'End If
        
        Columns("C:C").NumberFormat = "dd/mm/yyyy"
        Columns("N:N").NumberFormat = "dd/mm/yyyy"
        
    End Sub
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Om te filteren op morgen.

    Code:
    Sub VenA()
      If MsgBox("Wilt u morgen?", vbQuestion + vbYesNo) = vbYes Then
        Application.ScreenUpdating = False
        Sheets("Test").UsedRange.Clear
        For Each sh In Sheets(Array("Blad1", "Blad2", "Blad3", "Blad4"))
          With sh.Cells(1).CurrentRegion
            .AutoFilter 5, "<>0"
            .AutoFilter 14, 3, 11
            x = Abs(Sheets("Test").Cells(1).Value <> "")
            .Offset(x).Copy Sheets("Test").Cells(Rows.Count, 1).End(xlUp).Offset(x)
            .AutoFilter
          End With
        Next sh
      End If
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  3. #3
    Dankuwel Vena!
    Welke waarde geeft nu aan een dag later gefilterd moet worden?

    Groet

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    de waarde 3 in combinatie met 11

    Zoek in de Object Browser maar eens op xldynamicfiltercriteria en xlautofilteroperator voor de mogelijkheden.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5
    Top danku nog 1 vraag dan heb ik hem. Hoe krijg ik de tekst die nu geplaatst wordt 2 regels lager?

  6. #6
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Waarom zou je dat willen? Je kan aan het eind van de code toch 2 rijen in laten voegen. Rows("1:2").insert
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  7. #7
    Als ik een knop plaats om de macro te starten wordt deze ook 2 regels naar beneden verplaats. Over de tekst heen..

  8. #8
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Dan moet je de eigenschappen van de knop aanpassen.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  9. #9
    Zo simpel kan het zijn... dankjewel!

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren