Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Aşağıdaki gibi dener misiniz?
Not : Drow Down yerine Combobox kullanmanızı öneririm.
Kod:
Sub SayfayaGit()
Dim x As String
Dim i As Long
i = Range("N2") + 1
x = Range("Q" & i)
If WorksheetExists(x) = True Then
Sheets(x).Select
Else
MsgBox "Böyle Bir Sayfa Yok"
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.