gestire e togliere oggetti in colonna con condizione

[raimea]

ciao

in col C ho dei quadratini "oggetti"
vorrei gestire dove lasciare l oggetto,
al quale poi vado ad associare un colleg link,
e toglierlo nelle righe successive, ma con condizione.

nel fgl ci sono partite di tennis relative a vari set stessa partita,
quindi viene ripetuta su piu righe la stessa partite set diverso.

l 'oggetto andrebbe lasciato solo alla prima riga di una partita
e TOLTO / cancellato , nelle celle successive stessa partita.

quindi il controllo va fatto con la col G
quando cambia il nome, la partita, la riga successiva
dovra' avere l 'oggetto in col C

ES
nel file allegato , l 'oggetto andrebbe lasciato SOLO in
C8 C12 C16 C20 C24 C27 C31

Attenzione
dopo l'ultima riga con una partita in col C
gli oggetti devono rimanere, per essere gestiti solo
quando verranno compilate altre righe con altre partite.

spero di essermi spiegato
vi allego il file

https://www.dropbox.com/scl/fi/sgushqgp9qnbnrm8gm2w7/gestisci-oggetti.xlsm?rlkey=xyym1kpq4n3y0bx10xnm174pq&dl=0

ciao

[Anthony47]

Ad esempio questo codice:

Codice: Seleziona tutto

Dim Shp As Shape
'
'Rimuovi Shapes duplicate:
For Each Shp In ActiveSheet.Shapes
    If Shp.Type = msoPicture Then
        With Shp.TopLeftCell
        Debug.Print .Address(0, 0)
            If .Column = 3 And Application.WorksheetFunction.CountIf(Range("G1").Resize(.Row, 1), .Offset(0, 4).Value) > 1 _
              And .Offset(0, 4).Value <> "" Then
                Shp.Delete
            End If
        End With
    End If
Next Shp


[raimea]

ciao



e' tutto ok

e' perfetta

grazie