پرسش انتقال اظلاعات با وارد کردن نام شیت به همان شیت

[amiroo0098]

با سلام
من میخواهم در شیت اول که منبع هست با وارد نام هر شیت اطلاعات وارد شده به شیت های نام برده وارد بشه
مثلا شیت منبع وقتی در سلول a1 نام هر شیت رو تایپ میکنم مبلغ و سایر اطلاعات وارد شده به شیت های مربوط به خودش وارد بشه
با تشکر

[ali.b]

با سلام
من میخواهم در شیت اول که منبع هست با وارد نام هر شیت اطلاعات وارد شده به شیت های نام برده وارد بشه
مثلا شیت منبع وقتی در سلول a1 نام هر شیت رو تایپ میکنم مبلغ و سایر اطلاعات وارد شده به شیت های مربوط به خودش وارد بشه
با تشکر

سلام با این نمونه کد می توانید این کاررا انجام دهید

Dim c As Range
For i = 1 To Sheets.Count
    For Each c In [COLOR=#ff0000]Sheet1.Range("I3")[/COLOR]'  SHEET NAME
        If c.Value = Sheets(i).Name Then
    Sheets(i).Activate
    Range("A3").Select
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    Sheet1.Range("A3:H3").Copy
Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A3").Select
            End If
    Next c
Next i

رنگر قرمز مربوط به محلی هست .که نام شیت در ان درج می شود و بسته نوع ایتم مشخصث کنید.

- - - Updated - - -

با سلام
من میخواهم در شیت اول که منبع هست با وارد نام هر شیت اطلاعات وارد شده به شیت های نام برده وارد بشه
مثلا شیت منبع وقتی در سلول a1 نام هر شیت رو تایپ میکنم مبلغ و سایر اطلاعات وارد شده به شیت های مربوط به خودش وارد بشه
با تشکر

و اینم یک کد دیگر

Private Sub ComboBox1_Change() 
Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
End Sub