نحوه اجرای خودکار ماکرو ها

[naser1357]

سلام
استاد گرامی
من یک ماکرو برای این فایل نوشتم اما برای اجراش حتما باید run را زد حال انکه من میخام بمحض تغییر عدد سل مربوطه این کد اتومات اجرا شود
فایل پیوست می باشد

[abootorab]

سلام
استاد گرامی
من یک ماکرو برای این فایل نوشتم اما برای اجراش حتما باید run را زد حال انکه من میخام بمحض تغییر عدد سل مربوطه این کد اتومات اجرا شود
فایل پیوست می باشد

با درود
روی شیت ko راست کلیک و سپس View Code رو بزنید سپس کد زیر که کد ماکرو خودتون هست و در رویداد تغییر قرار دادم درون صفحه vb کپی کنید.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$1" Then
        If Range("g1").Value = 1 Then
        Sheets("ts").Select
            Range("A3").Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.Copy
            Sheets("ko").Select
            Range("A3").Select
            Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
                xlNone, SkipBlanks:=False, Transpose:=False
        ElseIf Range("g1").Value = 2 Then
            Range("F5").Select
            Sheets("se").Select
            Range("L6").Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.Copy
            Sheets("ko").Select
            Range("A3").Select
            Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
                xlNone, SkipBlanks:=False, Transpose:=False
        End If
    End If
End Sub 

[naser1357]

با درود
روی شیت ko راست کلیک و سپس view code رو بزنید سپس کد زیر که کد ماکرو خودتون هست و در رویداد تغییر قرار دادم درون صفحه vb کپی کنید.

private sub worksheet_change(byval target as range)
    if target.address = "$g$1" then
        if range("g1").value = 1 then
        sheets("ts").select
            range("a3").select
            range(selection, selection.end(xldown)).select
            selection.copy
            sheets("ko").select
            range("a3").select
            selection.pastespecial paste:=xlpastevaluesandnumberformats, operation:= _
                xlnone, skipblanks:=false, transpose:=false
        elseif range("g1").value = 2 then
            range("f5").select
            sheets("se").select
            range("l6").select
            range(selection, selection.end(xldown)).select
            selection.copy
            sheets("ko").select
            range("a3").select
            selection.pastespecial paste:=xlpastevaluesandnumberformats, operation:= _
                xlnone, skipblanks:=false, transpose:=false
        end if
    end if
end sub 

بسیار بسیار ممنونم
چون از طریق ایجاد botton مشکل را هم جل کردم به نظرتان کدام مسیر بهتر است مسیر پیشنهادی شما و یا همان کد ماکرو که با فشردن منویی اجرا خواهد شد؟
قسمت مربوط به شیت دیگر را که توش توضیح دادم مشکل بیشتری دارم ممنون میشوم اون قسمت را هم حل نمایید

[abootorab]

بسیار بسیار ممنونم
چون از طریق ایجاد botton مشکل را هم جل کردم به نظرتان کدام مسیر بهتر است مسیر پیشنهادی شما و یا همان کد ماکرو که با فشردن منویی اجرا خواهد شد؟
قسمت مربوط به شیت دیگر را که توش توضیح دادم مشکل بیشتری دارم ممنون میشوم اون قسمت را هم حل نمایید

درود مجدد
اینکه با یک دکمه این کار انجام بشه و یا با تغییر سلول کاملا به نیاز و وضعیت برنامه شما داره و خودتون بسته به سلیقه و نیازتون میتونید انتخاب کنید.
در مورد توضیحی که در شیت دیگه داده بودین راستش زیاد متوجه نشد، اگه یه فایل با مثال آپ کنید بهتر میشه کمک کرد.

[naser1357]

درود مجدد
اینکه با یک دکمه این کار انجام بشه و یا با تغییر سلول کاملا به نیاز و وضعیت برنامه شما داره و خودتون بسته به سلیقه و نیازتون میتونید انتخاب کنید.
در مورد توضیحی که در شیت دیگه داده بودین راستش زیاد متوجه نشد، اگه یه فایل با مثال آپ کنید بهتر میشه کمک کرد.

استاد فایل اپلود و توضیح در همان شیت دادم
با سپاس مجدد

[dark_boy99]

سلام منم دستوری رو میخوام که وقتی رو لیست یه عدد انتخاب بشه شیت همون عدد هم باز شه
راهنمایی میکنید?
ببینید من الان ALT+F11 رو زدم و وارد محیط VB شدم
این کد رو وارد کردم

Private Sub Worksheet_Change()If Range("Q14").Value = 1 Then
Sheets("سربرگ").Select
End If
End Sub

F5 که میزنم برا بار اول درسته و میره تو شیت دلخواهم ولی میخوام به محض اینکه کاربر انتخاب کنه درجا بره تو اون شیت
راهی هست؟

[dark_boy99]

کد رو تو صفحه اصلی زدم و درست شد و مشکلم حل شد
مرسی دوستان

[naser1357]

درود مجدد
اینکه با یک دکمه این کار انجام بشه و یا با تغییر سلول کاملا به نیاز و وضعیت برنامه شما داره و خودتون بسته به سلیقه و نیازتون میتونید انتخاب کنید.
در مورد توضیحی که در شیت دیگه داده بودین راستش زیاد متوجه نشد، اگه یه فایل با مثال آپ کنید بهتر میشه کمک کرد.

استاد گرام منتظر کمک ارزنده اتون هستم