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
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Funzione CERCA ma con colonne dinamiche Autore: Paolo67met |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 74 ospiti