جاویدسافت

نظرات (۱)

1. 

   پگاه تهرانی

   ۰۸ خرداد ۰۱ ، ۱۶:۱۹

   سلام.وقت بخیر.من فقط داده یک سلول از یک شیت رو میخواستم به آخرین سلول خالی یک شیت انتقال بدم. متاسفانه به من خطای debugger میده. سلولی که میخوام ازش کپی و پیست value کنه به صورت فرمول هست.ممکنه راهنمایی بفرمایید.ممنونم.

    

   به طور دقیق این اینه:

   
   '
   ' COPYPASTE Macro
   ' کپی پیست کردن کد مشتری در آخرین ستون خالی لیست مشتریان
   '
   ' Keyboard Shortcut: Ctrl+Shift+Q
   '
       Range("D3").Select
       Selection.Copy
       Sheets("لیست مشتریان").Select
       ActiveWindow.SmallScroll Down:=36
       Range("B51").Select
       Selection.End(xlUp).Select
       ActiveCell.Offset(1, 0).Range("A1").Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
           :=False, Transpose:=False
   End Sub