Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Anders (software)

Excelvraagje ..... macro

hdektep
6 antwoorden
  • Voor de kenners misschien niet zo'n moelijke vraag maar voor mij…

    Probleem:
    Ik wil b.v. in vakje A een label "Naam" , in vakje B een label "Adres", in C een label "Woonplaats " enz. enz.
    Die labels krijgen nog een leuk kleurtje en een ander lettertype (de opmaak).
    Dit alles doe ik met een macro opnemen.
    Deze macro begint b.v. in A1 + B1 + C1 enz enz
    Opname gestopt.
    Wanneer ik nu b.v. in A10 sta en de macro aanroep om in A10 de label "Naam" nogmaals te krijgen begint de macro gewoon weer in A1.
    Ik doe dus iets verkeerd. Ik wil dat die macro begint op de plek waar ik hem aanroep.
    Wij helpt mij verder?

    Hans de Koning :roll:
  • Onderstaande macro plaatst de gegevens in de rij waarvan een cel is geselecteerd, maar begint steeds in de A-cel van de betreffende rij. Is dit wat je zocht?
    [size=9:a23dcc1319]sub naam()
    dim r as integer
    r = selection.row
    range("a" & r).value = "Naam"
    range("b" & r).value = "Adres"
    'enz.
    end sub[/size:a23dcc1319]
  • Dat begint aardig in de richting te komen van wat ik zoek.
    Maar nu de opmaak van de cellen nog (kleur en lettertype).
    Hoe zet ik dat in een range?

    Sub Macro2()
    Dim r As Integer
    r = Selection.Row
    Range("a" & r).Value = "Naam"
    Range("b" & r).Value = "Adres"
    Range("c" & r).Value = "Postcode"
    Range("d" & r).Value = "Woonplaats"
    Range("e" & r).Value = "Telefoonnr"
    End Sub

    Nu wil ik b.v. al die cellen rood hebben met witte letters.
    Hoe doe ik dat?
  • Als je een macro opneemt waarin je de gevraagde handelingen uitvoert, dan zie je vanzelf hoe de code er uitziet en ook in de helpfile kun je hierover prima informatie vinden. Maar zó kan het ook:
    [size=9:6ffb118799]With Range("a" & r & ":e" & r)
    .Interior.Color = vbRed
    .Font.Color = vbWhite
    End With[/size:6ffb118799]
  • Weer bedankt! Maar het lijkt allemaal makkelijker dan het is. Kijk ik gebruik die macro's bijna nooit. Met de helpfunctie en het bewerken van die macro's kom ik er toch niet uit. Met al die voorbeelden zie je door de bomen het bos niet meer.
    Laat ik mijn vraag eens wat uitgebreider formuleren.
    In kolom A1 staat al Naam, in B1 staat al Adres in C1 staat al Postcode enz enz.
    Ik heb die cellen al blauw gekleurd, de tekst in de cellen gecentreerd en de inktkleur is wit.
    Eigenlijk wil ik die labels alleen maar kopieeren op de plek waar ik het wil d.m.v. een macro.

    Nu doe ik steeds A1 tot K2 gebied selecteren, Control C en op de plek waar ik het wil hebben doe ik Control V.
    Er zijn dus meer wegen die naar enz enz.

    Toch moet het met zo'n macro sneller gaan … maar hoe?
  • [code:1:9ff17cdc9b]Sub Macro1()
    Rows("1:1").Copy
    r = Selection.Row
    Range("a" & r).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("a" & r).Select
    End Sub
    [/code:1:9ff17cdc9b]
    Is dit iets?

    Wim

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.