Moderatori: Anthony47, Flash30005
Questa descrizione contiene informazioni generiche e divergenti per cui non so che macro suggerirti.nel Foglio2 ho una serie di dati "confinati" in un'area B2:Z50. Ho necessità più volte al giorno di copiare questi dati dal Foglio2 al Foglio1. Nel Foglio1 i dati vengono copiati solo nel range C4:C50. Quello che vorrei fare è ad esempio cliccare sulla cella C10 del Foglio1 e in automatico passare al Foglio2 (dove ho tutto l'elenco), cliccare sulla cella che voglio copiare e effettuare la copia
Private Sub Worksheet_Activate()
Range("Z1").Clear '<<< La stessa cella della macro StartProc
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lokRange As String
'
lokRange = "B3:K100" '<<< Le celle selezionabili per copia su foglio EI
'
If Application.Intersect(Target, Range(lokRange)) Is Nothing Or Selection.Count <> 1 Then Exit Sub
If Sheets("EI").Range("Z1") <> "" Then
Sheets("EI").Range(Sheets("EI").Range("Z1")).Value = Target.Value
End If
Sheets("EI").Select
End Sub
Sub StartProc()
Dim okRange As String, freeCell As String
'
okRange = "C3:C50" '<<< Le celle in cui si puo' incollare quanto scelto il foglio Teil
freeCell = "Z1" '<<< La prima cella usabile come appoggio
'
If Application.Intersect(Selection, Range(okRange)) Is Nothing Then
Range(freeCell).Value = "": Beep
Exit Sub
Else
Range(freeCell).Value = Selection.Range("A1").Address
Range(freeCell).Offset(0, 1).Value = Selection.Range("A1").Value
End If
Application.EnableEvents = False
Sheets("Teil").Select
Range("A1").Select
Application.EnableEvents = True
End Sub
Sub SecProc()
freeCell = "Z1" '<<< La prima cella usabile come appoggio
If Sheets("EI").Range(freeCell).Value <> "" Then
If TypeName(Selection) = "Picture" Then
Beep
Selection.Copy
Application.EnableEvents = False
Sheets("EI").Select
Range(Range(freeCell)).Select
ActiveSheet.Paste
Sheets("EI").Range(freeCell).Clear
ActiveWindow.RangeSelection.Select
Application.EnableEvents = True
End If
Else
Sheets("EI").Select
End If
End Sub
Torna a Applicazioni Office Windows
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
copia di dati da un file chiuso e elaborazione Autore: luca62 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 29 ospiti