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

#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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Re: Vlookup İle Hücre Grubunu Sonuç Olarak Döndürme - Yazar: berduş - 04/05/2021, 14:02
Task