Macros Excel

Técnicas de Analisis de Riesgo para la Remediación de Suelos y Aguas Subterráneas Contaminados por Hidrocarburos
ANEXO 1
Pág. 1

Sumario ANEXO 1
1. Definición de los diversos parámetros................................................2
2. Elección del tipo de carburante…………………………………….………2
3. Macro referida a la contaminación del suelo…………………………......4
3.1. Limpieza de las zonas de lahoja “Hidrocarburovap”………………………......4
3.2. Definición de los cálculos y colocación en las celdas correspondientes…....5

4. Macro referida a la contaminación del agua………………………………9
4.1. Limpieza de las zonas de la hoja “Hidrocarburoliq”…………………………….9
4.2. Definición de los cálculos y colocación en las celdas correspondientes…....9

Pág. 2

Memoria

1. Definición de los diversosparámetros para los dos modelos
Private Sub Run_Click()
'Sub elección del tipo de carburante
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim n As Single
Dim o As Integer
Dim p As Integer
Dim q As Integer
Dim r As Integer
Dim s As Integer
Dim t As Integer
Dim u As Integer
Dim v As Integer
Dim w As Integer
Dim x As Integer
Dim y As Integer
Dimz As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer

2. Elección del tipo de carburante
(Esta elección tiene lugar solamente si corresponde a uno de los tres tipos de
composición que tenemos ya predefinidos)
b=2
If Worksheets("Parametros").Cells(4, 2).Value = "DIESEL" Or Worksheets("Parametros").Cells(4,
2).Value ="Diesel" Then
Worksheets("Parametros").Cells(5, 2).Value = Worksheets("Parametros").Cells(5, 6).Value
Worksheets("Parametros").Cells(6, 2).Value = Worksheets("Parametros").Cells(6, 6).Value
For b = 2 To 60
Worksheets("Hidrocarburoliq").Cells(b, 2).Value = Worksheets("Composicion").Cells(b, 15).Value
Worksheets("Hidrocarburovap").Cells(b, 2).Value = Worksheets("Composicion").Cells(b, 15).ValueWorksheets("Hidrocarburoliq").Cells(b + 61, 2).Value = Worksheets("Composicion").Cells(b, 15).Value
Worksheets("Hidrocarburovap").Cells(b + 61, 2).Value = Worksheets("Composicion").Cells(b, 15).Value
Worksheets("Hidrocarburoliq").Cells(b + 122, 2).Value = Worksheets("Composicion").Cells(b, 15).Value
Worksheets("Hidrocarburovap").Cells(b

+

122,

2).Value

=Worksheets("Composicion").Cells(b,

Técnicas de Analisis de Riesgo para la Remediación de Suelos y Aguas Subterráneas Contaminados por Hidrocarburos
ANEXO 1
Pág. 3
15).Value
Worksheets("Hidrocarburoliq").Cells(b + 183, 2).Value = Worksheets("Composicion").Cells(b, 15).Value
Worksheets("Hidrocarburovap").Cells(b

+

183,

2).Value

=

Worksheets("Composicion").Cells(b,

15).Value
Next b
End Ifc=2
If Worksheets("Parametros").Cells(4, 2).Value = "Gasolina" Or Worksheets("Parametros").Cells(4,
2).Value = "GASOLINA" Then
Worksheets("Parametros").Cells(5, 2).Value = Worksheets("Parametros").Cells(5, 5).Value
Worksheets("Parametros").Cells(6, 2).Value = Worksheets("Parametros").Cells(6, 5).Value
For c = 2 To 60
Worksheets("Hidrocarburoliq").Cells(c, 2).Value =Worksheets("Composicion").Cells(c, 14).Value
Worksheets("Hidrocarburovap").Cells(c, 2).Value = Worksheets("Composicion").Cells(c, 14).Value
Worksheets("Hidrocarburoliq").Cells(c + 61, 2).Value = Worksheets("Composicion").Cells(c, 14).Value
Worksheets("Hidrocarburovap").Cells(c + 61, 2).Value = Worksheets("Composicion").Cells(c, 14).Value
Worksheets("Hidrocarburoliq").Cells(c + 122, 2).Value =Worksheets("Composicion").Cells(c, 14).Value
Worksheets("Hidrocarburovap").Cells(c

+

122,

2).Value

=

Worksheets("Composicion").Cells(c,

14).Value
Worksheets("Hidrocarburoliq").Cells(c + 183, 2).Value = Worksheets("Composicion").Cells(c, 14).Value
Worksheets("Hidrocarburovap").Cells(c

+

183,

2).Value

=

Worksheets("Composicion").Cells(c,

14).Value
Next c
End If
d=2
If...