Private Sub ComboBox1_Change()
[Link]
[Link]
If [Link] = 0 Then
[Link] "Metro cúbico", 0
[Link] "Millón de metros cúbicos", 1
[Link] "Millón de pies cúbicos", 2
[Link] "Pie cúbico", 3
[Link] "Galón", 4
[Link] "Barriles", 5
[Link] "Barriles", 0
[Link] "Pies cúbicos", 1
[Link] "Litros", 2
[Link] "Miles de barriles", 3
[Link] "Metro cúbico", 4
[Link] "Galones", 5
End If
If [Link] = 1 Then
[Link] "millón de toneladas de petróleo", 0
[Link] "tonelada de petróleo crudo equivalente", 1
[Link] "millón de toneladas de petróleo crudo equivalente", 2
[Link] "tonelada métrica", 3
[Link] "barril de petróleo", 4
[Link] "millón de metros cúbicos de gas natural", 5
[Link] "millón de pies cúbicos de gas natural", 6
[Link] "metro cúbico de gas natural", 7
[Link] "metro cúbico de kerosina", 8
[Link] "metro cúbico de gas de alto horno", 9
[Link] "metro cúbico de gas de coque", 10
[Link] "barril de combustóleo pesado", 11
[Link] "barril de diesel *", 12
[Link] "tonelada de coque de petróleo", 13
[Link] "tonelada de bagazo", 14
[Link] "tonelada de carbón", 15
[Link] "tonelada de coque de carbón", 16
[Link] "BTU (1012 unidades térmicas británicas)", 0
[Link] "Gigajoules (109 joules)", 1
[Link] "Petajoules (1015 joules)", 2
[Link] "barriles de petróleo", 3
[Link] "barril de petróleo", 4
[Link] "pies cúbicos de gas natural", 5
[Link] "miles de toneladas de petróleo crudo", 6
[Link] "Calorías (para efectos de facturación de gas seco)", 7
[Link] "Calorías (con un factor de corrección calorífica de 1.06)", 8
[Link] "Kilocalorías", 9
[Link] "Calorías", 10
End If
If [Link] = 2 Then
[Link] "pie cúbico", 0
[Link] "BTU", 1
[Link] "caloría", 2
[Link] "kilocaloría", 3
[Link] "petajoule (1 * 1015)", 4
[Link] "Gigajoule", 5
[Link] "Petacaloría", 6
[Link] "Watt hora", 7
[Link] "MBTU de gas natural", 0
[Link] "Joules", 1
[Link] "caloría", 2
[Link] "BTU", 3
[Link] "miles de barriles de petróleo crudo equivalente", 4
[Link] "megawatts", 5
End If
End Sub
Private Sub CommandButton1_Click()
Dim total As Double
If [Link] = 0 Then
If [Link] = 0 And [Link] = 0 Then
total = [Link] * 6.2898104
End If
If [Link] = 0 And [Link] = 1 Then
total = [Link] * 35.31467
End If
If [Link] = 0 And [Link] = 2 Then
total = [Link] * 1
End If
If [Link] = 1 And [Link] = 3 Then
total = [Link] * 6289.8
End If
If [Link] = 2 And [Link] = 3 Then
total = [Link] * 178.107
End If
If [Link] = 3 And [Link] = 4 Then
total = [Link] * 0.0283168
End If
If [Link] = 4 And [Link] = 0 Then
total = [Link] * 0.0238
End If
If [Link] = 5 And [Link] = 5 Then
total = [Link] * 42
End If
If [Link] = 5 And [Link] = 2 Then
total = [Link] * 158.987304
End If
If [Link] = 0 And [Link] = 2 Then
total = [Link] * 6.2898104
End If
If [Link] = 0 And [Link] = 5 Then
total = [Link] * 35.31467
End If
If [Link] = 1 And [Link] = 0 Then
total = [Link] * 1
End If
If [Link] = 1 And [Link] = 1 Then
total = [Link] * 6289.8
End If
If [Link] = 1 And [Link] = 2 Then
total = [Link] * 178.107
End If
If [Link] = 1 And [Link] = 4 Then
total = [Link] * 0.0283168
End If
If [Link] = 1 And [Link] = 5 Then
total = [Link] * 0.0238
End If
If [Link] = 2 And [Link] = 0 Then
total = [Link] * 42
End If
If [Link] = 2 And [Link] = 1 Then
total = [Link] * 158.987304
End If
If [Link] = 2 And [Link] = 2 Then
total = [Link] * 6.2898104
End If
If [Link] = 2 And [Link] = 4 Then
total = [Link] * 35.31467
End If
If [Link] = 2 And [Link] = 5 Then
total = [Link] * 1
End If
If [Link] = 3 And [Link] = 1 Then
total = [Link] * 6289.8
End If
If [Link] = 3 And [Link] = 2 Then
total = [Link] * 178.107
End If
If [Link] = 3 And [Link] = 3 Then
total = [Link] * 0.0283168
End If
If [Link] = 3 And [Link] = 5 Then
total = [Link] * 0.0238
End If
If [Link] = 4 And [Link] = 1 Then
total = [Link] * 42
End If
If [Link] = 4 And [Link] = 2 Then
total = [Link] * 158.987304
End If
If [Link] = 0 And [Link] = 0 Then
total = [Link] * 6.2898104
End If
If [Link] = 4 And [Link] = 3 Then
total = [Link] * 35.31467
End If
If [Link] = 4 And [Link] = 4 Then
total = [Link] * 1
End If
If [Link] = 4 And [Link] = 5 Then
total = [Link] * 6289.8
End If
If [Link] = 5 And [Link] = 1 Then
total = [Link] * 178.107
End If
If [Link] = 5 And [Link] = 2 Then
total = [Link] * 0.0283168
End If
If [Link] = 5 And [Link] = 3 Then
total = [Link] * 0.0238
End If
If [Link] = 5 And [Link] = 4 Then
total = [Link] * 42
End If
If [Link] = 5 And [Link] = 5 Then
total = [Link] * 158.987304
End If
If [Link] = 1 Then
End If
If [Link] = 2 Then
If [Link] = 0 And [Link] = 0 Then
total = [Link] * 6.2898104
End If
If [Link] = 0 And [Link] = 1 Then
total = [Link] * 35.31467
End If
If [Link] = 0 And [Link] = 2 Then
total = [Link] * 1
End If
If [Link] = 0 And [Link] = 3 Then
total = [Link] * 6289.8
End If
If [Link] = 0 And [Link] = 4 Then
total = [Link] * 178.107
End If
If [Link] = 0 And [Link] = 5 Then
total = [Link] * 0.0283168
End If
If [Link] = 1 And [Link] = 0 Then
total = [Link] * 0.0238
End If
If [Link] = 1 And [Link] = 1 Then
total = [Link] * 42
End If
If [Link] = 1 And [Link] = 2 Then
total = [Link] * 158.987304
End If
If [Link] = 1 And [Link] = 4 Then
total = [Link] * 6.2898104
End If
If [Link] = 1 And [Link] = 5 Then
total = [Link] * 35.31467
End If
If [Link] = 2 And [Link] = 0 Then
total = [Link] * 1
End If
If [Link] = 2 And [Link] = 1 Then
total = [Link] * 6289.8
End If
If [Link] = 2 And [Link] = 3 Then
total = [Link] * 178.107
End If
If [Link] = 2 And [Link] = 4 Then
total = [Link] * 0.0283168
End If
If [Link] = 2 And [Link] = 5 Then
total = [Link] * 0.0238
End If
If [Link] = 3 And [Link] = 0 Then
total = [Link] * 42
End If
If [Link] = 3 And [Link] = 1 Then
total = [Link] * 158.987304
End If
If [Link] = 3 And [Link] = 2 Then
total = [Link] * 6.2898104
End If
If [Link] = 3 And [Link] = 3 Then
total = [Link] * 35.31467
End If
If [Link] = 3 And [Link] = 4 Then
total = [Link] * 1
End If
If [Link] = 3 And [Link] = 5 Then
total = [Link] * 6289.8
End If
If [Link] = 4 And [Link] = 0 Then
total = [Link] * 178.107
End If
If [Link] = 4 And [Link] = 1 Then
total = [Link] * 0.0283168
End If
If [Link] = 4 And [Link] = 2 Then
total = [Link] * 0.0238
End If
If [Link] = 4 And [Link] = 3 Then
total = [Link] * 42
End If
If [Link] = 4 And [Link] = 4 Then
total = [Link] * 158.987304
End If
If [Link] = 4 And [Link] = 5 Then
total = [Link] * 6.2898104
End If
If [Link] = 5 And [Link] = 0 Then
total = [Link] * 35.31467
End If
If [Link] = 5 And [Link] = 1 Then
total = [Link] * 1
End If
If [Link] = 5 And [Link] = 2 Then
total = [Link] * 6289.8
End If
If [Link] = 5 And [Link] = 3 Then
total = [Link] * 178.107
End If
If [Link] = 5 And [Link] = 4 Then
total = [Link] * 0.0283168
End If
If [Link] = 5 And [Link] = 5 Then
total = [Link] * 0.0238
End If
If [Link] = 5 And [Link] = 4 Then
total = [Link] * 42
End If
If [Link] = 5 And [Link] = 5 Then
total = [Link] * 158.987304
End If
If [Link] = 6 And [Link] = 0 Then
total = [Link] * 6.2898104
End If
If [Link] = 6 And [Link] = 1 Then
total = [Link] * 35.31467
End If
If [Link] = 6 And [Link] = 2 Then
total = [Link] * 1
End If
If [Link] = 6 And [Link] = 3 Then
total = [Link] * 6289.8
End If
If [Link] = 6 And [Link] = 4 Then
total = [Link] * 178.107
End If
If [Link] = 6 And [Link] = 5 Then
total = [Link] * 0.0283168
End If
If [Link] = 7 And [Link] = 0 Then
total = [Link] * 0.0238
End If
If [Link] = 7 And [Link] = 1 Then
total = [Link] * 42
End If
If [Link] = 7 And [Link] = 2 Then
total = [Link] * 158.987304
End If
If [Link] = 7 And [Link] = 3 Then
total = [Link] * 6.2898104
End If
If [Link] = 7 And [Link] = 4 Then
total = [Link] * 158.987304
End If
If [Link] = 7 And [Link] = 5 Then
total = [Link] * 6.2898104
End If
End If
End If
Cells(6, 11).Select
[Link]
Cells(6, 11) = [Link]
Cells(6, 12) = [Link]
Cells(6, 13) = total
Cells(6, 14) = [Link]
End Sub
Private Sub UserForm_Initialize()
[Link] "de Volumen", 0
[Link] "Caloríficas", 1
[Link] "Energéticas", 2
End Sub
