Moderatori: Anthony47, Flash30005
Dim MRA As String
Dim StSh As String
Sub MRLearn()
If MRA = "" Then
MRA = Selection.Address
Else: MRA = MRA & "," & Selection.Address: Beep
End If
StSh = ActiveSheet.Name
End Sub
Sub CopiaMR()
For Each Cella In Sheets(StSh).Range(MRA)
'bbb = Cella.Value
Selection.Offset(0, I).Value = Cella.Value: I = I + 1
Next Cella
MRA = ""
End Sub
Sub Azzera()
MRA = ""
End Sub
Si, era difficile ma e' fatta.mi sempra difficile da fare
Non ci sono piu' i giovani di una volta...domani ci provo sicuramente oggi sono troppo stanco
Le difficolta' sono sempre le stesse: excel non consente di selezionare e copiare range non contigui.se fossero sulla stessa colonna es. C e della stessa lunghezza di 4 celle il copia incolla sarebbe più semplice oppure ci sarebbe comunque delle difficoltà enormi
Torna a Applicazioni Office Windows
copia di dati da un file chiuso e elaborazione Autore: luca62 |
Forum: Applicazioni Office Windows Risposte: 2 |
Problema con copia dati senza formattazione Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 9 |
Macro copia dati colonne non contigue su un altro file excel Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 22 ospiti