مشکل در پیست کردن بصورت خاص

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • bnyamin

    • 2013/05/29
    • 111
    #1

    پرسش مشکل در پیست کردن بصورت خاص

    سلام وقت بخیر
    ستون b از شیت اول را میخواهم در شیت دوم در ستون d پیست کنم و این در حالی است که ستون c در حالت فیلتر قرار دارد
    که بعد از اعمال پیست نتیجه ؛شبیه شیت سوم میشود و من میخواهم شبیه شیت چهارنتیجه گردد

    در پیوست نمونه قرار داده شده است

    با تشکر
    فایل های پیوست شده
    برچسب ها: هیچ‌کدام
    • bnyamin

      • 2013/05/29
      • 111
      #2
      سلام
      میشه لطفا یکی از فضلا این سوال ما رو هم جواب بدهند ؟

        کامنت

        • Amir Ghasemiyan

          • 2013/09/20
          • 4598
          • 100.00
          #3
          سلام دوست عزيز
          تو اين مورد شما بايد از كد VBA كمك بگيريد
          من براتون نوشتم. كافيه كليد تركيبي Ctrl+Shift+V رو بزنيد تا كد اجرا بشه
          کد:
          Sub copy_paste_visibles()

Dim a As Range
Dim tar As Range

Set a = Application.InputBox(Prompt:="select range to copy", Type:=8)
Set tar = Application.InputBox(Prompt:="select cell to paste", Type:=8)
lrow = 0
For Each cel In a
    While tar.Offset(lrow, 0).Rows.Hidden
        lrow = lrow + 1
    Wend
    tar.Offset(lrow, 0) = cel
    lrow = lrow + 1
Next cel
   
End Sub
          در ابتدا محدوده اي كه نياز داريد كپي كنيد رو انتخاب ميكنيد و بعد سلولي كه قرار هست از اونجا شروع به پيست كردن كنه
          هرجاش مشكلي داشت بفرماييد در خدمتم
          فایل های پیوست شده

            کامنت

            قبلی template بعدی
            چند لحظه..