b sutununa girilen değer ile aynı isimli sayfaya otomatik köprü atama

[ayemenici]

arkadaşlar tekrar merhaba

mevcut çalışma kitabımda "kayıt" isimli sayfamda b sutununa yukarıdan aşağıya girilen her değer için aynı ismi taşıyan çalışma sayfalarına otomatik köprü atansın istiyorum
yardımcı olursanız sevinirim

 

[asi_kral]

arkadaşlar tekrar merhaba

mevcut çalışma kitabımda "kayıt" isimli sayfamda b sutununa yukarıdan aşağıya girilen her değer için aynı ismi taşıyan çalışma sayfalarına otomatik köprü atansın istiyorum
yardımcı olursanız sevinirim

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim kral As String
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
if target=empty then exit sub
On Error GoTo kral
Sheets(Target.Text).Select
MsgBox Target & " İsimli Sayfayı Açtım Değil" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967": Exit Sub
kral: MsgBox Target & " İsimli Sayfayı Açtım Değil" & vbLf & Application.UserName, _
vbCritical, "asi_kral_1967"
End Sub

 

[ayemenici]

teşekkürler
işime yaradı

 

[asi_kral]

teşekkürler
işime yaradı

Kolay Gelsin.

 

[ayemenici]

ancak yeni farkettiğim bir hata oluştu
b sutununda boş hücre seçildiğinde uyarı geliyor

 

[asi_kral]

ancak yeni farkettiğim bir hata oluştu
b sutununda boş hücre seçildiğinde uyarı geliyor

Kodu güncelledim boş olduğunda işlem yapmayacak.

 

[ayemenici]

eline sağlık kardeş
halloldu

 

[asi_kral]

eline sağlık kardeş
halloldu

Kolay Gelsin.

 

[pylor]

Koddan bende faydalandım konuyu açtığı için sayın ayemenici cevapladığı için sayın asi kral 1967'ye çok teşekkür ederim iyi çalışmalar

 

[asi_kral]

Koddan bende faydalandım konuyu açtığı için sayın ayemenici cevapladığı için sayın asi kral 1967'ye çok teşekkür ederim iyi çalışmalar

Kolay Gelsin.

 

[yilmazweb]

Uzun süre aradığım bir kod. Ancak ben "veri-doğrulama-liste" uyguladığım tek bir hücrede listeden adını seçtiğim sayfaya seçim yaptığım anda gitmek istiyorum.
Teşekkür ederim.

 

[Murat OSMA]

Dosyanızı ekleyin ve ne yapmak istediğinizi açıkça belirtin lütfen.

 

[Murat OSMA]

Şu kodları ilgili sayfaya yazıp deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    For Each hucre In ThisWorkbook.Worksheets("Sayfa1").Range("A1:A100")
        Set s1 = Nothing
        Set s1 = ThisWorkbook.Worksheets(CStr(hucre.Value))
        If Not s1 Is Nothing Then Call _
        ThisWorkbook.Worksheets("Sayfa1").Hyperlinks.Add(hucre, "", "'" & hucre.Value & "'!A1")
    Next huc

re
End Sub
Sayfa isimlerine dikkat edin...