| | Post: 1 | Registrato il: 02/05/2018
| Città: MILANO | Età: 34 | Utente Junior | 2013 | | OFFLINE | |
|
02/05/2018 16:28 | |
sto provando ma scrivere una macro.
Inserendo un valore mi va a leggere la colonna Tipologia_2 e mi restituisce nel foglio 2 le righe corrispondenti al testo trovato in colonna Tipologia_2,
Non so se sono stato chiaro, andando ad inserire il testo mi da sempre "testo non trovato".
Qualcuno può aiutarmi?
ALLEGO LINK WE TRANSFER CON SCREEN
|
|
| | Post: 4.084 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
02/05/2018 16:42 | |
no immagini, allega un file excel di esempio
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 687 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
02/05/2018 17:35 | |
"testo non trovato" ti esce sicuramente perché nella colonna A hai tutto in maiuscolo mentre alla domanda "Cosa vuoi cercare?" scrivi in minuscolo.
Questo dettaglio lo puoi superare sostituendo la riga:
If Cells(I, 1) = (X) Then
con:
If LCase(Cells(I, 1)) = LCase(X) Then
Detto questo poi c'è da lavorare (molto) sulle successive due righe che dovrebbero fare il Copia/Incolla.
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 1 | Registrato il: 02/05/2018
| Città: MILANO | Età: 34 | Utente Junior | 2013 | | OFFLINE | |
|
02/05/2018 18:00 | |
non è quello il problema!! |
| | Post: 2 | Registrato il: 02/05/2018
| Città: MILANO | Età: 34 | Utente Junior | 2013 | | OFFLINE | |
|
02/05/2018 18:44 | |
ALLEGO IL FILE IN OGGETTO CON RELATIVA MACRO. [Modificato da MAURIZIO1989 02/05/2018 18:47] |
| | Post: 4.085 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
02/05/2018 19:18 | |
hai allegato un file con 2 macro, a me la Sub CercaTesto funziona bene [Modificato da patel45 02/05/2018 19:21]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta |
| | Post: 1.151 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
02/05/2018 21:15 | |
ciao a tutti,
ciao Maurizio,
il tuo file è troppo pesante, non posso allegarlo.
Comunque questa è la macro che ho assegnato ad un CommandButton
su un Form che puoi fare apparire all'apertura del file
mi sembra faccia quanto chiedevi.
Ciao
Frank
Option Explicit
Private Sub CommandButton1_Click()
Dim priga As Long, ur As Long, uriga As Long, ur1 As Long
Dim sh As Worksheet, sh1 As Worksheet
Dim TextToFind As String
Set sh = Sheets("Foglio1")
Set sh1 = Sheets("Foglio2")
TextToFind = InputBox("Cosa vuoi cercare?")
With sh
uriga = .Range("a" & Rows.Count).End(xlUp).Row
Range("A2").Select
Selection.AutoFilter
ActiveSheet.ListObjects("Tabella2").Range.AutoFilter Field:=1, Criteria1:= _
TextToFind
priga = Range("A2:A" & Rows.Count).SpecialCells(xlCellTypeVisible).Row
ur = Range("a2:a" & uriga).SpecialCells(xlCellTypeVisible).Count
ur1 = sh1.Range("a" & Rows.Count).End(xlUp).Row
.Range(.Cells(priga, 1), .Cells(priga + ur, 5)).Copy sh1.Cells(ur1, 1)
sh.Range("A2").Select
Selection.AutoFilter
UserForm1.Hide
End With
Set sh = Nothing
Set sh1 = Nothing
End Sub
[Modificato da tanimon 02/05/2018 21:35]
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 3 | Registrato il: 02/05/2018
| Città: MILANO | Età: 34 | Utente Junior | 2013 | | OFFLINE | |
|
02/05/2018 22:28 | |
Grazie, poi proverò ad utilizzare la macro, vi ringrazio.
|
| | Post: 4 | Registrato il: 02/05/2018
| Città: MILANO | Età: 34 | Utente Junior | 2013 | | OFFLINE | |
|
03/05/2018 08:08 | |
CONTINUA A NON TROVARE!
HO PROVATO ANCHE LA MACRO CHE AVETE POSTATO MA MI DA VARIABILE NON DEFINITA, POSTO LO SCREEN |
| | Post: 1.153 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
03/05/2018 08:26 | |
ciao a tutti,
ciao Maurizio
non so cosa hai messo nel tuo file, ci ho lasciato solo una parte della tabella perchè fosse caricabile e non lento ad aprirsi/chiudersi.
A me l'allegato funziona.
Buona giornata
Frank
[Modificato da tanimon 03/05/2018 08:26]
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 5 | Registrato il: 02/05/2018
| Città: MILANO | Età: 34 | Utente Junior | 2013 | | OFFLINE | |
|
03/05/2018 08:40 | |
ora devo migliorare il tutto
ogni volta che cerco un nuovo elemento mi deve cancellare quelli che ho già copiato nel foglio nella precedente ricerca e non deve metterli di seguito.
come posso fare?
grazie!! |
| | Post: 1.154 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
03/05/2018 08:52 | |
aggiungi la riga in rosso
[TESTO ::vb]Private Sub CommandButton1_Click()
Dim priga As Long, ur As Long, uriga As Long, ur1 As Long Dim sh As Worksheet, sh1 As Worksheet Dim TextToFind As String
Set sh = Sheets("Foglio1") Set sh1 = Sheets("Foglio2")
TextToFind = InputBox("Cosa vuoi cercare?")
With sh Range("A2").Select Range("A2").Select Selection.AutoFilter uriga = .Range("a" & Rows.Count).End(xlUp).Row ActiveSheet.ListObjects("Tabella2").Range.AutoFilter Field:=1, Criteria1:= _ TextToFind priga = Range("A2:A" & Rows.Count).SpecialCells(xlCellTypeVisible).Row ur = Range("a2:a" & uriga).SpecialCells(xlCellTypeVisible).Count ur1 = sh1.Range("a" & Rows.Count).End(xlUp).Row sh1.Range("a1:e" & ur1).ClearContents .Range(.Cells(priga, 1), .Cells(priga + ur, 5)).Copy sh1.Cells(ur1, 1) sh.Range("A2").Select Selection.AutoFilter UserForm1.Hide End With Set sh = Nothing Set sh1 = Nothing End Sub
[Modificato da tanimon 03/05/2018 08:57]
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 6 | Registrato il: 02/05/2018
| Città: MILANO | Età: 34 | Utente Junior | 2013 | | OFFLINE | |
|
03/05/2018 08:57 | |
se io voglio mettere il "bottone" in un terzo foglio excel in cui sia presente solo il bottone, come devo modificare la routine?
mettendo il bottone nel nuovo foglio e scrivendo la macro come mi avete consigliato sopra, da errore!
che modifiche si devono/ possono fare?
vi ringrazio! |
| | Post: 1.155 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
03/05/2018 09:02 | |
ciao Maurizio,
ti faccio il punto della situazione:
hai fatto una richiesta;
hai ottenuto il file funzionante con la risposta.
ora:
chiarisciti una volta per tutte cosa vuoi fare,
e DOPO,
se non riesci, ma mi sembra di avere capito che ci provi poco.....
fai una nuova richiesta.
Ciao
Frank
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 9 | Registrato il: 02/05/2018
| Città: MILANO | Età: 34 | Utente Junior | 2013 | | OFFLINE | |
|
07/05/2018 08:26 | |
scusate il disturbo, sto ancora provando a modificare la macro, ora per trovare gli elementi devo scrivere esattamente tutto il contenuto presente nella cella. come posso modificare la macro? ad esempio se in una cella è presente il nome UPS MODULARI, ora per trovarla devo scrivere esattamente UPS MODULARI. io verrei scrivere ad esempio solo la parola UPS e trovare le celle contenenti UPS MODULARI.
chi può aiutarmi?
grazie! |
|
|