تعديل كود

[فتحي محمد]

احبتي في الله 

السلام عليكم كل عام وانتم بالف خير

معي هذا الكود لجلب اسماء الضفخات ولكن في عمود  واريد ان يكون في ضف 

Sub call()
Sheets("ff").Range("a1:a23").ClearContents
Dim i As Integer
For i = 1 To Sheets.Count
Sheets("tt").Range("a" & i + 6) = Sheets(i).Name
Next i
End Sub

يعني بدل من العمود a1:a23 يكون  الضف من d3:u3

وشكر جزبلا لحضرتكم

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

اليك الكود المتاسب لطلبك

Sub call1()
Sheets("ff").Range("D3:U3").ClearContents
    Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets("ff").Cells(3, 3 + i) = Sheets(i).Name
    Next i
End Sub

 

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

حل اخر لتجاهل ورقة ff  مثلا   

Option Explicit

Sub call1()
    Dim CrWS As Worksheet, WS As Worksheet
    Dim Tbl As Integer, lastCol As Integer
    
    Set CrWS = ThisWorkbook.Sheets("ff")
    Tbl = 4
    lastCol = 21
    
    CrWS.Range(CrWS.Cells(3, Tbl), CrWS.Cells(3, lastCol)).ClearContents
    For Each WS In ThisWorkbook.Sheets
        If WS.Name <> CrWS.Name Then
            CrWS.Cells(3, Tbl).Value = WS.Name
            Tbl = Tbl + 1
        End If
    Next WS
End Sub