Questo è tutto, ma vi assicuro che farlo manualmente per tanti file porta via un sacco di tempo!! grazie mille per l'aiuto!!

Moderatori: Anthony47, Flash30005
Sub reform()
Dim myMatch, I As Long
For I = 1 To ThisWorkbook.Worksheets.Count
Sheets(I).Select
With Sheets(I)
If .Range("G1") <> 0 And Range("G2") <> 0 And IsNumeric(.Range("B1")) Then
mymax = (.Range("G2").Value + 0.01 - .Range("A10").Value) / .Range("B1").Value
If mymax > 10 And mymax < 10000 And .Range("B1") < 0.1 Then
.Range("A11:GW11").Copy _
Destination:=.Range("A11").Resize(mymax, 1)
.Range("A11").Offset(mymax, 0).Resize(10000, 210).Clear
End If
myMatch = Application.Match(.Range("GC5").Value, .Range("A1:A10000"))
If Not IsError(myMatch) Then
If Abs(.Cells(myMatch, 1) - .Range("GC5")) > Abs(.Cells(myMatch + 1, 1) - .Range("GC5")) Then myMatch = myMatch + 1
.Range("GV7").Formula = "=GT" & myMatch & "/STDEV(GT10:GT11114)"
End If
End If
End With
Next I
MsgBox ("Completato")
End Sub
Torna a Applicazioni Office Windows
Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Ordinare colonne sulla stessa riga se stesso contenuto Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro modifica date scelta periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 5 ospiti