Macro per un copia e incolla......
Francesco_P_D_
incolla per un numero di righe ad esempio 100....
Cerco di spiegarmi meglio:
cella attiva A10
Eseguo la macro che mi seleziona A10..A110 e mi fa il copia e incolla
Qualcuno mi da un aiuto?
Grazie 2000.
Mauro Gamberini
Da dove devi copiare?
Sempre dallo stesso foglio?
Quale?
E dove devi incollare?
Foglio e cella di partenza per
l'incolla? Grazie.
--
---------------------------
Mauro Gamberini
http://www.riolab.org/
http://blog.maurogsc.eu/
Francesco_P_D_
>> Mi servirebbe una macro che partendo dalla cella attiva mi faccia un copia
>> e
>> incolla per un numero di righe ad esempio 100....
>>
>> Cerco di spiegarmi meglio:
>> cella attiva A10
>> Eseguo la macro che mi seleziona A10..A110 e mi fa il copia e incolla
>>
>> Qualcuno mi da un aiuto?
>>
>
> Da dove devi copiare?
> Sempre dallo stesso foglio?
Si...
> Quale?
Palinsesto.xls
> E dove devi incollare?
> Foglio e cella di partenza per
> l'incolla?.
Si.....
Mauro Gamberini
>> Sempre dallo stesso foglio?
>
> Si...
>
>> Quale?
>
> Palinsesto.xls
>
>> E dove devi incollare?
>> Foglio e cella di partenza per
>> l'incolla?.
>
> Si.....
>
Dimenticato di dire *dove* vuoi
incollare....
Comunque la macro qui sotto ti copia
dal foglio Palinsesto le celle A10:A110
e le incolla a partire dalla cella che hai attiva,
non importa in quale foglio.
Se non � quello che cerchi, per favore posta
per intero quello che vuoi/vorresti fare. Grazie.
Public Sub m()
Dim sh As Worksheet
Dim rng As Range
Set sh = Worksheets("Palinsesto")
With sh
Set rng = .Range("A10:A110")
rng.Copy Destination:=Selection
End With
Set rng = Nothing
Set sh = Nothing
End Sub
Mauro Gamberini
>>
Ho letto meglio.
Cosa � per te un foglio?
Per Excel � *uno* dei fogli
che si trovano nella cartella(file).
Prova a rispiegare.
Palinsesto � un file?
Da quale foglio del file Palinsesto
dobbiamo copiare?
E dove lo dobbiamo copiare?
Per favore, spiegati bene, Grazie.
Francesco_P_D_
problema....ora ci riprovo......:-(
Il copia e incolla deve essere della cella attiva per un numero di righe x.....
Mauro Gamberini
Come lo determiniamo questo numero?
Puoi, per favore rispondere anche a questo:
Cosa � per te un foglio?
Per Excel � *uno* dei fogli
che si trovano nella cartella(file).
Palinsesto � un file?
Da quale foglio del file Palinsesto
dobbiamo copiare?
E dove lo dobbiamo copiare?
Se non ti spieghi bene non riusciamo ad aiutarti.
Grazie.
Francesco_P_D_
>> Scusami mauro se ti faccio perdere tempo...ma non ho spiegato bene il
>> problema....ora ci riprovo......:-(
>> Il copia e incolla deve essere della cella attiva per un numero di righe
>> x.....
>>
>
> Come lo determiniamo questo numero?
>
Il numero dovrebbe essere una costante che posso cambiare in un secondo
momento...diciamo 100....
> Puoi, per favore rispondere anche a questo:
>
> Cosa � per te un foglio?
> Per Excel � *uno* dei fogli
> che si trovano nella cartella(file).
>
> Palinsesto � un file?
Si, palinsesto.xls
> Da quale foglio del file Palinsesto
> dobbiamo copiare?
Il foglio e' : Giocate
> E dove lo dobbiamo copiare?
La macro deve copiare la formula contenuta nella cella attiva, in basso, per un
numero di righe pari a X.....
Forse adesso, ho spiegato bene!......:-((((
Francesco_P_D_
i piedi ...ma e' quello che so fare....:-D
Sub Macro1()
Dim rng1, rng2 As Range
Set rng1 = ActiveCell
rng1.Select
Selection.Copy
Set rng2 = Range(ActiveCell, ActiveCell.Offset(10, 0))
rng2.Select
ActiveSheet.Paste
End Sub
Mauro Gamberini
> per un
> numero di righe pari a X.....
>
> Forse adesso, ho spiegato bene!......:-((((
>
Guida del vba di Excel, Metodo AutoFill.
Ma, senza usare le macro, prova a selezionare
la cella con la formula e a fare doppio click
sul quadratino in basso a dx.
Mauro Gamberini
> po' con
> i piedi ...ma e' quello che so fare....:-D
>
L'importante � che vada...
Prova anche:
Public Sub m()
With Selection
.AutoFill Destination:=Range( _
.Address & ":" & _
.Offset(10, 0).Address)
End With
End Sub