Risultati da 1 a 7 di 7

Discussione: Nascondere righe



  1. #1
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    273
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Nascondere righe

    Buonasera a tutti. Sicuro di un vostro valido aiuto, Vi propongo un rompicapo che per me lo è. Vi allego un file di esempio, e vorrei: ho una lista di nomi nella colonna W e vorrei che mi comparissero in maniera casuale nella colonna D. Nell'esempio sono 13 ma potrebbero essere fino a 100. Vorrei come detto che mi comparissero in colonna D, ma che l'ultimo scritto in W13 mi venisse in D13 e C102, e che mi nascondesse le righe da 14 a 100. Se invece il numero dei nomi è pari, sempre in maniera casuale in D e mi nascondesse le righe dal successivo a 103 Ringrazio anticipatamente. Michele
    File Allegati File Allegati

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7132
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: Nascondere righe

    Ciao,
    per avere i valori casuali nella colonna D puoi usare questa formula:

    =INDIRETTO("W"&CASUALE.TRA(1;RIGHE($A$1:$A$13)))

    Non mi è chiaro però il resto della richiesta.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  3. #3
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1108
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Nascondere righe

    mi sembra che tu abbia già fatto una richiesta simile, perché una nuova discussione ?

  4. #4
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    273
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Nascondere righe

    Grazie ges per il consiglio, ma quando copio la formula, in alcune celle mi viene lo stesso nome e questo non va bene, perché i 13 nomi devono essere inseriti in D da 1 a 13 in maniera casuale e non solo, ma il nome in W13 mi deve comparire in D13 e C102. Questo è un esempio con 13 nomi, ma potrei arrivare fino a 100. 2°) Se in colonna W ho una serie di nomi di numero dispari es. 27, il nome in W27 mi deve comparire in D27 e C102. 3°) una volta inseriti i nomi es. Arrivo fino a W48, mi si devono nascondere le righe da 49 a 100. Ho creato due macro ma sono statiche ...... allego il file, nel senso che variando il numero dei nomi mi vedrei costretto a modificare le macro. Grazie
    File Allegati File Allegati

  5. #5

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4018
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: Nascondere righe

    Ciao a tutti,

    @Rocky
    vedo che continui a non usare "Option Explicit" :60:

    ges e patel ormai sanno come sbrogliarsi ma a te conviene usarlo (io lo uso sempre e mi ha "salvato" molte volte).

    Per la tua domanda.... come ha detto patel, ne hai già fatto una praticamente identica (dove ti ha risolto il problema proprio lui) :
    http://www.forumexcel.it/forum/7-dom...acro-sorteggio

    quindi, la prima parte del tuo problema saresti dovuto esser in grado di risolverla da solo :186:

    Comunque, ti propongo un'altra strada (magari più semplice):

    Codice: 
    Option Explicit
    
    
    Sub Casuale()
    Dim uRiga As Integer, nrand As Integer, Campo As Range, Riga As Integer
    Dim x As Integer, i As Integer
    
    
    If Range("W1").Value = "" Then
        MsgBox "Nessun nome prensente nella colonna W !!!", vbCritical
    Else
        uRiga = Range("W" & Rows.Count).End(xlUp).Row
        Range("D" & uRiga).Value = Range("W" & uRiga).Value
        Range("C102").Value = Range("W" & uRiga).Value
        Range("D" & uRiga + 1 & ":D100").EntireRow.Hidden = True
        uRiga = uRiga - 1
        Riga = 1
        For i = 1 To uRiga
            Do
                Set Campo = Range("D1:D" & Riga)
                Randomize
                nrand = Int(Rnd * uRiga + 1)
                x = Application.WorksheetFunction.CountIf(Campo, Range("W" & nrand).Value)
            Loop While x > 0
            Range("D" & Riga).Value = Range("W" & nrand).Value
            Riga = Riga + 1
        Next i
    End If
    End Sub
    
    
    Sub Scopri_righe()
    Cells.EntireRow.Hidden = False
    Columns(4).ClearContents
    Range("C102:C103").ClearContents
    End Sub
    Nei post precedenti hai accennato qualcosa riguardo il numero dei nomi dispari/pari ma non ho capito cosa vorresti fare in caso di un conteggio "pari".
    Lascio a te le modifiche.

    Ti riallego il file...
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  6. #6
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    273
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Nascondere righe

    Grazie cromagno e Grazie patel è quello che cercavo, anche se quando si tratta di nomi in numero pari, l'ultimo che compare in colonna W mi compare per ultimo in colonna D, ma va bene ugualmente per lo scopo preposto. Ringrazio nuovamente entrambi augurandovi buon lavoro ed una buona serata.

  7. #7

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4018
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: Nascondere righe

    Citazione Originariamente Scritto da roky48 Visualizza Messaggio
    ...anche se quando si tratta di nomi in numero pari, l'ultimo che compare in colonna W mi compare per ultimo in colonna D...
    Ciao Rocky,
    come detto prima, non ho capito cosa volevi fare in caso di "numero pari" ma non credo sia un problema difficile da risolvere.

    Comunque (come sempre) grazie per il riscontro :246:

    Ciao
    Tore

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

Discussioni Simili

  1. [Risolto] nascondere più righe
    Di givi79 nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 16/01/17, 01:55
  2. [Risolto] come Nascondere, alcune righe, e creare un pdf
    Di CEPE77 nel forum Domande su Excel VBA e MACRO
    Risposte: 51
    Ultimo Messaggio: 20/12/16, 16:11
  3. Nascondere colonne
    Di Agemore nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 14/05/16, 21:31
  4. [Risolto] Nascondere righe + colonne
    Di carega83 nel forum Domande su Excel in generale
    Risposte: 20
    Ultimo Messaggio: 20/03/16, 09:15
  5. nascondere formule
    Di cesare nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 06/10/15, 23:24

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •