سؤال

[ahmedabdo496]

 

 

اريد الخليه i7 فى شيت 1000تساوى الخلية b8بالشيت الاول الفهرس 

استمارة .rar

[سليم حاصبيا]

اكتب هذه المعادلة في الخلية المناسبة

=الفهرس!$B$8

 

[ahmedabdo496]

مشكور استاذ سليم ,ولكن.. اريد الخليه i7 فى شيت 1000تساوى الخلية b8بالشيت الاول الفهرس , i52 تساوى الخلية b9 و هكذا الخ بشكل اتوماتيك مع باقى الخلايا وشكرا لكم

[سليم حاصبيا]

جرب هذا الماكرو

Sub insert_word()
Dim Sh As Worksheet
Dim Th As Worksheet
Dim My_rg As Range

Set Sh = Sheets("الفهرس"): Set Th = Sheets("1000")
Set My_rg = Th.Range("i7")
For i = 8 To 100
My_rg.Activate
 my_word = Sh.Range("a" & i).Offset(0, 1)
 ActiveCell.Value = my_word
Set My_rg = ActiveCell.Offset(44, 0)
Next
End Sub