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

Range copy zonder marco

Status
Niet open voor verdere reacties.
M

Mollema

Gebruiker
Lid geworden
26 feb 2019
Berichten
28
Ik gebruik een macro knop om een Range te kopiëren naar een ander werkblad.
in de Range A1:N32 staat ook de Macro knop.
kan ik het ook kopiëren zonde dat hij de macro knop mee neemt?
Code: 
If IsError(Evaluate("'" & Format(.Range("K4"), "mmmm yy") & "'!A1")) Then Sheets.Add(, Sheets(Sheets.Count)).Name = Format(.Range("k4"), "mmmm yy")
   .ExportAsFixedFormat 0, "c:\temp\" & .Range("k4").Value
   Application.Wait DateAdd("s", 1, Now)
   .Range("A1:N32").Copy
   Sheets(Format(.Range("K4"), "mmmm yy")).Rows(1).Resize(32).Insert xlDown
   Sheets(Format(.Range("K4"), "mmmm yy")).Cells(1).PasteSpecial 12
   .Range("c8:i8") = Sheets(Format(.Range("K4"), "mmmm yy")).Range("c10:i10").Value
   .Range("k8:n8") = Sheets(Format(.Range("K4"), "mmmm yy")).Range("k10:n10").Value
 
Probeer het eens met deze instelling:
Code: 
Application.CopyObjectsWithCells = False
 
Voordat je de Copy doet uiteraard.
 
dit is niet helemaal wat ik zoek.
hij kopieert nu wel zonder de "knop"mee te nemen.
er staan alleen ook afbeeldingen in het werkblad die hij nu ook niet mee neemt.:rolleyes:
 
Maar wat je vroeg werkt.
Verwijder dan na Copy gewoon de knop.
Dat kan ook met VBA.
 
Dat klopt wat je zegt, het werkt inderdaad.

ik heb de regel nu verwijder uit de code maar toch als ik op de knop druk kopieerd hij niet meer met logo en macro knop.
hoe kan dat terwijl ik de code heb verwijderd?


is al gelukt, bedankt.
 
Laatst bewerkt:
Het is een applicatie instelling.
Doe dus een keer dit:
Code: 
Application.CopyObjectsWithCells = True
 
Je kan ook variabelen gebruiken dat maakt het wat korter en makkelijker aanpasbaar.
Code: 
c00 = Format(.Range("K4"), "mmmm yy")
If IsError(Evaluate("'" & c00 & "'!A1")) Then Sheets.Add(, Sheets(Sheets.Count)).Name = c00
   .ExportAsFixedFormat 0, "c:\temp\" & .Range("k4").Value
   Application.Wait DateAdd("s", 1, Now)
   .Range("A1:N32").Copy
   Sheets(c00).Rows(1).Resize(32).Insert xlDown
   Sheets(c00).Cells(1).PasteSpecial 12
   .Range("c8:i8") = Sheets(c00).Range("c10:i10").Value
   .Range("k8:n8") = Sheets(c00).Range("k10:n10").Value
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan