Escenarios

Espero te sirva esta macro, pruebala y me cuentas

> Cordial saludo
> Resulta que tengo una tabla con valores los cuales los cambio por medio

> escenarios.
>
> Como puedo hacer para crear varios escenarios masivamente? que no tenga

> crear escenario por escenario? necesito crear por ahi 20 y los datos los
> tengo en otra tabla.. cada columna seria un escenario.
>
> Muchas gracias
>
> Juan Alejandro P.

Ya te lo mande, me confirmas por favor

Hola Manuel
Resulta que el archivo no lo he podido ver.
Si puedes me la envias nuevamente al correo

gracias

"Manuel Romero" <m.r.o.m.e.r.o.p@@@@h.o.t.m.a.i.lc.o.m.> wrote in
message news:

Espero te sirva esta macro, pruebala y me cuentas

Cordial saludo
Resulta que tengo una tabla con valores los cuales los cambio por medio
de
escenarios.

Como puedo hacer para crear varios escenarios masivamente? que no tenga
que
crear escenario por escenario? necesito crear por ahi 20 y los datos
los
tengo en otra tabla.. cada columna seria un escenario.

Muchas gracias

Juan Alejandro P.

Lo que pasa es que la macro tiene userform y otras cosas, mas sin embargo
la macro es esta, espero que se pueda entender de alguna forma:

Sub GeneracionAutomaticaEscenarios()
Dim i As Integer
Dim j As Integer
Dim p As Integer
Dim NumCeldas As Integer
Dim cel As Range
Dim fila As Integer, NumFilas As Integer
Dim col As Integer, NumCols As Integer
Dim Celdas() As Variant
Dim Valores() As Variant
Dim Seleccion As String
Dim SepListas As String
Dim esc As Scenario

SepListas = Application.International(xlListSeparator)
' captura las celdas variables
UserForm1.Show
If Not UserForm1.Cancel Then
Seleccion = UserForm1.Celdas
If InStr(Seleccion, SepListas) > 0 Then
Celdas = Split(Seleccion, SepListas)
Else
i = 0
ReDim Celdas(0 To Range(Seleccion).Cells.Count - 1)
For Each cel In Range(Seleccion)
Seleccion = cel.Address(External:=True)
Celdas(i) = "'" & Mid(Seleccion, InStr(Seleccion, "]") + 1)
i = i + 1
Next
End If
NumCeldas = UBound(Celdas) - LBound(Celdas) + 1

' llena la lista de celdas variables
UserForm2.ListBox1.Clear
For i = LBound(Celdas) To UBound(Celdas)
UserForm2.ListBox1.AddItem Celdas(i)
Next
' captura los valores de las celdas variables
UserForm2.Show
If Not UserForm2.Cancel Then
If MsgBox("Desea borrar los escenarios previos?", vbYesNo +
vbQuestion + vbDefaultButton2) = vbYes Then
' borra los escenarios previos
For Each esc In ActiveSheet.Scenarios
esc.Delete
Next
End If

' crea los escenarios
NumFilas = UserForm2.NumFilas
NumCols = UserForm2.NumCols
fila = 1
col = 1
i = 0
p = ActiveSheet.Scenarios.Count
Do
' --
' Aqui esta la parte interesante
' Celdas es un vector con las direcciones de las celdas variables
' Valores es un vector con los valores de las celdas
' --
ReDim Valores(NumCeldas - 1)

' asigna los valores
For j = 0 To NumCeldas - 1
Valores(j) = Format(Range(UserForm2.Valores(j))._
Cells(fila, col).Value, "General Number")
Next

ActiveSheet.Scenarios.Add Name:="Escenario " & p + 1, _
ChangingCells:=Range(Join(Celdas, ",")), _
Values:=Valores

If fila < NumFilas Then
fila = fila + 1
ElseIf col < NumCols Then
col = col + 1
fila = 1
Else
Exit Do
End If
i = i + 1
p = p + 1
Loop
End If
End If
End Sub

nada que me llega!!!

si puedes pega la macro por este medio que yo la copio y la estudio.

Gracias Manuel

"Manuel Romero" <m.r.o.m.e.r.o.p@@@@h.o.t.m.a.i.lc.o.m.> wrote in
message news:

Ya te lo mande, me confirmas por favor

Hola Manuel
Resulta que el archivo no lo he podido ver.
Si puedes me la envias nuevamente al correo

gracias

"Manuel Romero" <m.r.o.m.e.r.o.p@@@@h.o.t.m.a.i.lc.o.m.> wrote in
message news:

Espero te sirva esta macro, pruebala y me cuentas

Cordial saludo
Resulta que tengo una tabla con valores los cuales los cambio por
medio de
escenarios.

Como puedo hacer para crear varios escenarios masivamente? que no
tenga que
crear escenario por escenario? necesito crear por ahi 20 y los datos
los
tengo en otra tabla.. cada columna seria un escenario.

Muchas gracias

Juan Alejandro P.