Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

cerca vert e conta celle vuote sottostanti

Ultimo Aggiornamento: 09/12/2019 10:37
Post: 87
Registrato il: 03/05/2016
Città: MILANO
Età: 50
Utente Junior
Excel 2011
OFFLINE
08/12/2019 14:15

ciao a tutti

vorrei realizzare un piccolo programmino e vorrei inserire una formula in B2 che confronti la parola in A1 cercandola in colonna A partendo dalla riga 7 e riporti il numero di celle vuote che separano la parola trovata con la prossima come da esempio:
se digito la parola albero in cella A1 in A2 dovrebbe restituire 5 se invece digito la parola foglia in A1 dovrebbe restituire 2 radici 7 e così via

qualcuno saprebbe come fare ?


ringrazio e un saluto a tutti

Simone
Post: 3.582
Registrato il: 03/04/2013
Utente Master
Excel 2000 - 2013
OFFLINE
08/12/2019 18:31

 


Buon pomeriggio, @melaverde74.


@melaverde74, scrive:




vorrei realizzare un piccolo programmino e vorrei inserire una formula in B2 che confronti la parola in A1 cercandola in colonna A partendo dalla riga 7 e riporti il numero di celle vuote che separano la parola trovata con la prossima come da esempio:
se digito la parola albero in cella A1 in A2 dovrebbe restituire 5 se invece digito la parola foglia in A1 dovrebbe restituire 2 radici 7 e così via


Mi sono perso.
-      Nel tuo File in Cella B2 non c'è nulla; il risultao è riportato in Cella "A2".

Dove sbaglio?

Detto ciò credo utilizzerei un breve Codice VBA; che conoscenze hai di Codici VBA?

 

 

A disposizione.

Buon fine settimana.

Giuseppe



Windows XP - Excel 2000
Windows 10 - Excel 2013
Post: 87
Registrato il: 03/05/2016
Città: MILANO
Età: 50
Utente Junior
Excel 2011
OFFLINE
08/12/2019 18:50

scusa Giuseppe sono io che mi sono perso :-((
si esatto A2

se fattibile preferirei una formula visto che prevedo di inserirla in piu celle ma se non è possibile accetto volentieri anche una soluzione in vba sperando di riuscire ad adattarla alle mie esigenze future

se comunque si potrebbero avere entrambi sarebbe fantastico :-)

[Modificato da melaverde74 08/12/2019 18:54]
Post: 3.584
Registrato il: 03/04/2013
Utente Master
Excel 2000 - 2013
OFFLINE
08/12/2019 19:12

Buona sera, @melaverde74;
in attesa di una Formula adeguata, potresti sopperire con un Codice VBA di questo tipo:

Option Explicit
Option Compare Text

Sub Analizza()
Application.ScreenUpdating = False
Dim NRc As Long, x As Long, y As Long
Dim k As Integer

    NRc = Range("A" & Rows.Count).End(xlUp).Row
    Cells(2, 1).ClearContents
        For x = 7 To NRc
            If Cells(x, 1).Value = Cells(1, 1).Value Then
                k = 0
                    Exit For
            End If
            Next x
                For y = x + 1 To NRc
                    If Cells(y, 1).Value = "" Then
                        k = k + 1
                    Else
                        Exit For
                    End If
                Next y
            Cells(2, 1).Value = k
Application.ScreenUpdating = True
End Sub

Da attivare con un Pulsante dedicato oppure con un Evento di questo tipo:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then Call Analizza
End Sub





A disposizione.

Buon fine settimana.

Giuseppe

Windows XP - Excel 2000
Windows 10 - Excel 2013
08/12/2019 20:27

Se metti l'ultima voce = Rami và in errore, basterebbe mettergli sotto qualcosa anche uno spazio. Valido solo se le altre celle sono vuote.
=CONFRONTA("*";INDIRETTO("A"&CONFRONTA(A1;A2:A1000;0)+2&":A1000");0)-1
Se cambi colonna, devi modificare "A",A1;A2:A1000,:A1000
Se devi modificare le righe :A1000 ed :A1000
Post: 88
Registrato il: 03/05/2016
Città: MILANO
Età: 50
Utente Junior
Excel 2011
OFFLINE
09/12/2019 10:37

Ringrazio tantissimo entrambi per le soluzioni proposte ....alla fine ho optato per la versione macro che sono riuscito ad adattare al file

ancora mille grazie

saluti
Simone
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 14:57. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com