|
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. | NEI PREFERITI | .:: | RSS Forum | RSS News | NEWS web | NEWS software | |
| PUBBLICITA' | | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | | CERCA nel FORUM » | |
14-08-2013, 11.42.03 | #16 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Rif: Aggiungre una nuova riga
|
14-08-2013, 11.49.56 | #17 |
Newbie
Registrato: 13-08-2013
Messaggi: 20
|
Rif: Aggiungre una nuova riga
no non me lo accetta vuoi che ti mando il file via mail?
|
14-08-2013, 12.30.46 | #18 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Rif: Aggiungre una nuova riga
No, grazie, non me ne faccio nulla.
Devi ragionare sulle celle relative, quindi mantieni pure Cells. Se analizzi tale codice, dovresti comprendere che: Range(Cells(Selection.Row, 1), Cells(Selection.Row, 10)).Copy significa che si deve prima eseguire cio che è tra parentesi, come in algebra. Selection.Row equivale alla riga che appartiene alla cella selezionata CellSel. Cells(Riga,Colonna) è come dire Cells(CellSel,colonna 1) Cells(Selection.Row, 10)) è come dire Cells(CellSel, colonna 1 + 10 colonne a sinistra) Se si dice A10, è come dire riga 10 colonna 1 Se si dice A10:B10 è come dire da riga 10 colonna 1 a riga 10 colonna 2 |
14-08-2013, 13.00.37 | #19 |
Newbie
Registrato: 13-08-2013
Messaggi: 20
|
RISOLTO!!
Non sono riuscito ad indicare io che celle copiare ma mi copia líntera riga e va bene lo stesso!!
grazie a tutti posto il codice creato se serve a qualcun altro!! Sub aggiungi_copiaformato() 'aggiungi riga / in mezzo con messaggio Dim n As Long Dim x As Long Dim Avviso As String n = ActiveCell.Row If n < 2 Then 'MsgBox ("Qui non puoi aggiungere righe"), vbQuestion MsgBox ("In questo punto non puoi aggiungere righe"), vbCritical Exit Sub Else 'ActiveSheet.Unprotect "123456" ActiveCell.EntireRow.Insert x = ActiveCell.Row - 1 Cells(x, 1).EntireRow.Copy Cells(ActiveCell.Row, 1).PasteSpecial Paste:=xlFormats Application.CutCopyMode = False 'ActiveSheet.Protect "123456" End If End Sub |
14-08-2013, 14.04.54 | #20 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Rif: Aggiungre una nuova riga
Mah...
Magari funzionava anche questo: Codice:
Sub Copia_Incolla(rr1 As String, rr2 As String) Dim r1 As Range Set r1 = Range(rr1) With r1 .Select .Copy End With Set r1 = Range(rr2) r1.PasteSpecial xlPasteAll Set r1 = Nothing |
14-08-2013, 14.50.35 | #21 |
Newbie
Registrato: 13-08-2013
Messaggi: 20
|
Rif: Aggiungre una nuova riga
Grazie provero´ ad usare anche il tuo!!
|
14-08-2013, 23.04.31 | #22 |
Gold Member
Registrato: 20-05-2004
Loc.: Perugia
Messaggi: 4.188
|
Rif: Aggiungre una nuova riga
Basta dare indicazioni. Si potrebbe cominciare ad esempio dicendo cosa si sta usando, nel caso Visual Basic for Application. Poi indicando i passi compiuti come i controlli inseriti, fino ad arrivare al codice indicando a quale controllo associato ed evento. Non sempre è possibile evincere tutto questo solo dal codice.
___________________________________
Ogni computer ha la sua storia. Dermatite Seborroica? www.dermatiteseborroica.info |
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
Strumenti discussione | |
|
|
Discussioni simili | ||||
Discussione | Autore discussione | Forum | Risposte | Ultimo messaggio |
Corso VBA | Alexsandra | Guide | 85 | 16-11-2016 11.11.51 |
Eliminare spazi inizio riga | Il_Fabietto | Office suite | 5 | 24-06-2009 08.25.48 |
Nuova punto foto definitive [56 k warning] | Gervy | Auto Moto HiFi | 79 | 23-10-2005 14.33.16 |
Nuova Fiat Croma | handyman | Auto Moto HiFi | 39 | 10-10-2005 16.49.13 |
[Java] come scrivere in una riga specifica dentro un file di testo. | DesmoColo | Programmazione | 1 | 30-07-2005 14.21.51 |