Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

estrazione di righe con condizioni

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

estrazione di righe con condizioni

Postdi biagiosurace » 12/02/11 08:35

Buongiorno,
inserisco un codice che ho cercato di fare funzionare:
Premessa riesco ad estrarre delle righe in funzione a delle condizioni,vorrei inserire per tutte le pagine estratte delle righe con : codice, denominazione e corsoes: codice:rcsp010006
denominazione:righi
corso: aspp
praticamente ho 36 scuole con dei corsisti, ogni scuola inserisce in db dei nomi , dovrei estrarre per ogni scuola i corsisti per corso.
------------
Public estrai As String
Function WorksheetExists(WSName As String) As Boolean
' la funzione controlla l'esistenza del foglio denominato WSName
On Error Resume Next
WorksheetExists = Len(Worksheets(WSName).Name) > 0
End Function


Sub Compila()
'Sheets("Foglio3").Cells.Clear

Dim wrkPagina As Worksheet
Dim CODICE As String


CODICE = UCase(estrai)
If WorksheetExists(CODICE) = True Then
' se il foglio esiste --> cancello tutti i dati
Sheets(CODICE).Cells.Clear
Else
' se il foglio non esiste --> creo un nuovo foglio di lavoro
Set wrkPagina = ActiveWorkbook.Worksheets.Add()
wrkPagina.Name = CODICE
End If
Sheets("Foglio1").Activate

Rows(4).Copy Destination:=Sheets(CODICE).Cells(1, 1)

For RC = 3 To 550
If Range("B" & RC).Value = UCase(estrai) Then
If Range("N" & RC).Value >= 0 Then
Rows(RC & ":" & RC).Copy Destination:=Sheets(CODICE).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)



End If
End If
Next
MsgBox " LA SCUOLA SI TROVA SUL FOGLIO " & CODICE & "! "
End Sub
Sub Avvio()
UserForm1.Show
End Sub
-----------------
Grazie biagio, se non sono stato chiaro ditemi come posso inviare un file di esempio
biagiosurace
Utente Junior
 
Post: 16
Iscritto il: 20/07/10 07:00

Sponsor
 

Re: estrazione di righe con condizioni

Postdi Anthony47 » 13/02/11 15:09

Per inserire un file guarda qui: viewtopic.php?f=26&t=80395
Ricorda che il file e' "aggiuntivo" alla descrizione del problema (non "sostitutiva"); personalmente non ho capito bene la richiesta, quindi riprovaci con dovizia di particolari…

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: estrazione di righe con condizioni variazione

Postdi biagiosurace » 16/02/11 09:31

Correggo il Tiro,
dopo aver letto e aperto il file ho la necessità di inserire in prima e seconda riga le intestazione della scuola filtrata ed il codice della scuola come da esempio.
evidentemente nella colonna codice e denominazionbe non devono comparire.
per la formattazione delle colonne ho utilizzato un metodo fisso mentre credo che ci sia la possibilita di regolare la larghezza delle colonne in automatico.
Grazie Biagio
[url][/url]http://rapidshare.com/#!index|deletefiles|13110549063836370517|448204727|CORSISTIFILTRA_2PROVA.xls
biagiosurace
Utente Junior
 
Post: 16
Iscritto il: 20/07/10 07:00

Re: estrazione di righe con condizioni file in excell

Postdi biagiosurace » 16/02/11 09:41

Buongiorno cerco di spedire il file di esempio per spiegarmi.
ho la necessità di formattare la larghezza delle colonne in funzione della lunghezza della stringa.
inoltre vorrei inserire in automatico come intestazione nel file prodotto, il codie della scuola e la denominazione, eliminando dalle colonne i due campi.
Come fare?
Grazie per l'aiuto


http://rapidshare.com/files/448205816/CORSISTIFILTRA_2PROVA.xls
biagiosurace
Utente Junior
 
Post: 16
Iscritto il: 20/07/10 07:00


Torna a Applicazioni Office Windows


Topic correlati a "estrazione di righe con condizioni":


Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti