• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sheet içerisinde kuralsız bulma

U

Unnamed

Katılım
18 Mayıs 2008
Mesajlar
24
Excel Vers. ve Dili
Excel 2003 Türkçe
Herkese merhaba,

Excelde kabaca bir ofis yerleşim planı yaptım.
Masaları hücreleri birleştirerek düzenledim.
Sonra bu masalara data validation ile personel isimlerini atadım.
Listeden kim nerede ise seçip bırakıyorum.
Her masanın herhangi bir dört tarafında ise alan kodu mevcut, bu 7 haneli bir rakam ve masaya özel.
Farklı bir sheette ise bu yerleşimin tablo olarak özeti var.
Liste presonel listesi ile başlayıp gerekli bilgileri sağa doğru sıralıyor.
Sadece alan kodu bilgilerini alıp buraya otomatik koyduramıyorum çünkü hem yerleri masanın hücresine göre sabit değil, hem de bütün sheet'i taratacak kodu bilemiyorum.

Kısacası masadaki kutucuğa basıp ismi değiştirdiğimde özet listedeki bu isme ait alan kodunun da otomatik olarak değişmesini istiyorum.
Yardımcı olabilecek birileri varsa çok memnun olurum.
Teşekkürler.
 
Merhaba.
ALTIN ÜYELİK olmadığına göre; örnek belgenizi burası veya burası gibi bir paylaşım sitesine yükleyip,
oradan alacağınız erişim bağlantısını burada paylaşırsanız daha çabuk ve net cevap alacağınızı düşünüyorum.
 
Bence tersten düşünmenizde yarar var, "yerleşim planından listeye" yerine "listeden yerleşim planına" veri aktarmak daha anlamlı geldi bana.
Çünkü;
-- birleştirmeler standart değil (yatay-dikey karışık),
-- birleştirilen hücre adetleri standart değil,
-- sayısal veriler renkli birleştirilmiş hücrelere göre standart konumda değil (sağı-sol-üst-alt).
 
Ayrıca, elbette birebir benzemez ama kabaca masa şekillerini hücre birleştirme ve renklendirme ile belirleyip, oradan hareket ederek listeden veri çekilmesinde yarar var diye düşünüyorum.
Zira masaların konum ve biçimleri sabit, bu masada çalışacak personel ise değişken, dolayısıyla peronele masa yerine masaya personel gibi düşünmek lazım sanki.
 
Bir yandan buraya yazarken bir yandan da düşünüyordum.
Sonunda şöyle birşey yaptım;
Masa isimleri ile numaraları 3-4 sütun sol tarafa eşittir (=) ile yan yana sabitledim.
Burada değişken isimler olduğundan onu sol tarafa, numaraları da hemen sağına ekledim.
Sonra düşey ara ile listeye dahil ettim.
Basit oldu ama çalışıyor.
Yine de teşekkürler. :)
 
Aşağıdaki kodu "Ofis Yerleşim" sayfanızın kod bölümüne yerleştiriniz. kodlamadaki 1,2,3,4 yazan yerlere, 7 haneli Alan kodunuzu giriniz. Veya alan kodunu bir hücreden alacak iseniz, ilgili hücrenin adresini giriniz.

Kod: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [O5]) Is Nothing Then Exit Sub
If [O5] = "Atölye Desk" Then [P5] = 1
If [O5] = "Atölye Toplantı Masası" Then [P5] = 2
If [O5] = "T-Cafe Bofi Tezgah" Then [P5] = 3
If [O5] = "T-Cafe Toplantı Masası" Then [P5] = 4

If Not Intersect(Target, [R6]) Is Nothing Then Exit Sub
If [R6] = "Atölye Desk" Then [R8] = 1
If [R6] = "Atölye Toplantı Masası" Then [R8] = 2
If [R6] = "T-Cafe Bofi Tezgah" Then [R8] = 3
If [R6] = "T-Cafe Toplantı Masası" Then [R8] = 4

If Not Intersect(Target, [D14]) Is Nothing Then Exit Sub
If [D14] = "Atölye Desk" Then [D13] = 1
If [D14] = "Atölye Toplantı Masası" Then [D13] = 2
If [D14] = "T-Cafe Bofi Tezgah" Then [D13] = 3
If [D14] = "T-Cafe Toplantı Masası" Then [D13] = 4

If Not Intersect(Target, [D16]) Is Nothing Then Exit Sub
If [D16] = "Atölye Desk" Then [H17] = 1
If [D16] = "Atölye Toplantı Masası" Then [H17] = 2
If [D16] = "T-Cafe Bofi Tezgah" Then [H17] = 3
If [D16] = "T-Cafe Toplantı Masası" Then [H17] = 4
End Sub
 
Şaban Bey, toplamda 100 küsür masa var. Aslında ihtiyacım böyle bir şeydi ama türetmesi zor olur..
Zahmet verdiniz, size de teşekkür ederim.
 
Estağfirullah. Olayı tam anlayamadık sanırım :)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst