IF formülü ile çalışma sayfasıni çağırma

[matabek]

bir dosyada herhangi bir hücreye 1 yazıldığına başka bir dosyadaki sheet1 sayfasının açılmasını istiyorum. Sayfayı linkledim ama formülün içine yazamıyorum, formül hata veriyor. çaresi nedir acaba?

 

[Ömer]

Merhaba

Köprü fonksiyonu ile yapabilirsiniz fakat hücre üzerine tıklamanız gerekir.
Makro ile yaparsanız 1 yazdığınız da kodlar çalışır ve dosya açılır.

Çalışma sayfasının kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim yol As String
    
    If Target.Count > 1 Then Exit Sub
    If Target.Value <> 1 Then Exit Sub 'şartınız

    yol = "C:\Users\Desktop\deneme.xlsx" 'açılacak dosya yolu
    
    If Dir(yol) <> "" Then
        Workbooks.Open (yol)
        Sheets("Sheet1").Select
    Else
        MsgBox "Dosyayı Bulunamadım."
    End If
    
End Sub

 

[matabek]

çok teşekkürler hemen deniyorum

 

[matabek]

ömer bey formüldeki şartınız konusunu açarmısınız?

 

[Ömer]

herhangi bir hücreye 1 yazıldığına

Demiştiniz.

If Target.Value <> 1 Then Exit Sub 'şartınız

Burada demek istenen, eğer girilen değer 1 değilse işlem yapma.

Yani girilen değer 1 olduğunda işlem yap ve ilerle demek.

 

[matabek]

ok

 

[matabek]

ben size konuyu daha detaylı anlatayım. box da seçim yok olduğunda hiçbir şey yapmayacak. Resim 2 de blok.1 seçili iken 2 olduğunda yol şu D:\yonetim2020\bilgi_formu\blok.1 xlsx dosyasındaki sayfa 1 istediğim bu. yardımına ihtiyacım var. şimdiden teşekkürler

 

[Ömer]

Resimdeki örneği Excel olarak ekler misiniz.

 

[matabek]

dosya ektedir hocam

 

[Ömer]

Module kopyalayın. Seçim yapınca kodlar çalışır, seçilen dosya varsa açılır.

Sub Açılan1_Değiştir()

    Dim dosya As String, yol As String
   
    dosya = WorksheetFunction.Index([I5:I7], [H5])
    yol = "D:\yonetim2020\bilgi_formu\" & dosya & ".xlsx"
   
    If UCase(Replace(Replace(dosya, "ı", "I"), "i", "İ")) = "SEÇİM YOK" Then Exit Sub
   
    If Dir(yol) <> "" Then
        Workbooks.Open (yol)
        Sheets("Sheet1").Select
    Else
        MsgBox "Dosyayı Bulunamadım."
    End If
   
End Sub

 

[matabek]

Deniyorum çok teşekkürler

 

[ibrahimpeng]

Merhaba

Köprü fonksiyonu ile yapabilirsiniz fakat hücre üzerine tıklamanız gerekir.
Makro ile yaparsanız 1 yazdığınız da kodlar çalışır ve dosya açılır.

Çalışma sayfasının kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim yol As String
   
    If Target.Count > 1 Then Exit Sub
    If Target.Value <> 1 Then Exit Sub 'şartınız

    yol = "C:\Users\Desktop\deneme.xlsx" 'açılacak dosya yolu
   
    If Dir(yol) <> "" Then
        Workbooks.Open (yol)
        Sheets("Sheet1").Select
    Else
        MsgBox "Dosyayı Bulunamadım."
    End If
   
End Sub

HOCAM SIZLERIN SAYESINDE BILGI BIRIKIMIM ARTIYOR..SAYGILAR

 

[matabek]

ömer hocam yardımların için çok teşekkürler. Arkadaşımızın dediği gibi bilgi dağarcığımızı yükseltiyorsun. Ancak sana bir sorum daha olacak. ben sana gönderdiğim dosyayı son haline getirdim. Ama hiçbir kod girmedim. Daha doğrusu dosyayı görünce de anlayacaksın çoklu kod girmem gerekiyor. İşte senden yardım isteğim bu. dosyada data_2 dosyasında ilgili sayfayı çağırıp değişiklik veya data girişi yapıp save edip Data_2 dönüş yapmak isteniyor.

 

[Ömer]

Sorunuz net değil, daha detaylı bilgi verir misiniz.

 

[matabek]

Yapmak istediğimiz; data2 dosyasındaki blok 1 butonundan b1 seçildiğinde blok1 dosyasından daire1 sheet ekrana gelsin, gerekli girdileri yapalım ve "save &exit" butonu ile çıktığımızda tekrar data2 dosyasına dönelim. oradan tekrar mesela b2 seçildiğinde durum tekrarlasın. bunu tüm bloklara uygulamam gerekiyor. anladığım kadarı ile başınıza iş açtım ???????????? bilmem durumu izah edebildim mi?

 

[matabek]

Sorunuz net değil, daha detaylı bilgi verir misiniz.

 

[matabek]

Sorunuz net değil, daha detaylı bilgi verir misiniz.

Yapmak istediğimiz; data2 dosyasındaki blok 1 butonundan b1 seçildiğinde blok1 dosyasından daire1 sheet ekrana gelsin, gerekli girdileri yapalım ve "save &exit" butonu ile çıktığımızda tekrar data2 dosyasına dönelim. oradan tekrar mesela b2 seçildiğinde durum tekrarlasın. bunu tüm bloklara uygulamam gerekiyor. anladığım kadarı ile başınıza iş açtım ???????????? bilmem durumu izah edebildim mi?

 

[bmutlu966]

Ömer hocamın kodlarını biraz değiştirerek 1. blok için istediğinizi yaptım sanırım. Diğer bloklar için aynı kodu değiştirerek kullanabilirsiniz diye düşünüyorum.

 

[matabek]

Hemen bakıyorum

Ömer hocamın kodlarını biraz değiştirerek 1. blok için istediğinizi yaptım sanırım. Diğer bloklar için aynı kodu değiştirerek kullanabilirsiniz diye düşünüyorum.

hocam çok sağol ancak terslik şu, seçimde "seçim yok" seçiyorsun işlem yok doğru, B1 seçiyorsun Daire 2 ye gidiyor. Daire 1 e gitmesi gerekir.
yani seçim yok_______ işlem yok
B1____________________ Daire 1
B2 ___________________ Daire 2

.
.
.
.
B14____________________ daire 14 gibi

 

[Ömer]

Merhaba,

Ekteki dosyayı "bilgi_formu" klasörüne kopyalayın, çalışmaya not ekledim. Şu haliyle istediğinizi yapıyor. Sadece açılan listeleri sadeleştirdim, bu şekilde daha doğru bir yapı oluşturmak mümkün.