Ciao a tutti,
E' possibile per ogni volta che inserisco un valore in una cella ,esempio A1,copi il suo contenuto in B1, però quando cambio il valore di a1 deve copiarmi il nuovo valore in C1, non perdendo il valore in B1.
Grazie in anticipo
Moderatori: Anthony47, Flash30005
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ckArea As String
'
ckArea = "A1:A20" '<<< L'area per cui si esegue la copia
If Application.Intersect(Target, Range(ckArea)) Is Nothing Or Target.Count <> 1 Then Exit Sub
Cells(Target.Row, Columns.Count).End(xlToLeft).Offset(0, 1) = Target.Value
End Sub
Sub incolla_su_prima_riga_vuota()
Sheets("foglio 2").Select
Range("A2:f2").Select
Selection.Copy
Sheets("foglio1").Select
Range("A65000").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Call Cancella18
End Sub
unica pecca è che ho dovuto creare un pulsante e quindi una macro per ogni riga!
Torna a Applicazioni Office Windows
Conversione Sestine Errore Funzione Combinazione Autore: ikwae |
Forum: Applicazioni Office Windows Risposte: 5 |
Excel (office 365): alcuni file non si aprono Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 8 |
Macro copia dati da/a colonne 2 fogli Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 12 |
configurazione su excel 16 della casella di testo Autore: gianscooby |
Forum: Applicazioni Office Windows Risposte: 8 |
Informazione sulla nuova funzione whatsapp "eccetto" Autore: nippon |
Forum: Forum off-topic Risposte: 2 |
Visitano il forum: Nessuno e 39 ospiti