چرا زمانی که از Ctrl+f استفاده میکنم ارور میدهد

[ozviat83]

Sub formulate()
'
' formulate Macro
' Macro recorded 10/5/00 by University of Georgia

'

' Keyboard Shortcut: Ctrl+f
'
SetCell:="$M$30", MaxMinVal:=2, ValueOf:="0", ByChange:="$D$4:$D$28"
SolverSolve
Sheets("Sensitivity Report 10").Select
ActiveCell.Offset(8, 6).Range("A1:A13").Select
Selection.Copy
Sheets("Formulate").Select
ActiveWindow.SmallScroll Down:=-7
ActiveCell.Offset(-16, -7).Range("A1").Select
ActiveSheet.Paste
Sheets("Sensitivity Report 10").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
End Sub

[iranweld]

این شیت کجاست؟

Sheets("Sensitivity Report 10").Select 

ضمنا این کدها کامل نیست آیا از جایی دیگر به داخل فایل خود کپی کرده اید؟

SetCell:="$M$30", MaxMinVal:=2, ValueOf:="0", ByChange:="$D$4:$D$28"
    SolverSolve 

خواسته خود را از این ماکرو بفرمایید تا دوستان راهنمایی لازم را انجام دهند

[ozviat83]

با سلام
این یک نرم افزار جیره نویسی هست
از اینترنت دانلود کردم
نرم افزار معروفی هست
اسم نرم افزار wuffda هست
من اصلا نمیدونم که این ماکرو چیکار میکنه
البته دوتا ماکروی دیگه هم درون برنامه هست که نمیدونم انها هم چیکار میکنند
من هیچ تغییری در برنامه نویسی ماکرو ها و خود فایل ایجاد نکردم نه صفحه کم یا زیاد کردم نه...
من میخوام بدونم کار این ماکرو ها چی هست
فکر میکنم قبلا باهاش مشکلی نداشتم اما به یک باره امروز مشکل ساز شده

[iranweld]

اصل فایل دانلود شده را بصورت زیپ شده ضمیمه کنید

[ozviat83]

همین فایل اصلی هست
ولب به صورت زیپ هم میفرستمITP_JIRE122.zip

[iranweld]

قبلا به این مشکل در این انجمن جواب داده شده است.

لینک پست