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

MACRO EXCELL

Ultimo Aggiornamento: 07/05/2018 08:26
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

VARIABILE NON TROVATA



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

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

altra modifica
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!
Vota: 15MediaObject5,00115 1
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 12:51. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com