Moderatori: Anthony47, Flash30005
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Call Compila
End If
End Sub
Sub Compila()
Rows("2:1000").Select
Selection.ClearContents
Range("A1").Select
Ur = Worksheets("Foglio1").Range("A1").End(xlDown).Row
NR = 1
For I = 1 To Ur
If Worksheets("Foglio2").Range("A1").Value = Worksheets("Foglio1").Range("A" & I).Value Then
Sheets("Foglio1").Select
Rows(I & ":" & I).Select
Selection.Copy
Sheets("Foglio2").Select
Rows(NR & ":" & NR).Select
ActiveSheet.Paste
NR = NR + 1
End If
Next I
Sheets("Foglio1").Select
Application.CutCopyMode = False
Range("A1").Select
Sheets("Foglio2").Select
Application.CutCopyMode = False
Range("A1").Select
End Sub
POS Paris ha scritto:...
E' possibile lasciare la lista in una cartella d lavoro separata? ho fatto diversi tentativi seguendo le istruzione dell'asistente di excel, ma deve esserci qcosa che interpreto male![]()
Hai qualche suggerimento?
POS Paris ha scritto:Caro Flash30005, arieccomi...
come ti dicevo tutto funziona perfettamente, l'unica cosa è che, data la lunghezza della lista, il file è diventato pesantissimo. E' possibile lasciare la lista in una cartella d lavoro separata? ho fatto diversi tentativi seguendo le istruzione dell'asistente di excel, ma deve esserci qcosa che interpreto male![]()
Hai qualche suggerimento?
Grazie
POS Paris ha scritto:Ad es. se il cognome Rossi rientra nel segmento alfabetico “ROP-SIC” il risultato deve essere “Y”. Io non ho proprio idea,
ricky53 ha scritto:Ciao,
per la questione "Rossi" compreso tra "Rop-Sic" devi fare una macro opportuna e di difficoltà media.
Le lettere dell'intervallo min e max sono "tre" ???
Ciao da Ricky53
=SE(E(SINISTRA(A1;TROVA("-";B1)-1)>=SINISTRA(B1;TROVA("-";B1)-1);SINISTRA(A1;LUNGHEZZA(B1)-TROVA("-";B1))<=STRINGA.ESTRAI(B1;TROVA("-";B1)+1;11));"Y";"N")
Anthony47 ha scritto:Per il quanto riguarda l' individuare se una parola e' compresa in un intervallo:
-la parola e' in A1 (es Rossi)
-l' intervallo e' un B1 (es Rop-Sic), con blocchi i lunghezza a piacere separati dal "trattino"
Userai la formula
- Codice: Seleziona tutto
=SE(E(SINISTRA(A1;TROVA("-";B1)-1)>=SINISTRA(B1;TROVA("-";B1)-1);SINISTRA(A1;LUNGHEZZA(B1)-TROVA("-";B1))<=STRINGA.ESTRAI(B1;TROVA("-";B1)+1;11));"Y";"N")
Fai sapere, ciao.
Anthony47 ha scritto:Penso di SI, ma per una risposta piu' precisa dovresti dire come sono indicati questi 4 intervalli.
Ciao.
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 5 ospiti