Soru Bu makroyu kısaltmanın bir yolu var mı?

[seckinb]

Merhaba

Ayın günlerini temsil etmek amacıyla bu şekilde bir liste hazırladım

1,2,3.. gibi gidiyor.
Ancak randevu olmayan günlere ait sayı yok
Bazı sabit isim yazan "liste" "gelmeyenler" gibi kopyalama yapılmayacak worksheetler var.

bu formulü adı sayı olan tüm worksheetlere uygula haline getirebilirim?

teşekkürler

Worksheets("1").Cells(2, 5).Copy
Worksheets("1").Range("E3:E100").PasteSpecial Paste:=xlPasteValidation
Worksheets("2").Range("E2:E100").PasteSpecial Paste:=xlPasteValidation
Worksheets("5").Range("E2:E100").PasteSpecial Paste:=xlPasteValidation
Worksheets("6").Range("E2:E100").PasteSpecial Paste:=xlPasteValidation
Worksheets("7").Range("E2:E100").PasteSpecial Paste:=xlPasteValidation
Worksheets("8").Range("E2:E100").PasteSpecial Paste:=xlPasteValidation
Worksheets("9").Range("E2:E100").PasteSpecial Paste:=xlPasteValidation
Worksheets("12").Range("E2:E100").PasteSpecial Paste:=xlPasteValidation
Worksheets("13").Range("E2:E100").PasteSpecial Paste:=xlPasteValidation

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    Dim Sh As Worksheet
    
    Sheets("1").Cells(2, 5).Copy
    
    For Each Sh In ThisWorkbook.Worksheets
        If IsNumeric(Sh.Name) Then
            Sh.Range("E3:E100").PasteSpecial Paste:=xlPasteValidation
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[seckinb]

IsNumeric gibi koşul kelimelerini nereden bulabilirm?

 

[ÖmerFaruk]

https://docs.microsoft.com/tr-tr/of...erence/user-interface-help/isnumeric-function

 

[Korhan Ayhan]

Diğer detaylar için....

Functions (Visual Basic for Applications)

VBA language reference

docs.microsoft.com