پرسش انتقال چند سطر از یک شیت به شیت دیگر

[s_samira_21]

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

[امين اسماعيلي]

RE: انتقال چند سطر از یک شیت به شیت دیگر

با درود
نمونه فایل

[s_samira_21]

RE: انتقال چند سطر از یک شیت به شیت دیگر

خیلی ممنونم

http://uplod.ir/aixgfdd9hg4v/anbar.xlsm.htm

[s_samira_21]

RE: انتقال چند سطر از یک شیت به شیت دیگر

: (
هیچکس نیست؟

[tosco3652]

RE: انتقال چند سطر از یک شیت به شیت دیگر

سلام
درخواست شما انجام شد.لطفا به فایل پیوست مراجعه بفرما.

http://s4.picofile.com/file/7758831070/answer_anbar.xlsm.html

[s_samira_21]

RE: انتقال چند سطر از یک شیت به شیت دیگر

            If Range("d2").Interior.ColorIndex = 35 Then c.Offset(0, 4).Value = ChrW(10003)
            If Range("d2").Interior.ColorIndex = 3 Then c.Offset(0, 5).Value = ChrW(10003)

ضمن تشکر. لطفا راجع به این قسمت برام کمی توضیح بدید
ممنون می شم.

[tosco3652]

RE: انتقال چند سطر از یک شیت به شیت دیگر

سلام
دو تا کدی را که مدنظر شماست، این کار را انجام می دهد:
اگر انتقال اطلاعات از شیت ورود یراق آلات باشد با تشخیص رنگ سلول D2 در این شیت، مقادیر را در گردش انبار در قسمت ستون مورد نظر علامت تیک که با کد (ChrW(10003 ایجاد می شود را قرار می دهد.
همچنین در شیت خروج یراق آلات که سلول D2 قرمز رنگ می باشد تشخیص می دهد و در شیت گردش انبار علامت تیک را در ستون مربوطه قرار می دهد.
امیدوارم که توضیحات مفید واقع شده باشد.
با سپاس

[سید حمید اقوامی]

یک شیت دارم که دارای ردیف است . از 1 تا 10. میخواستم به صورت خورکار ردیف 1 بره به شیت 2،ردیف 2 بره به شیت3 و........

[Amir Ghasemiyan]

یک شیت دارم که دارای ردیف است . از 1 تا 10. میخواستم به صورت خورکار ردیف 1 بره به شیت 2،ردیف 2 بره به شیت3 و........

سلام دوست عزيز
نميدونم شما ميخواين كاملا از ليست اوليه حذف كنيد يا نه ولي فكر كنم اين كد حدود كار رو دستتون مياره

For i = 1 To 10
    Rows(i).Copy
    Sheets(i + 1).Select
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
next i

[ali.b]

Sub Button1_Click()
On Error Resume Next
Dim c As Range
Dim d As Range
For i = 1 To Sheets.Count
    For Each c In Sheet1.Range("D3:D200")
        If c.Value = Sheets(i).Name Then
            Range("A3:C3").Select
            Selection.Copy
            Sheets(i).Activate
            Range("a1").Select
            Selection.End(xlDown).Select
            ActiveCell.Offset(1, 0).Range("a1").Select
            Selection.PasteSpecial Paste:=xlPasteValues
            Sheet1.Rows(c.Row).ClearContents
            Application.CutCopyMode = False
            Sheet1.Select
        End If
    Next c
Next i
Sheet1.Select
Range("a3").Select
End Sub

َما با این کد میتونید اطلاعاتتون رو بر حسب رنجی که تعریف میکنید به هر شیتی که هم نام با سلول مورد نظرتون باشه انتقال بدین
یعنی اگه یک ردیفی رو پر کردین و در سلولی مشخص نوشتین 1 تمام محتویات ردیف رو به شیتی که نامش 1 باشه انتقال میده

[gh.pa]

سلام و وقت بخیر
من یک برنامه در اکسل نوشتم که در دو مورد مشکل پیدا کردم و مدت زیادی هست درگیرش هستم. یکی در مورد دکمه ی جستجو و یکی در مورد ماکرو بزرگنمایی تصویر در اکسل .
در مورد اولی باید بگم: یک جدول دارم از یک سری اطلاعات که میخوام به کمک دکمه ی جستجو وقتی یک کد را در سلول مثلا h3 تایپ کردم و دکمه ی جستجو را زدم اکسل بیاد و تمام ردیف های این جدول را در ستون مثلا k بررسی کنه و اگر پیدا کرد نتیجه را در شیت دیگر نمایش دهد.یکی از دوستان ماکرو را برام نوشتن و ارسال کردن اما این ماکرو خطا میده و من نمیدونم چطور باید حلش کنم. امکانش هست راهنمایی بفرمایید؟
و مورد دوم اینکه میخوام مثلا در شیت 2 هر عکسی را وارد کردم و در یک سلول قرار دادم با یکبار کلیک کردن بزرگ بشه و با دابل کلیک کردن به سایز قبل برگردد.

[میثم مقدم نیا]

سلام و وقت بخیر
من یک برنامه در اکسل نوشتم که در دو مورد مشکل پیدا کردم و مدت زیادی هست درگیرش هستم. یکی در مورد دکمه ی جستجو و یکی در مورد ماکرو بزرگنمایی تصویر در اکسل .
در مورد اولی باید بگم: یک جدول دارم از یک سری اطلاعات که میخوام به کمک دکمه ی جستجو وقتی یک کد را در سلول مثلا h3 تایپ کردم و دکمه ی جستجو را زدم اکسل بیاد و تمام ردیف های این جدول را در ستون مثلا k بررسی کنه و اگر پیدا کرد نتیجه را در شیت دیگر نمایش دهد.یکی از دوستان ماکرو را برام نوشتن و ارسال کردن اما این ماکرو خطا میده و من نمیدونم چطور باید حلش کنم. امکانش هست راهنمایی بفرمایید؟
و مورد دوم اینکه میخوام مثلا در شیت 2 هر عکسی را وارد کردم و در یک سلول قرار دادم با یکبار کلیک کردن بزرگ بشه و با دابل کلیک کردن به سایز قبل برگردد.

سلام
دوست عزیز در مورد سوال اولتون اگه فایل پیوست با کدی که دوستان براتون فرستادن قرار بدید دوستان بهتر میتونند راهنمایتون کنند

اما در مورد سوال دومتون شما میتونید با ماکرو این کار را انجام بدید بدین منظور مراحل زیر را انجام دهید

1. بر روی تصویر مورد نظر جهت بزرگ نمایی کلیک راست کرده وسپس از منوی باز شده بر روی ...Assign Macro کلیک کنید.
2. در کادر اختصاصی ماکرو ، روی دکمه جدید کلیک کنید.
3. در پنجره ظاهر شده ویژوال بیسک ، کد ماکروی زیر را بین کدهای Sub و End Sub قرار دهید.

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3
    small = 1
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
     
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With 

در کد بالا بزرگنمایی تصویر شما 3 برابر است برای بیشتر بزرکتر شدن تصویر کد زیر را تغییر دهید

 big = 3 

اگر هم میخواهید این کار را برای چندین عکس انجام دهید از یک ماژول استفاده کنید مثل فایل پیوست.
موفق و سربلند باشید.