Macro per scrivere una "x" in una cella con delle coordinate variabili

[Frankino Frankino]

Buongiorno.

Avrei bisogno di un aiutino per creare una macro che scriva una "x" in una cella.

Spiego meglio: ho una tabella C7:H257 con colonna C da riga 8 celle numerate da 1 a 250 e la riga 7 da colonna D con la descrizione delle colonne sottostanti.

Io vorrei che scrivendo in una cella, per esempio K7, un numero da 1 a 250 mi venga scritta una "x" su una delle celle a destra di quella contenente il numero da 1 a 250 che ho scritto in K7. Ho usato ma funzione CONFRONTA per trovare la riga corrispondente al numero scritto in K7 e ho creato un elenco a tendina con la colonna in cui voglio che sia scritta la "x", quindi ho le coordinate della cella ma non so come scriverci.

Grazie in anticipo e spero che si possa fare.

Franchino

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

se sei un Utente iscritto prova ad allegare il file con i tuoi dati (non sensibili) e, anche scritto a mano, cosa vuoi ottenere.

Ciao,

Mario

[FrankinoPartecipante Frankino]

Grazie

nel foglio ho evidenziato in arancione i campi input e in giallo quelli con un risultato.

Vorrei che in base ai valori in arancione (sample row e sample column) venga scritta una "x" nella casella trovata.

nel foglio ci sono già le informazioni relativa alla cella dove andare a scrivere ma non capisco come scrivere.

grazie

Allegati:

You must be logged in to view attached files.

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Prova con questa macro

Option Explicit

Sub Segna_ICS()
Dim ur As Long, col As Long, num As Integer, riga As Long
ur = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
num = Cells(7, 11).Value 'numero da cercare
col = Cells(7, 12).Value + 3 'colonna in cui scrivere
riga = Application.WorksheetFunction.Match(num, ActiveSheet.Range(Cells(8, 3), Cells(ur, 3)), 0) + 7
Cells(riga, col) = "X"
End Sub

Non ho previsto trappole per errori nè cancellazione di precedenti. Se va bene provvedi tu.
Fai sapere. Ciao,
Mario

[FrankinoPartecipante Frankino]

Funziona alla perfezione.

Se invece volessi che si attivi automaticamente quando edito la cella e premo invio?

[FrankinoPartecipante Frankino]

Funziona alla perfezione.

Se invece volessi che si attivi automaticamente quando edito la cella e premo invio?

grazie mille

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao
per evitare che "possa sembrare" ti si offra la "pappa-pronta", ti dico che il procedimento è pressoché lo stesso ma invece di una Sub devi mettere il codice nell'evento Worksheet_Change del Foglio interessato.
Ovviamente se hai difficoltà, proponi una tua soluzione e cercheremo di capire cosa c'è che non va.
Ciao,
Mario

[FrankinoPartecipante Frankino]

Ciao Mario!

Ho fatto grazie mille.

Frankino

[Autore]

Articoli