| | Post: 795 | Registrato il: 18/02/2010
| Città: MILANO | Età: 28 | Utente Senior | excel 2003 / 2007 | | OFFLINE | |
|
12/10/2017 15:53 | |
Ciao a tutti,
questa macro con doppio click nel range D14:E16
nasconde il testo, per poi sempre con doppio click lo riporta.
Se c'è solo un testo funziona ma se c'è una formula poi questa non si riporta.
E' possibile questa modifica?
Grazie -------------------------------
excel 2003 ufficio / 2007 casa |
|
| | Post: 795 | Registrato il: 18/02/2010
| Città: MILANO | Età: 28 | Utente Senior | excel 2003 / 2007 | | OFFLINE | |
|
12/10/2017 17:06 | |
Ops l'avevo eliminato. -------------------------------
excel 2003 ufficio / 2007 casa |
| | Post: 445 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Senior | Excel2019 | | OFFLINE |
|
12/10/2017 19:16 | |
Ciao Xam
prova con questo escamotage e vedi se a te funziona. Ovviamente dovrai adattarlo meglio alle tue esigenze.
Un'altra cosa: evita, se puoi, le celle unite. Al VBA non piacciono.
Nell'evento doppio click metti questo
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call Copia_Incolla
End Sub
La macro richiamata (la puoi mettere nello stesso Modulo) è questa
Sub Copia_Incolla()
If ActiveCell.Value <> "" Then
Range("D14").Select
Selection.Cut
Range("O14").Select
ActiveSheet.Paste
ElseIf ActiveCell.Value = "" Then
Range("O14").Select
Selection.Cut
Range("D14").Select
ActiveSheet.Paste
End If
Dovrai anche provvedere a "ricolorare" le celle. Io mi sono limitato a rendere concreta la fattibilità.
Fai sapere. Ciao,
Mario
PS - Dimenticavo di dirti che ho eliminato le celle unite. |
| | Post: 796 | Registrato il: 18/02/2010
| Città: MILANO | Età: 28 | Utente Senior | excel 2003 / 2007 | | OFFLINE | |
|
12/10/2017 19:24 | |
Grazie della rispossta marius,ma non va.
Prima cosa la macro deve funzionare su celle unite
secondo i colori delle celle devono restare uguali.
xam -------------------------------
excel 2003 ufficio / 2007 casa |
| | Post: 1.122 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
12/10/2017 21:24 | |
trovata con il cerca nel forum
chiave di ricerca: "celle unite"
http://www.freeforumzone.com/d/11362702/-/discussione.aspx
vba e celle unite non vanno d'accordo.
segnatelo e ricordatelo.
Grazie
ciao
Frank
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 446 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Senior | Excel2019 | | OFFLINE |
|
13/10/2017 10:37 | |
Ciao
mi sembra di aver detto (oltre al fatto delle celle unite)
Dovrai anche provvedere a "ricolorare" le celle. Io mi sono limitato a rendere concreta la fattibilità.
Ora, se dopo quasi 800 messaggi non sei in grado di farlo (ma, a quanto vedo, neppure tentarlo) io non posso farci nulla.
Ciao,
Mario |
| | Post: 797 | Registrato il: 18/02/2010
| Città: MILANO | Età: 28 | Utente Senior | excel 2003 / 2007 | | OFFLINE | |
|
15/10/2017 08:59 | |
Ciao, mi tengo le celle NON unite.
Ho modificato la macro di marius per altri range ma non riesco a dividere
il primo range dal secondo.
Sub Copia_Incolla()
If Range("D14").Value > 0 Then
Range("D14").Select
Selection.Cut
Range("O14").Select
ActiveSheet.Paste
ElseIf Range("O14").Value > 0 Then
Range("O14").Select
Selection.Cut
Range("D14").Select
ActiveSheet.Paste
End If
If Range("D15").Value > 0 Then
Range("D15").Select
Selection.Cut
Range("O15").Select
ActiveSheet.Paste
ElseIf Range("O15").Value > 0 Then
Range("O15").Select
Selection.Cut
Range("D15").Select
ActiveSheet.Paste
End If
Cells(1, 1).Select
End Sub
xam [Modificato da xam99 15/10/2017 15:52] -------------------------------
excel 2003 ufficio / 2007 casa |
| | Post: 1.123 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
15/10/2017 14:07 | |
xam99, 15/10/2017 08.59:
Ciao, mi tengo le celle unite.
Ho modificato la macro di marius per altri range ma non riesco a dividere
il primo range dal secondo.
Sub Copia_Incolla()
If Range("D14").Value > 0 Then
Range("D14").Select
Selection.Cut
Range("O14").Select
ActiveSheet.Paste
ElseIf Range("O14").Value > 0 Then
Range("O14").Select
Selection.Cut
Range("D14").Select
ActiveSheet.Paste
End If
If Range("D15").Value > 0 Then
Range("D15").Select
Selection.Cut
Range("O15").Select
ActiveSheet.Paste
ElseIf Range("O15").Value > 0 Then
Range("O15").Select
Selection.Cut
Range("D15").Select
ActiveSheet.Paste
End If
Cells(1, 1).Select
End Sub
xam
celle unite??????
No Alpitour?????
Ahi ahi ahi!!!!!!
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 1.124 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
15/10/2017 20:44 | |
Serviva davvero modificare il tuo post DOPO il mio?
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 798 | Registrato il: 18/02/2010
| Città: MILANO | Età: 28 | Utente Senior | excel 2003 / 2007 | | OFFLINE | |
|
15/10/2017 21:12 | |
Pensavo di fare una cosa giusta modificando il post,
avevo sbagliato a scrivere
xam -------------------------------
excel 2003 ufficio / 2007 casa |
|
|