Moderatori: Anthony47, Flash30005
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mArea As String
mArea = "A3:D10" '<<< L'area da controllare
If Not Application.Intersect(Target, Range(mArea)) Is Nothing And Target.Count = 1 Then
If Len(Target.Value) > 0 Then
Range("F2").Value = Cells(2, Target.Column)
End If
End If
End Sub
Se il codice va inserito in un Modulo di classe di uno dei Fogli, allora e' possibile usare la seguente scorciatoia.
Partendo da Excel:
a) Tasto destro sul Tab col nome del Foglio a cui il codice va agganciato
b) Scegliete Visualizza codice
In questo modo si aprira' l'ambiente Vba direttamente sul modulo di classe in cui il codice va inserito
If Len(Target.Value) > 0 Then
Range("F2").Value = Cells(2, Target.Column)
Range("G2").Value = Target.Value '<<< AGGIUNGERE QUESTA RIGA
End If
Torna a Applicazioni Office Windows
Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Aggiornare cella con somma quando aggiungo nuova colonna Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 1 |
inserisci valore in celle a seguito di condizione Autore: ucame |
Forum: Applicazioni Office Windows Risposte: 10 |
Aumenta altezza riga in base valore cella Autore: trittico69 |
Forum: Applicazioni Office Windows Risposte: 47 |
Visitano il forum: Nessuno e 16 ospiti