نمایش نتایج: از شماره 1 تا 6 , از مجموع 6

موضوع: کمک در حذف موجودی انبار با وارد کردن کد کالا

  1. #1


    آخرین بازدید
    2021/01/03
    تاریخ عضویت
    September 2012
    نوشته ها
    147
    امتیاز
    36
    سپاس
    73
    سپاس شده
    36 در 24 پست
    تعیین سطح نشده است

    کمک در حذف موجودی انبار با وارد کردن کد کالا

    سلام»
    من یک فایل انبار ایجاد کردم که در آن تعدادی دستگاه دارم با سریال متفاوت با مدلهای مختلف.می خوام در شیت "فسخ به انبار" وقتی شماره سریال دستگاه را وارد می کنم ابتدا پیغام "شما از اظمینان دارید"ظاهر شود بعد که تایید زدم شماره سریال از انبار اصلی حذف شود و در شیت " فسخ به انبار"وارد شود.البته یک مورد وجود دارد اینکه در شیت"انبار اصلی"در ستون c (مدل دستگاه)هم پس از حذف سریال نیز حذف شود در واقع سطر مربوط به سریال کاملا حذف شود.
    چیزی شبیه به این پست:
    انتقال چند سطر از یک شیت به شیت دیگر

    ممنون
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsx new1.xlsx اطلاعات (110.8 کیلو بایت, 41 نمایش)
    ویرایش توسط ACE : 2017/09/30 در ساعت 04:11

  2.  

  3. #2


    آخرین بازدید
    2021/01/03
    تاریخ عضویت
    September 2012
    نوشته ها
    147
    امتیاز
    36
    سپاس
    73
    سپاس شده
    36 در 24 پست
    تعیین سطح نشده است

    سلام...کسی نیست کمک کند؟

  4. #3


    آخرین بازدید
    2021/01/03
    تاریخ عضویت
    September 2012
    نوشته ها
    147
    امتیاز
    36
    سپاس
    73
    سپاس شده
    36 در 24 پست
    تعیین سطح نشده است

    ????

  5. #4


    آخرین بازدید
    21 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    سلام دوست عزیز

    یکی دو روز صبر کنید بعد اگه جواب سوالتو رو نگرفتین پست بزنین تاپیکتون بیاد بالا. کسایی که میتونن پاسخ سوالتون رو بدن ۲۴ ساعت تو سایت آنلاین نیستن

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

    کد:
    Sub EI_RemoveSerial()
    Serial = Range("F7").Value
    If Not IsNumeric(Serial) Then Exit Sub
    Lrow1 = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
    Lrow2 = Sheet2.Range("A" & Sheet2.Rows.Count).End(xlUp).Row
    For Each cel In Sheet1.Range("B2:B" & Lrow1)
        If cel.Value = Serial Then
            ThisRow = cel.Row
            Sheet1.Range("A" & ThisRow & ":C" & ThisRow).Copy
            Sheet2.Range("A" & Lrow2 + 1 & ":C" & Lrow2 + 1).PasteSpecial
            Sheet2.Range("A" & Lrow2 + 1).FormulaR1C1 = "=IF(ISBLANK(RC[1])=TRUE,"""",COUNTA(R1C1:R[-1]C))"
            Sheet1.Range("A" & ThisRow & ":C" & ThisRow).Delete Shift:=xlUp
            Exit Sub
        End If
    Next cel
    End Sub
    
    
    Sub EI_Warning()
    msg = MsgBox("do you realy want remove this serial?", vbYesNo)
    If msg = 6 Then EI_RemoveSerial
    End Sub
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm new1.xlsm اطلاعات (19.9 کیلو بایت, 37 نمایش)

  6. سپاس ها (1)


  7. #5


    آخرین بازدید
    2021/01/03
    تاریخ عضویت
    September 2012
    نوشته ها
    147
    امتیاز
    36
    سپاس
    73
    سپاس شده
    36 در 24 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط Amir Ghasemiyan نمایش پست ها
    سلام دوست عزیز

    یکی دو روز صبر کنید بعد اگه جواب سوالتو رو نگرفتین پست بزنین تاپیکتون بیاد بالا. کسایی که میتونن پاسخ سوالتون رو بدن ۲۴ ساعت تو سایت آنلاین نیستن

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

    کد:
    Sub EI_RemoveSerial()
    Serial = Range("F7").Value
    If Not IsNumeric(Serial) Then Exit Sub
    Lrow1 = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
    Lrow2 = Sheet2.Range("A" & Sheet2.Rows.Count).End(xlUp).Row
    For Each cel In Sheet1.Range("B2:B" & Lrow1)
        If cel.Value = Serial Then
            ThisRow = cel.Row
            Sheet1.Range("A" & ThisRow & ":C" & ThisRow).Copy
            Sheet2.Range("A" & Lrow2 + 1 & ":C" & Lrow2 + 1).PasteSpecial
            Sheet2.Range("A" & Lrow2 + 1).FormulaR1C1 = "=IF(ISBLANK(RC[1])=TRUE,"""",COUNTA(R1C1:R[-1]C))"
            Sheet1.Range("A" & ThisRow & ":C" & ThisRow).Delete Shift:=xlUp
            Exit Sub
        End If
    Next cel
    End Sub
    
    
    Sub EI_Warning()
    msg = MsgBox("do you realy want remove this serial?", vbYesNo)
    If msg = 6 Then EI_RemoveSerial
    End Sub
    سلام و تشکر از شما :
    بسیار عالی فقط یک مورد :
    تمامی موارد را انتقال می دهد اما اگر در شیت دوم سطری پاک شود در انتقال بعدی اون سطر جایگزین نمی شود...
    در واقع سطرهای خالی در حافظه مانده است.و به طریقه ای نمایش می دهد انگار سلول محتوا دارد در صورتیکه خالی است
    ممنون می شوم این مورد را نیز راهنمایی بفرمایید.
    ویرایش توسط ACE : 2017/10/01 در ساعت 15:09

  8. #6


    آخرین بازدید
    21 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    درخواست دوستمون جهت تکمیل شدن تبدیل به پروژه شد
    بنابراین این تاپیک بصورت حل شده در خواهد آمد

  9. سپاس ها (1)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است