Birden Fazla Tablodan Veri Alma

[Ömer BARAN]

Osman Bey, yeni belge ekte.

Belgeye buradan ulaşabilirsiniz.

 

[osm87]

Ömer Bey istenilen yetkiler altında E sütununda bulunan kutucuklara mouse tik ile işaretliyoruz ancak tekrar tıkladığımızda işaret kalkmıyor. Birde Excell dosyası ek yaptım tablo içinde arama motoru tarzı birşey olmasını istiyorum forumdakilerden uyarlamaya çalıştım ama istediğim gibi olmadı yardımcı olabilirmisiniz?

 

[Ömer BARAN]

Ömer Bey istenilen yetkiler altında E sütununda bulunan kutucuklara mouse tik ile işaretliyoruz ancak tekrar tıkladığımızda işaret kalkmıyor.

Sorunuzun yukarıdaki kısmını halletmek için;
YAZI sayfasına fareyle sağ tıklayıp "Kod Görüntüle"yi seçin açılan kod ekranında, aşağıdaki şekilde başlayan kod bölümünün sonundaki

[SIZE="2"]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/SIZE]

ActiveCell = "x"

satırını silip yerine aşağıdaki satırları yapıştırın.

If ActiveCell = "" Then
ActiveCell = "x"
ElseIf ActiveCell = "x" Then
ActiveCell = ""
End If

 

[osm87]

ömer bey teşekkür ederim kod çalışıyor diğer sorumla alakalı bir fikriniz var mı arama motoru tarzı birşey ekleyebilirmiyiz sayfaya daha önceki yazımda ek yapmıştım anlatım vardı içinde

 

[Ömer BARAN]

Merhaba.
Anladığım kadarıyla; metin kutusuna yazılacak metin, ARA sayfasının A sütununda aranacak bulunduğu satırların B sütunundaki veriler YAZI sayfası G sütununa listelenecek doğru mudur?

Peki bu şekilde arama yapmak yerine; metin kutusunun olduğu yere veri doğrulama listesi (D2 hücresindeki gibi) daha kullanışlı olmaz mı? Seçilen değerin B sütunundaki karşılığı da hemen altına getirilir.

 

[osm87]

Ömer Bey seçtiğimiz yetkiler A sütununda ekle dediğimizde listeleniyor ya gelen yetkinin üzerine fare ile geldiğimizde açıklaması çıksa yada arama motoru gibi bir şey eklesek sayfaya amacımızı anlamışsınızdır sanırım verdiğiniz cevapta tam anlayamadım veri doğrulama listesini yani ben kullanıcılar için pratik bir şey olsun istiyorum kullanıcıların bilgisayar kullanma seviyeleri çok düşük çünkü

 

[Ömer BARAN]

A sütununa eklenen tüm yetkilere ilişkin bir açıklamanın yer aldığı kaynak sayfa lazım o zaman.

Önceki söylediğinizden anladığıma göre hazırlanmış ekli belgeye bakınız.

 

[Ömer BARAN]

Eğer sadece A sütununa eklenen yetkilerle ilgili ilave bilgi istiyorsanız yine g sütununda arama (sadece A sütununa eklenenleri içerecek şekilde olabilir elbette) veya A sütundaki verilere hücre açıklaması ekleme olayını da halledebilirim belki, denemem lazım.
Tabi tüm seçenekler karşılığında yapılacak açıklama metinlerinin olduğu bir kaynak sayfaya ihtiyaç var demektir.
EKlediğiniz son belgedeki ARA sayfasıyla; YAZI sayfası A sütununa eklenen veriler arasında bağlantı göremedim.

 

[osm87]

ARA sayfasıyla bağlantı kurdurmadım çünkü nasıl birşey yapacağıma daha karar vermedim hangi yöntem daha pratik olur diyede şimdi uğraştığım A sütunu ile B sütunu birleşikti onu ayırdım DÜŞEYARA ile A sütununa gelen yetkiyi B sütununda göstertiyorum ama düzgün çalışmıyor bazılarında YOK hatası veriyor

 

[osm87]

Ömer Bey A ve B sütunlarını ayırdım pdf butonuna bastığımızda pdfe dönüştürüp A sütununu temizliyordu ya B sütununa yazdığım formülleride siliyor kalıcı olması için formüle ek birşey mi yazılması lazım yada başka bir yöntemi mi var

 

[Ömer BARAN]

Hücre açıklaması olarak eklemek isterseniz.

CommandButton1_Click adlı makro kodun ikinci satırı olarak aşağıdaki satırı ekleyin

Dim ARA As Worksheet: Set ARA = Sheets("ARA")

Ardından aynı makroda 10 şeklinde bir satır var o satırdan önce de aşağıdaki satırları ekleyin.

    With y.Cells(sona, 1)
        .ClearComments
        .AddComment
        .Comment.Visible = False
        .Comment.Text Text:=ARA.Cells(WorksheetFunction.Match(y.Cells(sona, 1), ARA.Range("A:A"), 0), 2).Value
    End With

