[حل شده] فراخوانی اطلاعات بین 2 Tab با حذف کاراکتر خاص

[musicbox1970]

با سلام من سئوال خودم را با یک فایل اکسل که پیوست شده می پرسم.
در این فایل ما دو tab به نامهای a و b داریم.
در a یک سری اطلاعات در روزهای شنبه الی جمعه با شماره گزارش (خانه های زرد رنگ) 1 الی 7 در 11 ردیف وارد گریده.
کاری که من می خواهم این است که در tab b و در خانه آبی رنگ (شروع گزارش) یک عدد مثلا 2 را وارده نموده و در خانه قرمز رنگ (پایان گزارش) عددی مانند 6 را وارد نماییم و در جدول زیر آن اطلاعات مربوط به tab a با ذکر روز در ستون مربوطه وارد شود وارد شود. و البته کاراکتر - اصلا وارد نشود.
یعنی اگر شما در شروع عدد 2 و در پایان عدد 4 را وارد نمایید در جدول مربوطه (tab b) گزارش فعالیتهای انجام شده از روز یکشنبه تا پایان سه شنبه وارد شده و به جای وارد کردن کاراکتر - (مربوط به سلولهایی که گزارش ندارد و - در آن تایپ شده مانند خانه c10 در tab a) ، گزارش بعدی وارد شود.

[shamsololama]

با درود فراوان

[musicbox1970]

مرسی از زحمتون ولی این error میده
Compile error
invalid use of property

وقتی OK می زنم در ماژول دور () Sub Macro2 زرد رنگ می شود.

[shamsololama]

با درود فراوان

بله چک کردم یک کلمه sheet2 اضافی خورده شده حذف کنید درست میشه

Sub Macro2()

Dim c As Range

Dim s As Range

Dim i As Integer

Dim m, n

n = Sheet2.Range("e2").Value

m = Sheet2.Range("e3").Value

Sheet2                                                   این سطر حذف بشه 

For i = n To m

    For Each c In Sheet1.Range("a4:a100").Offset(0, i)

        If c.Value <> "" And c.Value <> "-" Then

            For Each s In Sheet2.Range("d7:d1000")

                If s.Value = "" Then

                   s.Value = c.Value

                   s.Offset(0, 1).Value = Sheet1.Range("A3").Offset(0, i).Value

                   s.Offset(0, -2).Value = s.Row - 6

                   Exit For

                End If

                        Next

                End If

        Next

Next

End Sub 

[musicbox1970]

آیا راه حل دیگری غیر از ماکروس نویسی داره.
منظورم استفاده از فرموله.