Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Copiare SOLO le righe dei subtotali si può??

3,488 views
Skip to first unread message

Fritz [MVP Frontpage]

unread,
Sep 16, 2006, 4:55:56 AM9/16/06
to
Excel2003 SP2

Non trovo da nessuna parte come copiare le SOLE righe dei
subtotali in una tabella ordinata; vorrei proseguire il lavoro lavorando
SOLO su queste righe -> anche in un file separato.

E mai possibile che non sia stato previsto un comando immediato?

--
Fritz [MVP Frontpage]
--> riolab.org
--> EXWD.eu
--> sharepointserver.it


Norman Jones

unread,
Sep 16, 2006, 5:31:46 AM9/16/06
to
Ciao Fritz,

> Non trovo da nessuna parte come copiare le SOLE righe dei
> subtotali in una tabella ordinata; vorrei proseguire il lavoro lavorando
> SOLO su queste righe -> anche in un file separato.
>
> E mai possibile che non sia stato previsto un comando immediato?

Seleziona i subtotali
F5 | Speciale | Celle Visibile
Copia la selezione
Incolla i subtotali sull'altro foglio.

In alternativa, prova a assegnare la seguente macro ad un pulsante:
'=============>>
Public Sub Tester001()
Dim rngSubtotali As Range
Dim Rngdest As Range
Const msg As String = "Hai cancellato"

On Error Resume Next
Set rngSubtotali = Application.InputBox _
(prompt:="Seleziona un subtotale", _
Type:=8, _
Title:="Subtotali")

If rngSubtotali Is Nothing Then GoTo XIT

Set rngSubtotali = rngSubtotali. _
CurrentRegion.SpecialCells(xlVisible)

If Not rngSubtotali Is Nothing Then

Set Rngdest = Application.InputBox _
(prompt:="Seleziona la destinazione cella", _
Type:=8, _
Title:="Destinazione")
If Not Rngdest Is Nothing Then
rngSubtotali.Copy Destination:=Rngdest
Else
GoTo XIT
End If
End If
Exit Sub

XIT:
MsgBox prompt:=msg, Buttons:=vbCritical, Title:="Uscita"
End Sub
'<<=============


---
Regards,
Norman


Fritz [MVP Frontpage]

unread,
Sep 16, 2006, 8:08:51 AM9/16/06
to
Very thanks Norman,

An option under the modify column in the standard bar (Special Copy) the logical solution would have been (which I also looked for).

Fortunately it gives specialists like you!

Paola Locatelli

unread,
Nov 23, 2023, 6:09:14 AM11/23/23
to
basta cliccare ALT+Shift+;
0 new messages