VBA voor formules in excel

Status
Niet open voor verdere reacties.
W

weewee

Gebruiker
Lid geworden
30 sep 2012
Berichten
31
Heren vba specialisten.
Is het mogelijk om de formules in Tabblad hulp kolom J en K in vba om te zetten, ik heb totaal geen ervaring met VBA.
Wanneer er een naam in kolom M wordt ingevuld moet deze naam in kolom K verdwijnen.
Graag zie ik jullie antwoord hierop.

Willem
 

Bijlagen

  • Klaver1.xlsm
    73,5 KB · Weergaven: 37
Waar heb jij gelezen dat hier alleen maar heren aktief zijn ?
 
Als je een macro opneemt en vervolgens een cel met een formule wijzigt en opslaat wordt de formule automatisch naar VBA code omgezet.

Daarna zal je hem evt wel dynamisch moeten maken.

Beantwoord dat de vraag?

Groet,
leonhnoel
 
Test het maar eens.

Of de simpeler code die niet in het bestand staat.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sv
Application.EnableEvents = False
  Cells(1, 9).CurrentRegion.Columns(1).Offset(1).Name = "br"
  Cells(1, 13).CurrentRegion.Columns(1).Offset(1).Name = "br_2"
   sv = Split(Join(Filter([transpose(if(countif(br_2,br),"~",br))], "~", 0), "|"), "|")
  Cells(2, 11).Resize(UBound(sv) + 1) = Application.Transpose(sv)
  Application.EnableEvents = True
End Sub
 

Bijlagen

  • Klaver1 hsv.xlsb
    72,7 KB · Weergaven: 33
Laatst bewerkt:
Harry,
Bedank voor de reactie, de code werk perfect.
Wil het verder nog even uitproberen, daarna geef ik aan dat het opgelost is.

Willem

Wie wöllen Hollands eren maar ' t Grunings nooit verleren.
 
Hoi Harry,
De macro werkt zoals ik het graag zou willen hebben.
Ik heb toch nog enkele vragen.
Als kolom 9 gewist wordt dan moet kolom 13 ingevuld worden voor dat kolom 11 wordt veranderd.
Wanneer de namen uit kolom 9 worden ver anderen,
is het dan ook mogelijk dat die in kolom 11 ook direct aangepast worden.
Ga je eerst kolom 9 wissen en daarna kolom 13 dan krijg je fout melding macro.
Is dit aan te passen.
Wanneer ik de macro op andere bladzijden wil gebruiken moet ik dan alleen de kolom nummers aanpassen.

M.vr gr.
Willem
 
Waarom zou je kolom I willen wissen? Dat is toch de basislijst met spelers?
Voor het wijzigen van de naam heb ik een stukje code toegevoegd.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim o As String, n As String, r As Range, sv
  Application.EnableEvents = False
  Select Case Target.Column
    Case 9
      If Target.Count = 1 Then
        n = Target.Value
        Application.Undo
        o = Target.Value
        Target.Value = n
        Set r = Range("K:M").Find(o, , xlValues, xlWhole)
        If Not r Is Nothing Then r.Value = Target.Value
      End If
    Case 13
      Cells(1, 9).CurrentRegion.Columns(1).Offset(1).Name = "br"
      Cells(1, 13).CurrentRegion.Columns(1).Offset(1).Name = "br_2"
      sv = Split(Join(Filter([transpose(if(countif(br_2,br),"~",br))], "~", 0), "|"), "|")
      Cells(2, 11).Resize(UBound(sv) + 1) = Application.Transpose(sv)
  End Select
  Application.EnableEvents = True
End Sub
 
Allemaal bedankt voor de reacties en de VBA werken zoals ik het graag zou willen.

Willem
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan