فراخوانی تعدادی جدول متغیر با رکورد های متفاوت از شیت 1 به شیت 2

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • jack007

    • 2016/06/27
    • 30
    #1

    [حل شده] فراخوانی تعدادی جدول متغیر با رکورد های متفاوت از شیت 1 به شیت 2

    با سلا م و صد درود

    لطفا اساتید و دوستان گرامی اگر می دانند بفرمایند((چگونه می توان اطلاعات جداول خاص و متغییر را که دارای تعداد رکورد متفاوتی هستند از شیت 1 به شیت 2 کپی نموده و زیر هم قرار داد)) البته مشکل اینجاست که هر بار که اطلاعات جدید در شیت 1 کپی می شود دارای تعداد رکورد متفاوتی نسبت به قبل است؟ لطفا فایل پیوست را ملاحظه بفرمایید

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

      • 2014/08/08
      • 524
      • 94.67
      #2
      سلام
      ببینید کدی که تو این فایله جواب میده یا نه !
      خارج از مسایل اینطوری خداییش دیگه اینطوری داده ها رو جمع نکنید کاملا اشتباهه اگر شما اینکار رو نکردید برای اشخاصی که جمع آوری می کنند توضیح بدید!
      ممنون
      فایل های پیوست شده
      [B][SIZE=1]بخش امضاء :
      [/SIZE][/B][LEFT]
      [CODE]
      Sub Macro()
      ActiveCell = "IY" & Right(Application.Name, 5)
      With ActiveCell.Characters(Start:=2, Length:=1).Font
      .Name = "Webdings"
      .Color = 255
      End With
      End Sub
      [/CODE]
      [/LEFT]

        کامنت

        • jack007

          • 2016/06/27
          • 30
          #3
          سلام
          خیلی ممنون ...زحمت کشیدید مسئله اینه که قرار نیست این جداول جمع زده بشه ......در هر صورت محبت کردید کد شما رو بررسی می کنم ...لطف کردید
          Last edited by jack007; 2016/11/05, 18:19.

            کامنت

            • rahi_feri

              • 2014/08/08
              • 524
              • 94.67
              #4
              خواهش میکنم
              من هم نگفتم قراره جمع زده بشند! میگم هیچ نظمی وجود نداره!استفاده از شیت های مختلف و نظم بهتر در قرار گیری داده ها (سازماندهی داده ها) منظورم بود!
              این کد هم کلمه "جدول صوزتحساب" را پیدا میکنه و داده های زیرین اونو انتقال (کپی) میده!
              [B][SIZE=1]بخش امضاء :
              [/SIZE][/B][LEFT]
              [CODE]
              Sub Macro()
              ActiveCell = "IY" & Right(Application.Name, 5)
              With ActiveCell.Characters(Start:=2, Length:=1).Font
              .Name = "Webdings"
              .Color = 255
              End With
              End Sub
              [/CODE]
              [/LEFT]

                کامنت

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