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

Macro om waarde van blad naar blad te schrijven in lege waarden in kolom

Status
Niet open voor verdere reacties.
B

bennyvw

Gebruiker
Lid geworden
21 feb 2014
Berichten
28
Beste excel vrienden,
graag zou ik een macro maken om gegevens die steeds veranderen weg te schrijven naar een ander blad en deze bij te houden in een kolom.
Als vb de gegevens van blad oefenmatch in veld C12 en O12 zouden naar blad oefenmatch_blad moeten in kolom B2 en D2.
Na wijziging van C12 en O12 zou de gewijzigde gegevens naar B3 en D3 moeten.
Na wijziging van C12 en O12 zou de gewijzigde gegevens naar B4 en D4 moeten en zo verder.
Dank bij voorbaat
 

Bijlagen

  • Test.xlsx
    35,5 KB · Weergaven: 31
In bladmodule Oefenmatch.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("C12,O12")) Is Nothing Then Sheets("oefenmatch_blad").Cells(Rows.Count, IIf(Target.Column = 3, 2, 4)).End(xlUp).Offset(1) = Target.Value
End Sub
 
Hallo HSV,

bedankt om zo vlug te antwoorden. Doch krijg steeds een foutmelding.
Doe ik iets verkeerd, ben nog een leek in macro's.

Bedankt
 

Bijlagen

  • Knipsel.JPG
    Knipsel.JPG
    63,5 KB · Weergaven: 49
Ik heb de macro maar even juist voor je geplaatst.
 

Bijlagen

  • carambole.xlsb
    34,3 KB · Weergaven: 30
Graag gedaan Benny.
 
Hallo HSV,


graag zou ik nog even beroep willen doen op u goedheid.

Hoe zou ik de gegevens kunnen aanpassen wanneer er in blad "Vrijspel 3 man" match 1,2 of 3 selecteer, zodat de gegevens in blad "Matchblad1 VS 3 man" op de juiste plaats worden weggeschreven.
bv als ik Match 1 selecteer zouden de gegevens naar blad "Matchblad1 VS 3 man" in de kolommen B en D moeten komen, Match 2 in kolommen F en H, Match 3 in kolommen J en L.

Dank bij voorbaat
 

Bijlagen

  • Test2.xlsb
    45,6 KB · Weergaven: 30
De enige regel vervangen voor deze.
Code: 
If Not Intersect(Target, Range("C12,O12")) Is Nothing Then Sheets("Matchblad1 VS 3 man").Cells(Rows.Count, IIf(Target.Column = 3, 4 * Replace(Range("j6"), "Match ", "") - 2, 4 * Replace(Range("j6"), "Match ", ""))).End(xlUp).Offset(1) = Target.Value
 
Hallo HSV (Harry)

vriendelijk bedankt voor het snelle antwoord.
Alles werkt prima, nu ga ik zelf even proberen uit te zoeken hoe de formule juist in elkaar zit.
Ik wil dit nog uitbreiden naar 4 matchen.
Als een 60+ ben ik nog steeds geïnteresseerd om zulke dingen te laten werken.
In geval het boven mijn petje gaat stel ik nog even de vraag.

In alle geval vriendelijk bedankt.
En tof dat er nog zulke mensen bestaan op "Help Mij" die zo een support willen leveren

Thanks
 
Hallo Benny,

Aan de code hoef je niets meer te doen als je de matches uitbreidt.
Als je het maar steeds om de vier cellen doet is er niets aan de hand.
 
Hoy Harry,

zal het morgen eens proberen te bekijken, indien ik nog vragen heb laat ik wel iets weten.
In alle geval vriendelijk bedankt

Benny
 
dit is er een met een andere benadering, zeker eens bekijken.
 

Bijlagen

  • carambolle 2.xlsm
    91,6 KB · Weergaven: 114
Hallo HSV(Harry),

Alles werkt perfect.
Doch nog een vraagje zou de formule nog kunnen aangepast worden dat wanneer ik cel C12 selecteer dat de cel O12 van kleur wijzigt bv in olijfgroen.
En wanneer dan vice versa de cel O12 wordt geselecteerd dat de cel C12 verandert van kleur.
Zodat het duidelijk is welke volgende cel er moet ingevuld worden.

Dank bij voorbaat
Benny
 

Bijlagen

  • Test3.xlsb
    44 KB · Weergaven: 27
zoals in dit voorbeeld als je op "geen punt" drukt?
 

Bijlagen

  • carambolle 2.xlsm
    91,4 KB · Weergaven: 21
Hallo Emields,
bedankt voor u voorbeeld.
u voorbeeld is interessant, doch met die + toets is het te ingewikkeld om dit tijdens competitie te gebruiken.
Nu geef ik juist het getal in en alles werkt en wordt automatisch weggeschreven.
Om het simpel uit te leggen:
Ik zoek enkel nog een kleine macro of ? van zodra ik een cel selecteer een andere cel verandert van kleur.
bv in u voorbeeld selecteer ik C7 en I6 verandert van kleur bv fel groen of rood, bij het selecteren van I7 verandert C6
Sorry ben nog een leek in vba

Bedankt bij voorbaat
 
zo dan? Ik heb het simpel gehouden zodat je het kan begrijpen.
 

Bijlagen

  • carambolle 3.xlsm
    80,8 KB · Weergaven: 30
Dit lijkt me ook wel simpel.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C12,O12")) Is Nothing Then
 With Target
  If .Interior.Color = vbRed Then
     With Application
       .EnableEvents = False
       .Undo
       .EnableEvents = True
        Exit Sub
    End With
  End If
  Sheets("Matchblad1 VS 3 man").Cells(Rows.Count, IIf(.Column = 3, 4 * Replace(Range("j6"), "Match ", "") - 2, 4 * Replace(Range("j6"), "Match ", ""))).End(xlUp).Offset(1) = .Value
     .Offset(, IIf(.Column = 3, 10, -12)).Interior.Color = vbYellow
     .Interior.Color = vbRed
     .Borders(xlDiagonalUp).LineStyle = 1
     .Offset(, IIf(.Column = 3, 10, -12)).Borders(xlDiagonalUp).LineStyle = -4142
 End With
End If
End Sub
 
Hallo HSV (Harry),

misschien kom ik dom over, maar al u codes werken prima tot zover en zijn zeer interessant.
Nu mijn vraag is waar moet ik deze code plaatsen in het bijgevoegd bestand.
Sorry maar van vba heb ik totaal geen notie.

Mvg
Benny
 

Bijlagen

  • Test3.xlsb
    44 KB · Weergaven: 28
met rechts op de tabbladnaam klikken en programmacode weergeven kiezen.
ik zou het voor u gedaan hebben maar krijg uw laatste voorbeeld niet open zonder fouten.

kijk anders in mijn voorbeeld daar is het tabblad score.
 
Hallo HSV (Harry)

vriendelijk bedankt voor de code, ik heb het gevonden waar ik deze code moest plaatsen.
Ik ben weer een stap verder en een klein beetje wijzer.

Bedankt
Mvg
Benny
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan