Topic: Domande & Risposte

[Ivan F.]

Allo schienale, pardon.

[iKenny]

Allo schienale, pardon.

Ma infatti i braccioli non devo arrivare fino allo schienale! 

[Ivan F.]

Allo schienale, pardon.

Ma infatti i braccioli non devo arrivare fino allo schienale! 

Per te che stai seduto come nelle illustrazioni "Corretta postura" per le scuole medie, forse.
Io ci passo sopra N ore al giorno e a tratti assumo le posizioni più scrocchiarelle possibili.

[iKenny]

Per te che stai seduto come nelle illustrazioni "Corretta postura" per le scuole medie, forse.
Io ci passo sopra N ore al giorno e a tratti assumo le posizioni più scrocchiarelle possibili.

Sedersi. Lo stai facendo male! 

[Ivan F.]

Torniamo a parlare di Excel...

Ho un codice VBA in cui lui esegue un'operazione per ogni cella inclusa nella selezione:

Codice: [Seleziona]

For Each Rng In ActiveSheet.UsedRange.Cells
Avrei bisogno che lo facesse per ogni cella visibile inclusa nella selezione, ma non riesco a trovare la variante da usare. Ammesso che sia possibile.

Qualcuno mi può aiutare?

[Shape]

Visto che hai l'oggetto cella, puoi usare la seguente funzione per capire se è visibile o meno:

Codice: [Seleziona]

Function CellIsInVisibleRange(cell As Range)
CellIsInVisibleRange = Not Intersect(ActiveWindow.VisibleRange, cell) Is Nothing
End Function

[Ivan F.]

Grazie Shape.
Purtroppo non mi è chiaro come/dove implementare questo codice.

Se la risposta è semplice, puoi illuminarmi?
In caso contrario, vedo di sbatterci la testa con forza e di tentare di capire.

Se necessario, posso mandarti il codice completo in MP, che è piuttosto semplice.

[Shape]

OK, te la faccio più semplice

Dovresti fare una cosa del genere:

Codice: [Seleziona]

For Each Rng In ActiveSheet.UsedRange.Cells

   If Not Intersect(ActiveWindow.VisibleRange, Rng ) Is Nothing

      [roba che ora hai nel For -- Next]

   End If

Next


[Ivan F.]

Ok, ricevuto.
Ho provato, funziona, ma... non come dovrebbe.
In sostanza, continua ad agire in tutte le celle selezionate, siano visibili o meno.

Indagherò su qualche forum excelliano, non voglio romperti le scatole.

[Shape]

Facciamo un'ultima prova, ho trovato un'altra proprietà dell'oggetto Range

Codice: [Seleziona]

For Each Rng In ActiveSheet.UsedRange.Cells

   If Not Rng.EntireColumn.Hidden And Not Rng.EntireRow.Hidden

      [roba che ora hai nel For -- Next]

   End If

Next


[Ivan F.]

Risolto in chat privata con Shape in modalità Genius!

Grazie mille

[Account_191220]

C'è qualcuno che abbia qualche conoscenza di stampanti 3D e software annessi che possa instradarmi all'acquisto?

[J VR]

Arieccoci qua, Az mi serve la tua mano.
A distanza di qualche mese dalla morte di mio padre sta uscendo fuori qualche altarino.
In poche parole ci sono arrivati da pagare quasi 3000 euro di buffi intestati a nome suo.
Se noi adesso facciamo la rinuncia dell'eredità ciò va influire sulla pensione di reversibilità (già riscossa questo mese) di mia madre?
O su qualche altro aspetto di cui non sto tenendo conto?
Fermo restando che tanto tesori nascosti mio padre non ce ne ha lasciati.
Madò che mal di testa...

[babaz]

La pensione di reversibilità é un diritto proprio del coniuge/congiunti superstite e non é in alcun modo collegata con l'eredità del de cuius.
Dando per scontato che non abbiate già chiuso la successione, ma che questa sia "in itinere", potete certamente procedere alla rinuncia dell'eredità: Attenzione però, La rinuncia può non aver effetto legale se in questi mesi avete messo in atto comportamenti che possano lasciar intendere una sorta di accettazione implicita dell'eredità (ad esempio l'uso della vettura del de cuius).

[Azraeel]

Grosso modoz ha già detto Babaz.

Sarebbe utile controllare l'esistenza di questi debiti, le ragioni degli stessi; inoltre valutate un attimo cosa aveva vostro padre, non rinunciate all'eredità col rischio di scoprire che avreste avuto diritto alla Valle D' Aosta, ecco 

Anche se poi è tutto relativo.

Ad ogni modo al netto di comportamenti concludenti potete stare tranquilli, spulciate bene tutto con un professionista di vostra fiducia e valutate cosa fare con serenità.
E condoglianze