excel sayfamdaki Makroda düzeltme... Yardim

[karzer]

Merhaba excel sayfamda kullandığım bir makrom var, problemsiz bir şekilde çalışmakta fakat sorunum şu bazı hücrelerdeki isimler rehber bölümündede var o hücreyi tıklayınca istediğim sunucuya bağlanıyor, fakat sayfa rehber sayfasına geçiyor bunu nasıl önleye bilirim kodları ekliyorum, teşekkürler

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim z As String
If Intersect(Target, [A2:A1000,B2:B1000,C2:C2000]) Is Nothing Then Exit Sub
If UCase(Target.Value) = "ev" Then
    z = Application.PathSeparator
    Shell "C:" & z & "windows" & z & "system32" & z & "mstsc.exe /v 192.1.1.1", vbNormalFocus
End If
If UCase(Target.Value) = "is" Then
    z = Application.PathSeparator
    Shell "C:" & z & "windows" & z & "system32" & z & "mstsc.exe /v 193.1.1.1", vbNormalFocus
End If
...........................
...........................

If Not IsEmpty(Target) Then
Set BULMAK = Sheets("Rehber").Cells.Find(Target)
End If
If Not BULMAK Is Nothing Then
Sheets("Rehber").Select
Sheets("Rehber").Range("" & BULMAK.Address).Select
Set BULMAK = Nothing
End If
End Sub

 

[leumruk]

Application.ScreenUpdating=False

Bu kodu kodlarınızın başına ekleyin.

Kodlarınızın sonuna Ana Sayfanızı seçtirecek aşağıdaki kodu ekleyin. "AsılSayfa" kısmına kendi sayfa adınızı yazın.
Sheets("Asıl Sayfa").Select

 

[karzer]

sunucuya bağlanıyor fakat hata veriyor

Sunucuya bağlanıyor fakat hata veriyor, acaba bir örnekle göstere bilirmisin kodları tam olarak nasıl ekleyeceğiz ilginiz için teşekkürler...

 

[ersoyalan]

Merhaba,

Sonuca daha çabuk ulaşmak için sorularınızı örnek dosya ile destekleyin.

E.ALAN