Excel e gli applicativi Microsoft Office Inserire in una variabile il numero della riga della cella attiva di un'altro fi

LoginRegistrati
Stai vedendo 2 articoli - dal 1 a 2 (di 2 totali)
  • Autore
    Articoli
  • #28144 Risposta

    Piperino
    Partecipante

      Buongiorno a tutti, ho un piccolo problema che non sono riuscito a risolvere.
      Io ho due file di Excel aperti che per l'occasione denomino file1 e file2.
      La macro è nel file1 e avrei bisogno di inserire in una variabile di tipo integer il numero della riga della cella attiva nel file2, 

      'ho dichiarato la variabile briga in un modulo
      Public nriga As Integer
      Workbooks(file1).Sheets(nomefoglio).Activate
      nriga = ActiveCell.Row

      solo in nriga viene inserito il numero della riga attiva del file1 

      Ho provato anche la macro

      nriga= ActiveCell.Row
      Workbooks(2).ActiveSheet.Range("A1").Value = nriga

      Il risultato è che nella cella A1 del file 2 mi segna il numero della riga della cella attiva del file 1

      #28149 Risposta

      GiuseppeMN
      Partecipante
        9 pts

        Buona sera, @piperino;
        mi sono perso.

        quando scrivi:
        ... La macro è nel File1 ...
        In questo caso l'istruzione:

        Workbooks(file1).Sheets(nomefoglio).Activate

        visto che il Codice VBA è nel File1, supponendo che il Foglio di lavoro da cui rilevare il "Numero della Riga attiva" sia "Foglio1", potrebbe tranquillamente essere:

        Sheets(Foglio1).Activate

        Ora supponiamo di avere il File2.xlsx già aperto, sempre che abbia interpretato correttamente la tua richiesta, il Codice VBA potrebbe essere una cosa di questo tipo:

        Option Explicit
        
        Sub Copia_numero_Riga_attiva_in_File2()
        Application.ScreenUpdating = False
        Dim nriga As Integer
        
             Sheets("Foglio1").Activate
                  nriga = ActiveCell.Row
                       Windows("File2.xlsx").Activate
                            ActiveCell.Value = nriga
        Application.ScreenUpdating = True
        End Sub

        Buona serata.

        Giuseppe

      LoginRegistrati
      Stai vedendo 2 articoli - dal 1 a 2 (di 2 totali)
      Rispondi a: Inserire in una variabile il numero della riga della cella attiva di un'altro fi
      Gli allegati sono permessi solo ad utenti REGISTRATI
      Le tue informazioni:



      vecchio frac - 2750 risposte

      albatros54
      albatros54 - 1009 risposte

      patel
      patel - 975 risposte

      Marius44
      Marius44 - 839 risposte

      Luca73
      Luca73 - 716 risposte