[VBA/EXCEL] Macro per copia/incolla particolare

[totygno71]

Saarrveeeeee

Ho da sottoporvi un dilemma al quale non sono riuscito a trovare soluzione in nessun sito internet e spero vivamente che tu possa aiutarmi...

io ho bisogno di una macro da assegnare ad un pulsante che mi faccia questa procedura:


io mi posiziono su una cella nella colonna F poi cliccando il pulsante la macro dovrebbe copiare la cella selezionata e le successive 5 celle adiacenti

(quindi posizionandomi esempio su F15 dovrebbe copiare F15-G15-H15-I15-J15-K15), dopidichè dovrebbec incollarle (solo i valori) a partire dalla prima riga libera a partire dalla

cella F (copiando il valore quindi nelle rispettive celle F-G-H-I-J-K e successivamente invertire il valore della cella i con j.

E' un'impresa titanica? ti prego aiutami, mi verse per il mio lavoro e lo agevolerebbe moltissimo!


grazie attendo trepidante un tua risposta.

Marcello

[oregon]

Linguaggio ? Regolamento ?

[totygno71]

Ops, scusa... ho sbagliato qualcosa? non è un forum per vba?

[LeleFT]

Originariamente inviato da totygno71
Ops, scusa... ho sbagliato qualcosa? non è un forum per vba?

Sì è il forum per VBA, ma anche per VB5, VB6, VB.NET, C#, ecc... quindi il linguaggio va obbligatoriamente indicato.

Poi, se hai del codice da postare che non funziona e intendi correggerlo, postalo e chiedi lumi.
Se cerchi qualcuno che lo scriva da zero per te, il forum corretto in cui postare è "Offro Lavoror / Collaborazione".


Ciao.

[totygno71]

:master:

Ok... il linguaggio è come avrai capito il VBA (excel il software che sto utilizzando)

il codice che non va è:

Sub CopiaIncolla()
Dim Indiceriga As Integer
Set Zona = Range(ActiveCell, Cells(6, 17))
Selection.Copy
Sheets("Inserimento Dati").Select
For Indiceriga = 18 To 200
With Worksheets("Inserimento Dati").Cells(Indiceriga, 8)
If .Value = "" Then GoTo 10 ' se trovo una cella vuota nella colonna F, passo al '10:
End With

Next Indiceriga
Exit Sub

10:
Sheets("Inserimento Dati").Select
Cells(Indiceriga, 6).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False 'elimina il tratteggio delle celle copiate

Exit Sub
End Sub

Il codice funziona ma devo selezionare io le celle invece di farlo automaticamente e in piu non riesco a fare l'iversione tra la cella I e J appena copiate...


che CAOS! VVoVe:

[totygno71]

ce l'ho fatta!!!!

e senza l'aito di nessuno!!!