VBA ile Veri Zarflama Analizi-DEA frontier software uygulaması hakkında

[cayicm]

Merhaba,

Veri Zarflama Analizi (data Envelopment Analysis) yapmak için VBA da makrolarım var bu makroları çalıştırdığımda Solverda buldugum sonuç sureklı degısım gosterıyor.Aslında bu konuyla çalışmış arkadaşımız varsa aşağıdaki iki makroya göz atabılır mı sorun nedir? KArşılaştığım sıkıntıları makrolarla anlatacagım;

Sub DEA()
'Declare DMUNo as integer.This DMUNo represents the DMU under
'evaluation.In the example,DMUNo goes form 1 to 15
Dim DMUNo As Integer
For DMUNo = 1 To 15
'set the value of cell E18 equal to DMUNo (1,2,...,15)
Range("E18") = DMUNo
'Run the Solver Model.The UserFinish is set to True so that
'the Solver results dialog box will not be shown
SolverSolve UserFinish:=True
'Place the efficiency into column J
With Range("J1")
.Offset(DMUNo, 0) = Range("F19")
End With
Next DMUNo


End Sub
Bu Makroyu çalıştırdıgımda daha once excel solver da buldugum sonucu degıstırıyor.

Aşağıdaki makroda da paste special yapamıyor debug oluyor

Sub DEA1()
'Declare DMUNo as integer.This DMUNo represents the DMU under
'evaluation.In the example,DMUNo goes form 1 to 15
Dim DMUNo As Integer
For DMUNo = 1 To 15
'set the value of cell E18 equal to DMUNo (1,2,...,15)
Range("E18") = DMUNo
'Run the Solver Model.The UserFinish is set to True so that
'the Solver results dialog box will not be shown
SolverSolve UserFinish:=True
'Place the efficiency into column J
Range("J" & DMUNo + 1) = Range("F19")
'Select the cells containing the optimal lambdas
Range("I2,I16").Select
'copy the selcted lambdas and paste them to row "DMUNo+1"
'(that is row 2,3,...,16)starting with column K
Selection.Copy
Range("K" & DMUNo + 1).Select
Selection.PasteSpecial Paste:=x1PasteValues, Transpose:=True
Next DMUNo


End Sub

Fikri olan var mı?

Sevgiler