Moderatori: Anthony47, Flash30005
Flash30005 ha scritto:Ciao Kiter88 e benvenuto nel Forum
Si, il codice si può implementare ma quale codice?
e, inoltre, dovresti inviare i file (Excel e testo) interessati per pensare di adoperarci a fare qualcosa.
Per l'invio dei file utilizza questa procedura
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=80395
Poi dovresti informarci sulla versione di office in tuo possesso come indicato
Qui
Ciao
Anthony47 ha scritto:Quindi i file txt sono gia' importati in excel, e "abitano" in fogli separati.
E' sufficiente una macro che "consolida" in un foglio Riepilogo il contenuto di tutti i fogli contenente dati? Se SI, c' e' qualche trucco per identificare i fogli da "consolidare" (cioe' da copiarne il contenuto in Riepilogo) e quelli da ignorare?
Ciao
Sub Consolida1()
Sheets(1).Copy Before:=Workbooks("Cartel1").Sheets("Foglio1")
End Sub
Anthony47 ha scritto:Quindi i file txt sono gia' importati in excel, e "abitano" in fogli separati.
E' sufficiente una macro che "consolida" in un foglio Riepilogo il contenuto di tutti i fogli contenente dati? Se SI, c' e' qualche trucco per identificare i fogli da "consolidare" (cioe' da copiarne il contenuto in Riepilogo) e quelli da ignorare?
Ciao
Sub Consolida()
Dim myArea As Range, I As Long, LastR As Long, NextR As Long, CopyCol As String
'
CopyCol = "A:I" '<<Le colonne da copiare, a partire da A
'
Range(CopyCol).Resize(1).Select
For I = 1 To Worksheets.Count
If UCase(Left(Sheets(I).Name, 4)) <> "RIEP" Then
Sheets(I).Select
LastR = FindLast(ActiveSheet, CopyCol)
Set myArea = Application.Intersect(Range(CopyCol), Range("2:" & LastR))
NextR = FindLast(Sheets("Riepilogo"), CopyCol) + 1
myArea.Copy Destination:=Sheets("Riepilogo").Cells(NextR, "A")
End If
Next I
Range(CopyCol).Resize(1).Copy Destination:=Sheets("Riepilogo").Range("A1")
Sheets("Riepilogo").Select
End Sub
Function FindLast(ByRef mySh As Worksheet, ByVal myCols As String) As Long
Dim Last
With mySh.Range(myCols)
Set Last = .Find(What:="*", After:=.Cells(1, 1), SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlFormulas)
End With
If Last Is Nothing Then FindLast = 1 Else FindLast = Last.Row
End Function
If UCase(Left(Sheets(I).Name, 4)) <> "RIEP" Then
If UCase(Left(Sheets(I).Name, 4)) <> "RIEP" And UCase(Sheets(I).Name) <> "MAIN" Then
ricky53 ha scritto:Ciao,
prova a sostituire l'istruzione
- Codice: Seleziona tutto
If UCase(Left(Sheets(I).Name, 4)) <> "RIEP" Then
con
- Codice: Seleziona tutto
If UCase(Left(Sheets(I).Name, 4)) <> "RIEP" And UCase(Sheets(I).Name) <> "MAIN" Then
ricky53 ha scritto:Ciao,
disegna il grafico ed invia un file di esempio e renderemo il grafico "dinamico" al variare delle righe di dati della tabella creata con il codice di Anthony.
ricky53 ha scritto:Ciao,
non sono un mago dei grafici ... ci provo.
Questa sera scarico il tuo file e ci risentiamo.
E' preferibili nel foglio riepilogo togliere le due righe di separazione dei dati ed utilizzare una colonna di appoggio per identificare la prova cui i dati si riferiscono.
Affermazione sempre valida ... questa sera, dopo aver visto il tuo file, potrò essere più preciso.
Set myArea = Application.Intersect(Range(CopyCol), Range("4:" & LastR)) 'Era "2", divernta "4"
Torna a Applicazioni Office Windows
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
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 |
Visitano il forum: Nessuno e 26 ospiti