Soru Bir hücreye bir sayı girdiğimizde bu sayıya bağlı olarak başka bir sayfadaki aynı sayının karşısındaki bilgileri VBA koduyla getirebilir miyiz?

[Bayram Paşa]

Devam Takip adlı bir dosyam var. Bu dosyada VERİ ve İZİN_RAPOR adında iki tane sayfa var.

Bu dosyanın İZİN_RAPOR Sayfasında, A sütununda mesela A5 satırına 2 yazdığımda VERİ sayfasında yine A sütununda 2 rakamının bulunduğu hücrenin satırında, B6 hücresinde Kişinin T.C. Kimlik Numarası, C6 hücresinde Adı Soy Adı ve D6 hücresinde ise Görev bilgilerini Formül ile İZİN_RAPOR sayfasındaki B5, C5; D5 hücrelerine aktarabiliyorum.

Benim yapmak istediğim ise bu formül ile gerçekleşen durumu formül olmadan VBA kodlarıyla yapabilir miyiz?

 

[Korhan Ayhan]

İZİN_RAPOR isimli sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Veri As Range, Bul As Range
    
    On Error GoTo Son
        
    If Intersect(Target, Range("A4:A" & Rows.Count)) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    
    For Each Veri In Intersect(Target, Range("A4:A" & Rows.Count))
        If Veri.Value = "" Then
            Veri.Resize(, 4).ClearContents
        Else
            Set Bul = Sheets("VERİ").Range("A:A").Find(Veri.Value, , , xlWhole)
            If Not Bul Is Nothing Then
                Veri.Offset(, 1) = Bul.Offset(, 2)
                Veri.Offset(, 2) = Bul.Offset(, 1)
                Veri.Offset(, 3) = Bul.Offset(, 3)
            Else
                Veri.Resize(, 4).ClearContents
            End If
        End If
    Next

Son:
    Set Bul = Nothing
    Application.EnableEvents = True
End Sub

 

[Bayram Paşa]

Korhan bey çok teşekkür ederim. Allah razı olsun. İyi ki varsınız.