Belli bir hücredeki değeri sayfa isimlerinde aramak

[kardanadam]

arkadaşlar ekte bir dosya gönderiyorum o dosyada küçük bir kira takip programı hazırlamaya çalışıyorum (bir başkası kullanacağından herşeyi hazır halde teslim etmek istiyorum) kiracı ekleme olayını hallettim ana sayfadan kiracı ismini yazıp mevcut bir kalıba göre hazırlanmış sayfayı kiracının ismine göre oluşturuyor buraya kadar herşey tamam,

burdan sonra yapmak istediğim kira takip sayfasında kiracının isimini yazıp d sütununda o ismi diğer tüm çalışma sayfalarını kontrol ederek varsa o çalışma sayfasının k7 hücresini yazmasını yoksa bir mesaj vermesi...

kısaca bir hücreye yazdığım değerin çalışma sayfalarında arayıp bulan bir formül varmı...

 

[AS3434]

Sn kardanadam

Mesajınızın ikinci kısmını çözebildiğim kadarıyla; Sayfalarınız listelemek istiyorsanız

Sub Listele()
Application.ScreenUpdating = False
Range("K:K").ClearContents
For i = 4 To Sheets.Count
Cells(i + 3, 11) = Sheets(i).Name
Next
Application.ScreenUpdating = True
End Sub

 

[ileriexcel]

Sub test()
bak = ActiveCell.Offset(0, 0)
For say = 1 To Sheets.Count
If Sheets(say).Name = bak Then
MsgBox "kiracı bulundu"
Sheets(bak).Range("k7") = bak
Exit Sub
End If
Next
MsgBox "kiracı bulunamadı"
End Sub

 

[kardanadam]

yapmak istediğimi örnekle ifade edeyim.

örnek:

a1 hücresine bir değer yazıyorum
b1 hücresi a1 hücresine yazdığım değere bakarak eğer çalışma sayfaları içerisinde a1 hücresinde yazan değer ismini taşıyan sayfa varsa o sayfanın b1 hücresini yazsın...

böyle bir fonksiyon varmı?

 

[Korhan Ayhan]

Selamlar,

B1 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=DOLAYLI("'"&A1&"'!B1")

 

[kardanadam]

Selamlar,

B1 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=DOLAYLI(A1&"!B1")

budur,
çok saol oldukça işime yarayacak...

edit:
dedim ama sayfa adında boşluk verince olmadı

 

[Korhan Ayhan]

Selamlar,

Özür dilerim yanlış yönlendirdim. Üstteki mesajımda önerdiğim formülü düzelttim. Umarım faydası olur.

 

[kardanadam]

Selamlar,

B1 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=DOLAYLI("'"&A1&"'!B1")

bu formül işimi gördü teşekkür ederim.
çok şey istiyorum ama birde şöyle bir şey istesem acaba uygun bir fonksiyon varmıdır,

örnek

a1 hücresine çalışma kitabında bulunan bir sayfanın adını yazsam ve b1 hücresine o sayfaya giden köprüyü oluşturabilecek linki yazacak bir fonksiyon varmıdır.

 

[zafer]

Merhaba

İşlevlerden KÖPRÜ 'ye bakınız . Yardım menüsünden faydalanabilirsiniz.

Çalıştığınız dosyanızın adı a olsun O dosyada Sayfa2 de A2 hücresine gitsin.
=KÖPRÜ("[a.xls]Sayfa2!A2";"Sayfa 2'ye git")

 

[kardanadam]

Merhaba

İşlevlerden KÖPRÜ 'ye bakınız . Yardım menüsünden faydalanabilirsiniz.

köprüyü elle tek tek yazmak istemiyorum hazırlamaya çalıştığım excel çalışma kitabı bir başkası tarafından kullanılacak ve her zaman yeni veriler eklenecek haliyle her eklenen veri için gerekli ayarların kendiliğinden oluşmasını istiyorum... yani dinamik bir excel çalışma kitabı hazırlamaya çalışıyorum...

 

[zafer]

Merhaba

Aşağıdaki linki inceleyiniz.

kopru