Son olarak da CommandButton2_Click makrosunun sonlarındaki;

y.Range("A6:E300").ClearContents

satırından sonra aşağıdaki satırı ekleyin

y.Range("A6:E300").ClearComments

Sonra da ARA sayfası A sütununda olan bir yetkiyi YAZI sayfasında karşısına x koyarak EKLE düğmesine tıklayın.
Artık x koyduğunuz yetki A sütununa aktarılırken aynı zamanda hücre açıklaması olarak ARA sayfası B sütunundaki karşılığı eklenecektir.

PDF oluşturan düğme A sütunundaki verileri temizlerken hücre açıklamalarını da silecektir.

 

[osm87]

ömer bey elinize sağlık çok güzel olmuş tek bir problem kaldı pdf butonuna tıkladığımızda a sütunu temizleniyor ancak hücre açıklamaları kalıyor

 

[Ömer BARAN]

...............
Son olarak da CommandButton2_Click makrosunun sonlarındaki;

y.Range("A6:E300").ClearContents

satırından sonra aşağıdaki satırı ekleyin

y.Range("A6:E300").ClearComments

Son cevabımdaki yukarıdaki kısımı yapmamışsınız demektir.
Kontrol ediniz.

 

[osm87]

ömer bey iş yoğunluğundan cevap veremedim birkaç gündür kusura bakmayın YAZI sayfasında seçmiş olduğumuz yetkilerin listelendiği İSTENİLEN YETKİLER başlığı altındaki yetkilerden birkaçını çıkartmak istediğimizde bulunduğu satır sabit kalıyor yani yetkileri ekleme işlemini yaptırdık ama çıkartmak istediğimizde problem yaşıyoruz yardımcı olabilirmisiniz?

 

[Ömer BARAN]

Merhaba.
A sütununa ekleneni çıkartma işlemi benim gördüğüm belgelerde yoktu ki.
Yapmak istediğiniz, A sütununa, E sütununa x koyup EKLE düğmesyle A sütununa aktarılanı, bu kez A sütunundan kaldırabilmek öyle mi?
Öyleyse bunu nasıl (eklemede olduğu gibi bir yöntemle mi yapmak istiyorsunuz) yapacaksınız.
Örnek belgeyi yenileyin isterseniz.

 

[osm87]

A sütununun başına yeni bir sütun oluşturup "sil" butonu eklemeyi düşündüm ama bu sefer bütün kodları baştan aşağıya düzenlemek gerekecek en kolay yöntemi klavyeden "delete" tuşuna bastığımızda zaten hücre siliniyor silindikten sonra silinen hücre kaybolsun altında hücre varsa yukarı sürüklensin gibi birşey düşündüm ama daha kolay bir yöntemi varsa veya fikriniz varsa oda olabilir yeterki yetkiyi kaldırabilelim A sütunundan

 

[osm87]

Yapmaya çalıştığım işi ekteki excell dosyası içerisinde anlatmaya çalıştım farklı bir öneriniz varsa oda olabilir Ömer Bey kolay ve pratik olması benim için daha önemli kullanıcıların bilgisayar kullanması çok zayıf istiyorum ki ekranda görsünler neyin ne olduğunu yani şu hücreleri seçeyim klavyeden "delete" tuşuna basayım fikri oluşmamış kullanıcıların kafasında

 

[Ömer BARAN]

Umarım hazırladığım son belge olur.

Biraz uğraştırdı ama istediğiniz gibi oldu.

Sadece beyaz zeminli alanlara fareyle tıklayarak sonuç alınıyor.

İyi günler dilerim.

 

[osm87]

Ömer bey elinize sağlık çok güzel olmuş kusura bakmayın uğraştırdık sizide

 

[Ömer BARAN]

Yanlış hatırlamıyorsam,

-- 268'inci satıra kadar sorunsuz çalışmaktadır. (LİSTE sayfasındaki en fazla veri içeren sütundaki satır sayısına göre kodlardaki 268 sayısını değiştirirsiniz.
-- LİSTE sayfası aktive edildiğinde YAZI sayfası D2'deki veri doğrulama listesinin kaynağı olan LİSTE sayfası A sütunu yenileniyor, yani LİSTE sayfasına yeni sütunlar ve veriler ekledikten sonra başka bir sayfaya geçip tekrar LİSTE sayfasına dönüldüğünde A zütunundaki liste ve dolayısıyla YAZI sayfası D2 hücresinde yer alan veri doğrulama listesi alfabetik olacak şekilde (bazı sütun başlıklarında soldan ilk karakter BOŞLUK idi ve sıralamayı bozuyordu, baştaki boşlukları sildim) güncellenmektedir.
-- H ve I sütunu makro tarafından kullanılıyor, o sütunlara veri yazmayınız.

Kolay gelsin.