VBA formules kopieren

Status
Niet open voor verdere reacties.
E

e de waele

Verenigingslid
Lid geworden
28 dec 2000
Berichten
2.694
Hallo forum leden.
Ik heb van de leden opdracht gehad om mij wat meer in de VBA te verdiepen Ik heb eerst alle lessen van helpmij.nl op mijn hardeschijf gezet om te gaan lezen Ook het boek gekocht Excel Vba (2019) om te beginnen.
Ik heb nu een macro op genomen (in excel) met een sneltoets er bij (CTRL+Z ) En deze werkt gewoon goed.
Nu wil ik deze kopieren naar een ander werkmap En dat gaat niet goed. Als ik deze code heb gekopieerd en in de nieuwe map heb geplakt en ik ga naar macros ,ik kies daar voor uitvoeren dan werkt deze prima , Alleen als ik de sneltoets gebruik werkt deze niet waarschijnlijk doe ik iets verkeerd maar wat?
e de waele
 
Een opgenomen code moet altijd worden aangepast voor algemeen gebruik.
Laat het daarom eens zien in een voorbeeld documentje.
 
Goede middag
Als ik een nieuwe excel map open dan staat de kopie in iedergeval wel zeker op het klembord helemaal dat heb ik al gekontroleerd hier onder de code De optie explicit staat er wel boven maar ik krijg geen foutmelding

Code: 
Sub TienBijTien()
'
' TienBijTien Macro
'
' Sneltoets: Ctrl+z
'
    Sheets.Add After:=ActiveSheet
    Columns("K:K").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = True
    Rows("11:11").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Hidden = True
    Range("A1").Select
End Sub
 
Laatst bewerkt door een moderator:
Die code heeft niets te maken met waarom de macro niet wordt gestart middels Ctrl-Z
Daarom vroeg ik om een voorbeeld document.

Het zomaar kopiëren van een macro is dus niet voldoende, je moet hem ook nog aan een sneltoets hangen in dit geval.
Dat doe je in de tab Ontwikkelaars en dan de knop Macro's.
MT.JPG

NB:
Als je code plaatst, zet deze dan in codetags, zie de link in m'n handtekening.
 
Laatst bewerkt:
:thumb: Gelukt
Heel veel dank daar ben ik nog wel even mee bezig jullie geven mij wel een leuke opdracht
Ik moet de knop zelf toevoegen Ik dacht al zo iets er staat ook niets van in de code zelf he Hij kan dat niet weten
Ik ga weer verder met lezen zeer bedankt nog
e de waele
 
Succes, en bedankt voor het plaatsen van de codetags :thumb:
 
Een macro-opname is een leuk startpunt. Alleen wordt alles letterlijk opgenomen waardoor je veel onnodige en vaak trage code krijgt.

Een beetje opgeschoond
Code: 
Sub TienBijTien()
  Sheets.Add After:=ActiveSheet
  Range(Range("K:K"), Range("K:K").End(xlToRight)).EntireColumn.Hidden = True
  Range(Range("11:11"), Range("11:11").End(xlDown)).EntireRow.Hidden = True
End Sub

Alternatief
Code: 
Sub VenA()
  Sheets.Add , ActiveSheet
  Columns(11).Resize(, Columns.Count - 10).Hidden = True
  Rows(11).Resize(Rows.Count - 10).Hidden = True
End Sub
 
Die Tagcode plaatsen is mij nog niet geheel duidelijk hoe doe ik dat precies ?
moet ik een progje laden ??
eric
 
Dat heb je al gedaan in #3, dan weet je toch hoe dat werkt?
Selecteer de code die je in je bericht plaatst en klik dan op het # teken in het menu van het berichtenvenster.
 
Ok bedankt weer maar Ik dacht aan iets anders hoor maar dan is het prima zo
e de waele
 
In plaats van op die # te klikken kan je de tags ook zelf invoeren.
Misschien dat je dat bedoelt.
Maar het # is handiger toch?
 
Dat was mijn bedoeling maar deze is uiteraard heel wat makkelijker
e de waele
 
Ah, ok, daar had ik niet op gelet:)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan