Excel Forum

	Soluzioni Excel Domande e Risposte
		HELP HELP!!! Eliminare Righe

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

HELP HELP!!! Eliminare Righe

Ultimo Aggiornamento: 19/09/2017 11:20

kosekosi

Post: 83

Registrato il: 01/02/2011

Città: NAPOLI

Età: 62

Utente Junior

2016 ita

OFFLINE

18/09/2017 18:12

00#1

Salve... rieccomi qui a chiedere Favore !

Come al solito allego file per meglio presentare la mia richiesta.

In sintesi.... ho una tabella che Aggiorno via web.... di questa vorrei copiare
in un altro foglio della stessa cartella solo alcune righe... in particolare quelle che
presentano un determinato dato in una delle colonne... ed in più... giusto per
complicarmi maggiormente la vita....

..... vorrei che su ogni foglio creato con
i dati di cui sopra presi dalla tabella.... ci sia la possibilità di filtrare per data.

Nel file... cmq.... penso che è tutto più chiaro.

Ringrazio tutti, come sempre, per l'attenzione e contributo risolutivo....

Download (32 KB)

Versione Office2010

tanimon

Post: 1.111

Registrato il: 27/06/2011

Utente Veteran

excel 2007

OFFLINE

18/09/2017 20:17

00#2

ciao
hai trovato il tempo per scrivere 83 topic e neanche pochi minuti
per leggere il Regolamento del Forum o forse, dato che ti sei registrato nel 2011 te ne sei dimenticato.....
anche se dopo HELP HELP!!! ha aggiunto "Eliminare Righe"

Va bene,
ti riporto uno stralcio dell'articolo interessato:

.....
* 2.8 E' bene porre grande attenzione nella scelta del titolo della discussione (topic), che dev'essere adeguato ed il più possibile preciso e dettagliato, evitando assolutamente parole come "AIUTO!!", "URGENTE", "PROBLEMA" e simili richieste generiche
........

ciao

[Modificato da tanimon 18/09/2017 20:19]

Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...

ges64

Post: 18

Registrato il: 13/08/2015

Città: COMO

Età: 60

Utente Junior

excel 2016

OFFLINE

18/09/2017 23:47

00#3

Ciao,
prova così:

Sub Filtra()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim iData As Date
Dim x As Integer

Set sh1 = Worksheets("Foglio2")
Set sh2 = Worksheets("Foglio1")

Application.ScreenUpdating = False

sh2.Cells.Clear

iData = InputBox("Scegli la data per filtrare")

With sh1
.Range("A1:AE1").Copy sh2.Range("A1")
x = 2
For i = 2 To 1000
If (.Cells(i, "AD") > 200 And .Cells(i, "P") > .Cells(i, "Q")) And .Cells(i, "C") = iData Then
.Range("A" & i & ":AE" & i).Copy
sh2.Range("A" & x).PasteSpecial Paste:=xlValues
x = x + 1
End If
Next i
End With

sh2.Columns("C:C").NumberFormat = "m/d/yyyy"

Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Download (43 KB)

kosekosi

Post: 83

Registrato il: 01/02/2011

Città: NAPOLI

Età: 62

Utente Junior

2016 ita

OFFLINE

19/09/2017 00:09

00#4

Risoltooooooo......!!!!

Un immenso GRAZIE a Ges64.....
una soluzione migliore di quella richiesta.

Colgo l'occasione per ringraziare .... oltre Ges64... tutti gli altri membri "risolutori" per la immensa disponibilità e bravura.... GRANDI !!!!

Mi scuso con Tanimon .... ho letto tempo fa dell'avviso... ma l'avevo dimenticato..... Sicuramente non si ripeterà!

Versione Office2010

kosekosi

Post: 84

Registrato il: 01/02/2011

Città: NAPOLI

Età: 62

Utente Junior

2016 ita

OFFLINE

19/09/2017 10:18

00#5

x Ges64....

stamattina ho riaperto il file con la tua soluzione e non c'è più il bottone Filtra.... ho riscaricato il file .... riaperto .... testato.... chiuso.... riaperto e di nuovo Bottone sparito.

Cosa bisogna fare?

e se ho ben capito.... non esiste una possibilità di ottenere la soluzione con formule invece che VBA?

[SM=x423017]

Versione Office2010

ges64

Post: 19

Registrato il: 13/08/2015

Città: COMO

Età: 60

Utente Junior

excel 2016

OFFLINE

19/09/2017 11:04

00#6

Che strano il fatto che ti scompaia il bottone.

Comunque con le formule, inserisci questa in A2 del secondo foglio da copiare in basso e a destra:

=SE.ERRORE(INDICE(Foglio2!A$2:A$66;AGGREGA(15;6;(RIF.RIGA($A$2:$A$66)-1)/((Foglio2!$AE$2:$AE$66<> "----")*(Foglio2!$C$2:$C$66=Foglio1!$AG$1));RIGHE($A$1:A1)));"")