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

Tabblad naam

  • Onderwerp starter Onderwerp starter Imod
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

Imod

Gebruiker
Lid geworden
13 nov 2003
Berichten
481
Goedemorgen
Ik heb een vraag en ik heb deze code,

Sub Bladkopie()
'
' Bladkopie Macro
Sheets("Standaard").Copy After:=Sheets(4)
Sheets("Standaard (2)").Select
Range("A1:AC1000").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets("Standaard").Select
Range("A1").Select
End Sub

Dit werkt goed.
Ik kopieer Sheet "Standaard" met alle gegevens, formule's, opmaak en voorwaardelijke opmaak => "Standaard (2)"
A1 tot AC1000 van "Standaard (2)" kopieer ik en plak in dezelfde sheet de waarden op dezelfde plaats.
Zo werkt alles nog en opmaak is goed maar alle formules zijn er nu uit!!
Daarna selecteer ik cel A1.

Een paar vragen:
Is deze code ook nog kleiner neer te zetten.
De kopie komt nu na Sheet 4 maar die wil ik altijd als laatste hebben staan.(er kunnen er meer dan 4 zijn)
Als laatste wil ik dat het tabblad "Standaard (2)" de naam krijgt van cel G1 (uit "Standaard (2)")

Kan iemand mij helpen??
 
Code:
Sub Kopieer()

Sheets("standaard").Copy After:=Sheets(Sheets.Count)

    With Sheets(Sheets.Count)
        .Name = [g1].Value
        .Range("A1:AC1000").Value = .Range("A1:AC1000").Value
    End With
    
End Sub

Als er al een tabblad bestaat met de naam in g1 gaat het fout

Niels
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan