[حل شده] وقتي روي يك عنوان كليك كنم روي يك سلول خاص كپي بشه

[fozoolbashi]

با سلام و احترام
من يك مدير دارم كلا اكسل بازه منم به واسطه اون مجوبرم تمام گزارشامو اكسلي بدم حالا يك گزارش درست كردم كه يك شيت خلاصه داره مثل جدول زير

تنخواهگردانها

حقوق كاركنان

تصفیهي كاركنان

حالا يه گزارش براش درست كردم كه توي يك شيت ديگه هركدوم از اين عنوان هارو توي سلول خاصي كپي كني ريز گردش اون گزارش مياد مثل جدول زير

گردش	تنخواهگردانها	→ از اين سلول جهت فيلترعنوان استفاده شود
تاريخ	شرح	بدهكار	بستانكار	مانده	مانده درخط
97/01/29	واريز به حساب اقاي جاويدياني بابت تنخواه كارگاه پروژه مشاركت سررسيد 97/01/28	0	50,000,000	-50,000,000	-50,000,000

حالا چيزي كه از من ميخواد اينه كه روي عنوان اون شيت اوليه كيلك كنه خودش اتوماتيك وار كپي بشه روي سلول شيت بعدي و گزارشش توليد بشه به عنوان مثال بالا روي تنخواه گردان ها كليك كنه اون عنوان كپي بشه در شيت بعدي و گزارشش توليد بشه
تاحالا همه جا گشتم ولي همچين چيزي نديدم ممنون ميشم منو راهنمايي كنيد

[مرتضی حسینی]

[QUOTE=fozoolbashi;73731]با سلام و احترام
من يك مدي
با سلام به نظرم کارو خیلی سخت کردید به اسانی قبلا توی یه شیت دیگه با مساوی قرار دادن سل هایی که میخاین با شیت اولی یه گزارش درست میشه
مجبورید از

sumif

یا volocap و مخصوصا ترکیب

match وtype برای گزارش گیری استفاده کنید.
7ر10ر98

[fozoolbashi]

خيلي ممنون بابت جوابي كه دادين
همه اين فرمولايي كه اشاره كرديد در گزارش من استفاده شده و فقط تنها خواسته مدير من همين موضوع كه بالا مطرح كردم درون گزارش نيست
از نظر خودم گزارش همه خواسته هاي مديرمو انجام ميده
بازم از كساني كه راه حلي دارن به من اطلاع بدن ممنون ميشم

[حسام بحرانی]

کپی پیست با دبل کلیک

سلام
اگر با کدنویسی آشنایی داشته باشید می تونید از کدی شبیه این استفاده کنید:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("a5:a7")) Is Nothing Then
    Cancel = True
    If Target.Row > 1 And Len(Target.Value) Then Worksheets("report").Range("C2").Value = Target.Value
    Worksheets("report").Activate
  End If
End Sub 

در این کد، پس از دبل کلیک بر روی سلولهای A5 تا A7 ( سلول های زرد رنگ در شیت data )، عنوان مورد نظر در شیت report و در سلول C2 کپی میشه.
موفق باشید.

[حسام بحرانی]

تکمیلی

کد بالا برای دبل کلیک بود و برای کلیک می تونید از این کد استفاده کنید:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Range("a5:a7")) Is Nothing Then
Cancel = True
If Target.Row > 1 And Len(Target.Value) Then Worksheets("report").Range("C2").Value = Target.Value
Worksheets("report").Activate
End If
End If
End Sub 

موفق باشید.