| | 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
|
|
|