• 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.

Macro Autofill en opslaan 1 tabblad

Status
Niet open voor verdere reacties.

Yasmin

Gebruiker
Lid geworden
22 mei 2004
Berichten
179
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:
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
 

Bijlagen

  • Urenconversie.xlsm
    19,5 KB · Weergaven: 16
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
 
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.
 
Helaas loopt de macro nu vast op regel2

HTML:
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?
 
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 [COLOR="#FF0000"]Sheets(2)[/COLOR].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 bewerkt:
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
 
De formules kunnen wat eenvoudiger:

In AH8:
PHP:
=IFERROR(M8/(--E8>0);"")
 
Laatst bewerkt:
Zowel de code van Jveer en VenA heb ik getest en werken allebei goed bruikbaar.

Heel vriendelijk bedankt!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan