Descárgalo

Identificate

Nombre:

Contraseña:

Recordar



¿Recuperar la contraseña?

Regístrese


Aquí se pueden ver los macros que tienen los diferentes archivos.




MercadoContinuo V2.0 y V4.0:
  • No contiene macros.
MercadoContinuo_V4.1:
  • Macro 1
MercadoContinuo_V5.0:
  • Macro 2
  • Macro 3
  • Macro 4
  • Macro 5
  • Macro 6
  • Macro 7
  • Macro 8
  • Macro 9
  • Macro 10

MACRO 1:

' Sonar Pitido al saltar una Resistencia o Soprote
Private Sub Worksheet_Calculate()
If Range("k1") <> Range("l5") Then
If Range("k1") > 0 Then
If Range("l5") > 0 Then
Sheets("Internet 2").Select
ActiveSheet.Shapes("Object 4").Select
Selection.Verb Verb:=xlPrimary
Sheets("Mercado Continuo").Select
Range("K1") = Range("l5")
End If
End If
End If
If Range("k2") <> Range("l6") Then
If Range("k2") > 0 Then
If Range("l6") > 0 Then
Sheets("Internet 2").Select
ActiveSheet.Shapes("Object 4").Select
Selection.Verb Verb:=xlPrimary
Sheets("Mercado Continuo").Select
Range("K2") = Range("l6")
End If
End If
End If
End Sub

MACRO 2:

Sub SC()
' Para grabar los datos actuales de mi cartera
'
'Primero copiamos los datos de cartera agrupada a Seguimiento cartera

Sheets("Cartera").Select
Range("C72:E101").Select
Selection.Copy
Sheets("Seguimiento Cartera").Select
Range("t9").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Segundo Prolongamos las filas w y x
Range("w9:x9").Select
Selection.Copy
Range("x9").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, -1).Select
Dim valor As String
valor = Range("y6").Value
Selection.Resize(Selection.Rows.Count + valor, _
Selection.Columns.Count).Select
ActiveSheet.Paste
Range("B4").Select
'tercero Prolongamos las filas desde ad hasta aw
If Range("t6") > 2 Then
Range("ad12:aw12").Select
Selection.Copy
Range("ad12").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Range("B4").Select
End If
Range("B4").Select
End Sub

MACRO 3:

Sub Macro5()
'
' Borra todos los datos de nuestra cartera

YesNo = MsgBox("¿Estas seguro de que quieres borrar el historial de tu cartera?", vbYesNo + vbCritical, "Advertencia")
Select Case YesNo
Case vbYes
Range("t9:v9").Select
Selection.ClearContents
Range("t10:x30000").Select
Selection.Delete Shift:=xlUp
Range("ad13:aw30000").Select
Selection.Delete Shift:=xlUp
Range("F55").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$AF$10:$AF$30000"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Range("B4").Select
Case vbNo
MsgBox ("Operación cancelada")
End Select
End Sub

MACRO 4:

Sub Actualizar_Fondos()
' Actualizamos los 15 fondos
Sheets("Internet 2").Select
Range("ar4").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Fondos").Select
Range("b5").Select
End Sub

MACRO 5:

Sub Actualizar_MCyVI()
' Actualizamos el mercado continuo y los 15 valores internacionales
Sheets("Internet 2").Select
Range("BL50").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("D4").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Mercado Continuo").Select
Range("G1").Select
End Sub
MACRO 6:

Sub Actualizar_Ind()
' Actualizamos los 15 indices
Sheets("Internet 2").Select
Range("x4").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Indices").Select
Range("b5").Select
End Sub
MACRO 7:

Sub Agrupada()
'
' Agrupada Macro
'

ActiveWindow.Zoom = 50
Range("E10").Select
ActiveWindow.FreezePanes = False
ActiveWindow.SmallScroll Down:=3
ActiveWindow.ScrollRow = 5
.
.
.
ActiveWindow.ScrollRow = 13
Rows("63:103").Select
Selection.EntireRow.Hidden = False
Rows("2:64").Select
Range("A64").Activate
Selection.EntireRow.Hidden = True
Range("a1").Select
Range("s72").Select
ActiveWindow.FreezePanes = True
Range("A69").Select
ActiveWindow.Zoom = 100
End Sub

MACRO 8:

Sub sinagrupar()
'
' sinagrupar Macro
'

Range("A65").Select
ActiveWindow.FreezePanes = False
ActiveWindow.Zoom = 50
Rows("1:65").Select
Selection.EntireRow.Hidden = False
ActiveWindow.ScrollRow = 2
.
.
.
ActiveWindow.ScrollRow = 41
ActiveWindow.SmallScroll Down:=3
Rows("64:102").Select
Range("A102").Activate
Selection.EntireRow.Hidden = True
ActiveWindow.ScrollRow = 43
.
.
.
ActiveWindow.ScrollRow = 1
Range("S12").Select
ActiveWindow.FreezePanes = True
ActiveWindow.Zoom = 100
End Sub

MACRO 9:

Sub operaciones2()
' operaciones2 Mostramos filas ocultas
'

Rows("12:1205").Select
Selection.EntireRow.Hidden = False
Range("C14").Select
End Sub
MACRO 10:

Sub operaciones1()
' operaciones1 ocultamos filas
'

Rows("13:15").Select
Selection.EntireRow.Hidden = True
Rows("19:21").Select
Selection.EntireRow.Hidden = True
.
.
.
Rows("1195:1197").Select
Selection.EntireRow.Hidden = True
Rows("1201:1203").Select
Selection.EntireRow.Hidden = True
Range("b11").Select
End Sub
Los usuarios son responsables de sus propios comentarios.