Skip to main content

AccessTr.neT


Vlookup İle Hücre Grubunu Sonuç Olarak Döndürme

Vlookup İle Hücre Grubunu Sonuç Olarak Döndürme

Çözüldü #1
Saygıdeğer Hocalarım,

Öncelikle herkese sağlıklı günler dileyerek, bu kez Excel çalışmamda başarılı olamadığım bir hususta desteklerinize ihtiyaç duyuyorum. Ekte göndermekte olduğum Excel dosyası 2 sayfadan oluşmaktadır :

1. sayfa (IVL) analiz raporlarının bulunduğu sayfadır ve IVL numarasına göre analiz detayları farklı hücre aralıklarında ancak eşit sütun sayısında dağılım göstermektedir.
2. sayfa (Arama) IVL numarasına göre vlookup mantığı ile arama yapılarak sonuçların listelenmesi sağlanmaya çalışılmaktadır.

Öncelikle IVL sayfa içeriği örnek için oldukça kısaltılmış durumda olup orjinal hali 38bin satır üzerindedir. Bu sayfada bold olan IVL No analiz konusu olan ana başlık IVL'dir ve aranan IVL de budur. Bu ana başlığın altında yer alan ve bold olmayan diğer IVL numaraları analiz için kullanılması gerekli olan diğer tanımlı IVLleri ifade etmektedir.

Yapmak istediğim Arama sayfasında aranan IVL no yazıldığında bu bold IVL'i bulmak ve altındaki bilgileri örnekte görüleceği üzere C2 hücresine aktarmaktır.
  1. Öncelikle IVL sayfasında analiz ana başlıklarını ifade eden IVLlere göre gruplandırma yapmaya çalıştım ancak başarılı olamadım.
  2. Vlookup sadece tek hücre sonuç döndürüyor grup halinde sonuç döndürmeye çalıştım başarılı olamadım.
  3. Aranan noya göre IVL sayfasında her alanı ayrı ayrı aratıp C2'de birleştirmeye çalıştım ve yine başarılı olamadım.

VBA ile sonuç alabilir miyim diye denemek istedim ancak öğrenmekte olduğum Access Vba ile Excel Vba arasında çok ciddi farklılıklar olduğunu, başarabilecek yetkinlikte olmadığımı gördüm ve boyumdan büyük bir işe kalkıştığımı anladım. Netice itibarı ile bir kez daha yardımlarınızı istirham etmek zorundayım.

Saygılarımla

Murtaza AF
.rar soru.rar (Dosya Boyutu: 37,22 KB | İndirme Sayısı: 11)
Cevapla
#2
Dilerim işinize yarar
Not: Maalesef hepsini C2 hücresine aktaramadım IVL sayfasındaki şablonu kullandım
Yapılanlar:
1 - makroların çalışabilmesi için Excel dosyanız .xlsm olarak kaydedildi
2 - modül eklendi
Modül kodu:
Sub FormatliAra(ByVal txtAranan As String)
Dim RngAra As Range
Dim RngSonuc As Range
Dim RngBul As Range
Set RngAra = ThisWorkbook.Worksheets("IVL").Range("A:A")

    ' Clear previous formats and set new format
    Application.FindFormat.Clear
    Application.FindFormat.Font.Bold = True'formatlı arama için gerekli kod

    Set RngBul = RngAra.Find(txtAranan, SearchFormat:=True)
    ThisWorkbook.Worksheets("Arama").Range("C2:N9").ClearContents 'Arama Sayfasını boşaltan kod
    If RngBul Is Nothing Then Exit Sub 'veri yoksa işlemi iptal etme
   
    Set RngSonuc = ThisWorkbook.Worksheets("IVL").Range("A" & RngBul.Row - 1 & ":L" & RngBul.Row + 7)
   
    ThisWorkbook.Worksheets("Arama").Range("C2:N9").Value = RngSonuc.Value'değerleri arama sayfasına atama
    Application.FindFormat.Clear
End Sub
3 - arama sayfasında B2 değişince aramayı sağlayacak kod eklendi
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b2")) Is Nothing Then FormatliAra (Target.Value) 'B2 değişince tetiklenir
End Sub
Cevapla
#3
@berduş Hocam nazik yardımınız ve ayırdığınız zaman için çok teşekkür ederim, minnettarım.

Göndermiş olduğunuz dosyayı inceledim ve kodları anlamaya çalıştım. Netice = Sadece Access değil Excel içinde çok ciddi bir eğitim sürecine girmem gerekiyor.
Gönderdiğiniz dosyada hepsini C2 hücresine aktaramadığınızı IVL'deki şablonu kullandığınızı belirtmişsiniz. Buna çözüm bulmak ya da Excel içinde uygulamak mümkün değilse tüm planlamamı gözden geçirmem ve değiştirmem gerekecek.

Bunun haricinde dosyayı denediğimde eklediğim resimde de görüleceği üzere 15.105.1101 nolu IVL'e kadar açıklama detayları gelmiyor, bundan sonrakilerde ise muntazam bir şekilde geliyor. Kodları düzenlemeye çalıştım. Ancak -çok özür dileyerek- ne yazık ki alıştığınız üzere başarılı olamadım. Nasıl bir yol izlemem gerektiği konusunda bana ışık tutabilir misiniz?

[Resim: do.php?img=10984]


Not: Sitenin resim ekleme bölümünde sanırım sorun var. Güvenlik uyarıları çıkıyor, çok zor yükleyebildim.


Saygılarımla

Murtaza AF
Cevapla
#4
Merhaba dizi formülleri ilede yapılabilir mobilden dosyanızı incelediğim kadarıyla.
Cevapla
#5
Yada indis kaçıncı ile bulunur bence dizi olmadan.Akşam bakayım müsait olunca alternatif olarak.
Cevapla
#6
@feraz Hocam size de teşekkür ederim. Çok çok özür diliyorum ben size hep Firuz diye hitap ediyordum, ne büyük dikkatsizlik.
Hocam Dizi formülleri hangileri acaba ben senelerdir İngilizce Excel kullandığım için Türkçe karşılıklarını pek bilmiyorum.

Saygılarımla

Murtaza AF
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task