Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 8 van 8

Onderwerp: Macro Autofill en opslaan 1 tabblad

  1. #1
    Senior Member
    Geregistreerd
    22 mei 2004
    Vraag is opgelost

    Macro Autofill en opslaan 1 tabblad

    Beste Excellers,

    In bijgaand macro werkt de <Selection.AutoFill Destination:=Range("AG7:AO100")> niet zoals gewenst.
    Cel AG7:AO7 dient naar onder te worden gekopieerd tot de laatste gevulde cel in kolom AF.
    Nu gaat het door tot rij 100 maar het aantal rijen is altijd variabel.

    Na het converteren wil ik alleen het tabblad uren opslaan als .xlsx bestand maar nu gaat ook
    het tabblad Conversie mee.

    Kan iemand mij helpen met deze macro om deze 2 foutjes eruit te halen?

    Bij voorbaat dank.

    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
    
    Sub Conversie()
    '
    ' Conversie Macro
    '
    ' Sneltoets: Ctrl+m
    '
        ActiveWindow.SmallScroll ToRight:=15
        Range("AG5:AO7").Select
        Selection.Copy
        Range("A8").Select
        Sheets("Uren").Select
        Range("AG5").Select
        ActiveSheet.Paste
        Range("AG7:AO7").Select
        Selection.AutoFill Destination:=Range("AG7:AO100")
        Range("AG7:AO100").Select
        Range("AG6").Select
        Columns("AG:AO").EntireColumn.AutoFit
             
        With Sheets("Uren")
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs "C:\temp\" & "Test " & .Range("AG5"), 51
        Application.DisplayAlerts = True
        
        End With
     
    End Sub
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Probeer deze eens. Je code ook wat opgeschoond

    Code:
    Sub j()
    Sheets(1).Range("AG5:AO7").Copy Sheets(2).Range("AG5")
    Sheets(2).Range("AG7:AO7").AutoFill Range("AG7:AO" & Sheets(2).Cells(Rows.Count, 32).End(xlUp).Row)
    Sheets(2).Columns("AG:AO").EntireColumn.AutoFit
    With Sheets("Uren")
        Application.DisplayAlerts = False
        .SaveAs "C:\temp\" & "Test " & .Range("AG5"), 51
        Application.DisplayAlerts = True
    End With
    End Sub
    Gr,
    JV

  3. #3
    Senior Member
    Geregistreerd
    22 mei 2004
    JVeer 1e fout is eruit, super!

    Ziet u ook nog kans om onderstaande op te lossen?

    Na het converteren wil ik alleen het tabblad uren opslaan als .xlsx bestand maar nu gaat ook
    het tabblad Conversie mee. (dus het .xlsx bestand bestaat uit 2 tabbladen).

    Het mooiste zou zijn als na het opslaan als .xlsx bestand ik weer automatisch terugkom in
    het xlsm bestand.

  4. #4
    Senior Member
    Geregistreerd
    22 mei 2004
    Helaas loopt de macro nu vast op regel2

    HTML Code:
    1
    
    Sheets(2).Range("AG7:AO7").AutoFill Range("AG7:AO" & Sheets(2).Cells(Rows.Count, 32).End(xlUp).Row)

    Kunt u hier ook nog even naar kijken?

  5. #5
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Heb de eerste niet kunnen testen. Deze zou moeten werken.

    Code:
    Sub j()
    Sheets(1).Range("AG5:AO7").Copy Sheets(2).Range("AG5")
    Sheets(2).Range("AG7:AO7").AutoFill Sheets(2).Range("AG7:AO" & Sheets(2).Cells(Rows.Count, 32).End(xlUp).Row)
    Sheets(2).Columns("AG:AO").EntireColumn.AutoFit
        Application.DisplayAlerts = False
            Sheets("Uren").Copy
            ActiveWorkbook.SaveAs "C:\temp\" & "Test " & Sheets("Uren").Range("AG5"), 51
            ActiveWorkbook.Close
        Application.DisplayAlerts = True
    End Sub
    Laatst aangepast door JVeer : 16 september 2020 om 18:00
    Gr,
    JV

  6. #6
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Code:
    Sub VenA()
      With Sheets("uren")
        Sheets("Conversie").Range("AG5:AO7").Copy .Range("AG5")
        .Range("AG7:AO7").AutoFill .Range("AG7:AO" & .Cells(Rows.Count, 1).End(xlUp).Row)
        .Copy
        With ActiveWorkbook
          .SaveAs "C:\temp\" & "Test " & Range("AG5") & ".xlsx", 51
          .Close 0
        End With
      End With
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  7. #7
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    De formules kunnen wat eenvoudiger:

    In AH8:
    PHP Code:
    1
    
    =IFERROR(M8/(--E8>0);"")
    Laatst aangepast door snb : 16 september 2020 om 20:20
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  8. #8
    Senior Member
    Geregistreerd
    22 mei 2004
    Zowel de code van Jveer en VenA heb ik getest en werken allebei goed bruikbaar.

    Heel vriendelijk bedankt!

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