Zoeken en vervangen in een kolom

[FreddyJ]

hallo allemaal,

Ik heb een 2 sheets toegevoegd als bijlage waar mijn probleem in staat. Kort samengevat: Ik heb 2 klommen met getallen die telkens worden aangevuld met een getal de beurten staan voor het getal en de laatste beurt is ook reeds een gegeven welke in cel A1 staat. Nu wil ik via een macro(Blad2) het laatste getal vervangen welke of in kolom 1 of kolom 2 staat van speler 1. Wie weet voor mij het juiste stukje VBA.

B.v.d. FreddyBekijk bijlage Voorbeeld1.xlsx

 

[edmoor]

Deze in een Module:

Sub Afgeronderechthoek1_Klikken()
    Dim i As Integer
    Dim Beurt As Integer
    Dim Kolom As Integer
    
    With Sheets("Blad1")
        Kolom = IIf(.Cells(1, 1) < 31, 5, 9)
        Beurt = IIf(.Cells(1, 1) < 31, .Cells(1, 1) + 6, .Cells(1, 1) - 24)
        .Cells(Beurt, Kolom) = Sheets("Blad2").Range("K19")
        Sheets("Blad2").Range("K19") = ""
    End With
End Sub

Dan zou je al een eind in de juiste richting moeten zijn voor Speler 1.

Voor Speler 2 vervang je dit:
Kolom = IIf(.Cells(1, 1) < 31, 5, 9)

Door dit:
Kolom = IIf(.Cells(1, 1) < 31, 18, 22)

 

[FreddyJ]

Hallo Edmoor

Na een zelf gemaakt foutje dan toch gelukt. Werk prima en erg bedankt voor de genomen moeite.

Freddy