Excel e gli applicativi Microsoft Office Macro per scrivere una "x" in una cella con delle coordinate variabili

Login Registrati
Stai vedendo 8 articoli - dal 1 a 8 (di 8 totali)
  • Autore
    Articoli
  • #2769 Score: 0 | Risposta

    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
      #2772 Score: 0 | Risposta

      Marius44
      Moderatore
        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
        #2799 Score: 0 | Risposta

        Frankino
        Partecipante
          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.
          #2854 Score: 0 | Risposta

          Marius44
          Moderatore
            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

            #2881 Score: 0 | Risposta

            Frankino
            Partecipante
              Funziona alla perfezione.
              Se invece volessi che si attivi automaticamente quando edito la cella e premo invio?
              #2882 Score: 0 | Risposta

              Frankino
              Partecipante
                Funziona alla perfezione.
                Se invece volessi che si attivi automaticamente quando edito la cella e premo invio?
                grazie mille
                #2884 Score: 0 | Risposta

                Marius44
                Moderatore
                  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

                  #2886 Score: 0 | Risposta

                  Frankino
                  Partecipante
                    Ciao Mario!
                    Ho fatto grazie mille.
                    Frankino
                  Login Registrati
                  Stai vedendo 8 articoli - dal 1 a 8 (di 8 totali)
                  Rispondi a: Macro per scrivere una "x" in una cella con delle coordinate variabili
                  Gli allegati sono permessi solo ad utenti REGISTRATI
                  Le tue informazioni: