J'essaie de construire un code qui va trier, rechercher et copier des données à partir d'un ensemble de données en constante évolution. Je pense que je dois définir une variable, puis demander au codé de trouver les coordonnées de la variable, puis procéder, mais cela pourrait être totalement faux. J'ai inclus l'idée de base de ce que j'ai besoin du code à faire dans le code mais je ne connais pas la syntaxe pour le faire fonctionner. Des pensées?
Sub Organize_Data ()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim X As Integer
Dim Function_Name As String
Replace_Blank
'******Next line could use some "robusting" by replacing hard coded value with a search for EE status**************
A = ActiveWorkbook.Worksheets("Raw Data").Range("F2", Worksheets("Raw Data").Range("F2").End(xlDown)).Rows.Count
Worksheets.Add().Name = "Calculations"
Find_Unit
Find_Locations
B = ActiveWorkbook.Worksheets("Calculations").Range("B3", Worksheets("Calculations").Range("B3").End(xlDown)).Rows.Count
C = ActiveWorkbook.Worksheets("Calculations").Range("C3", Worksheets("Calculations").Range("C3").End(xlDown)).Rows.Count
For X = 1 To B
Worksheets.Add().Name = Sheets("Calculations").Range("B2").Offset(X, 0).Value
Next X
Delete_Temp_Sheets
ActiveWorkbook.Worksheets("Raw Data").Sort.SortFields.Add Key:=Range( _
"F2:F376"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Raw Data").Sort
.SetRange Range("B2:V376")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'*********Working code******************
Sheets("Raw Data").Select
Cells.Find(What:="EE status", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Calculations").Select
Range("B2").Select
ActiveSheet.Paste