Soru Köprü Oluşturma Hk.

[valentino06]

Merhaba,
Günaydın Arkadaşlar sizden bir ricam olacak B2 Hücresinde yazan koda çift tıkladığımda aynı kodlu klasörü açmasını istiyorum. köprü oluşmasını istiyorum kodla lütfen yardımcı olabilirmisin.
Not. bu şekilde 1000 tane klasörüm var hepsi toplu halde bir klasörün içinde ayrı ayrı 1000 klasör var farklı isimlerde

 

[Tevfik_Kursun]

Merhaba,
Sanırım bu işinizi görür.
=KÖPRÜ(B2;11111111-01) "süslemesi size kalmış"
iyi çalışmalar

 

[valentino06]

Hocam çok teşekkür ederim. bunu kodla çözme olasılığımız olabilirmi. "B2" çift tıkladığımda klasöre gitsin istiyorum. tabi yapılabilirse.

 

[Tevfik_Kursun]

Merhaba,
Sanırım sayfanın kod bölümüne

Private Sub Worksheet_Activate()
    If Cells(2, "B") <> "" Then
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(2, "B"), Address:=ThisWorkbook.Path & "\" & Cells(2, "B")
    End If
End Sub

eklerseniz her halde işiniz görülür.
Kolay gelsin

 

[recepkull]

If Cells(2, "B") <> "" Then

If = Eğer
Cells(2, "B") = ikinci satırın B sütunu
<> = Dolu
" " = Boş
Then = ise

Hocam bu satırın anlamı şu şekilde mi ? Eğer ikinci satırın B sütunu dolu yada boş ise

Öğrenmek için soruyorum

 

[Tevfik_Kursun]

Merhaba,
<> "" boş değilse
= " " bir boşluğa eşitse
= "" boş ise
iyi çalışmalar

 

[recepkull]

Merhaba,
<> "" boş değilse
= " " bir boşluğa eşitse
= "" boş ise
iyi çalışmalar

Teşekkür ederim.

 

[Tevfik_Kursun]

Rica ederim

 

[Tevfik_Kursun]

Sayın Valentino06,
Bu da çift tıklama ile çözüm.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Klasor = [B2].Value
    dosya = ThisWorkbook.Path & "\" & Klasor
    If dosya <> "" Then
        CreateObject("Shell.Application").Open (dosya)
    End If
End Sub

İyi çalışmalar

 

[valentino06]

Tevfik Hocam öncelikle yardımlarınızdan dolayı çok teşekkür ederim. excelde b2 hücreye tıklıyorum köprü oluşmuyor. acaba ben mi yanlış birşey yapıyorum.

 

[Tevfik_Kursun]

Merhaba,
Kitap1 link oluşturarak
Kitap2 çift tıklayarak
İyi çalışmalar

 

[Tevfik_Kursun]

Sayın Valentina06,
1. mesajda 1000 tane klasörüm var diye yazmışsınız. Demek ki exceldeki sayfa sayınız da 1000 tane. (Bu bir sayfada bir sütuna da aktarılabilir)
Kitap1 deki örnek sayfaya girdiğinizde tetikleniyor. Sizin örnek dosyanız tek sayfalık.
Kitap2 deki örnek sayfaya girip B2 de çift tıkladığınızda çalışıyor.
İyi çalışmalar

 

[valentino06]

Tevfik Hocam Kusura Bakmayın Dönüş yapamadım. Şehir Dışındaydım. Hocam excel sayfası olarak değil 1000 tane excel kitabım var. Ama köprüleri bundan sonra her yeni işte kullanacağım. 2020 yılından itibaren bende daha hala olmuyor. "B2" Hücresi aktif olmuyor. ve köprü oluşturmuyor.

 

[Tevfik_Kursun]

Merhaba,
Ek bir sayfa açsanız çalıştığını görürdünüz. Çift tıklama yöntemini deneyin. Ben onun da örneğini göndermiştim.
Kolay gelsin

 

[valentino06]

Merhaba,
Tevfik Hocam ek sayfada açtım. bende çalışmıyor. Şöyle bir hata veriyor. Yol da Doğru

 

[Tevfik_Kursun]

Belki şifre var sizde. Gönderdiğiniz klasörde bende her ikisi de çalışıyor.
İyi çalışmalar

 

[Tevfik_Kursun]

Sayın Valentino,
siteden indirdim, yeniden isimlendirdim, gayet güzel çalışıyor. Kendi dosyalarınızı kontrol edin lütfen.
Kolay gelsin

 

[valentino06]

Merhaba,
Tevfik Hocam Aynı klasör içinde olduğu zaman çalışıyor. excel masa üstünde veya başka klasör içinde duracakmış gibi ayarlayabilir misiniz.aynı klasör içinde olmadığı zaman hata veriyor. dosya yolu hatası veriyor.yani yukarıda atmış olduğum hatayı veriyor. Lütfen excel masa üstünde olacak şekilde ayarlayabilir misiniz. diğer klasörler ortak alanda bulunuyor.