Macro dupluca righe

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

mak81

00mercoledì 6 aprile 2016 07:03

Macro dupluca righe

Buongiorno,
Ho un foglio con un elenco di nomi di persona da a1 ad a250, devo fare una macro che in un altro foglio dello stesso file mi metta dalla cella b2 le seguenti formule:
In B2 mettere =a1
In b3 mettere =a1
In b4 mettere =a1
In b5 mettere =a1
In b6 mettere =a2 per altre 3 volte

E così via sino alla fine... scusate ma nn ho un PC per fare il file adesso...

by sal

00mercoledì 6 aprile 2016 07:41

Macro

Ciao Mak, la tua richiesta non è troppo chiara, questa fatta al volo con il generatore di macro.

Sub Macro2()
'
' Macro2 Macro
'

'

    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=Foglio2!R1C1"
    Range("B1").Select
    Selection.AutoFill Destination:=Range("B1:B5"), Type:=xlFillDefault
    Range("B1:B5").Select
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "=Foglio1!R2C1"
    Range("B6").Select
    Selection.AutoFill Destination:=Range("B6:B8"), Type:=xlFillDefault
    Range("B6:B8").Select
    Range("D5").Select
End Sub

se inserisci un esempio ne riparliamo più accuratamente.

Ciao By Sal [SM=x423051]

mak81

00mercoledì 6 aprile 2016 08:04

Si è ok, ma come faccio a parametrizzare, dato che nel folgio 1 ho circa 250 righe, forse anche di più? Cicolo for??

Grazie

by sal

00mercoledì 6 aprile 2016 08:32

Macro

Infatti ma non avendo un foglio di esempio, non ti ho potuto creare il ciclo for...

se inserisci un file anche con dati fittizi, e come vuoi i dati vediamo cosa fare.

Ciao By Sal [SM=x423051]

mak81

00mercoledì 6 aprile 2016 08:41

eccomi, sono arrivato ora al pc... avevo iniziato a fare qualcosa
grazie

avevo pensato

b5 + i*4

con i che va da 0 all'ultima riga
che te ne pare?

non mi carica il file sarà colpa del firewall

https://app.box.com/s/be8eqv04qgfj2aqthwtj6chszsu2hn9c

uesto è l'unico modo che ho per mettervi un file, scusate... maledette regole internet inutili [SM=x423034]

by sal

00mercoledì 6 aprile 2016 09:13

Macro

Ciao eccoti la macro

Sub Duplo2()
Dim r As Long, x As Long

r = 2
For x = 1 To Sheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("Foglio2").Select
    Range("B" & r).Select
    ActiveCell.FormulaR1C1 = "=Foglio1!R" & x & "C1"
    Range("B" & r).Select
    Selection.AutoFill Destination:=Range("B" & r & ":B" & r + 3), Type:=xlFillDefault
    r = r + 4
Next x
End Sub

Ciao By Sal [SM=x423051]

mak81

00mercoledì 6 aprile 2016 10:02

grazie mille
avrei fatto un giro più lungo con la mia logica... sono arrugginito [SM=x423057]

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 04:03.