açılır listeye köprü ekleme

[hamitcan]

her sayfaya kopyalabilirim değil mi?

Her sayfada kullanmak için, aralığı bir isme bağlayın, örneğin:Sayfalar gibi. Sonra da Açılan kutuyu kopyalayın, kodu da aşağıdaki gibi değiştirin.

Sub SayfayaGit()
    Dim x As String
    
    With Sayfa5.DropDowns(1)
   [color=red] .ListFillRange = "Sayfalar"[/color]
    End With
    
    x = Sayfa5.Cells(Sayfa5.DropDowns(1).Value + 11, "ae")
    MsgBox x
    If WorksheetExists(x) = True Then
        Sheets(x).Select
    Else
        MsgBox "Böyle Bir Sayfa Yok"
    End If
End Sub