Soru RFI KART OKUMA SORUNU

[Nasmurat]

Üstatlarım Merhaba,
RFI kart okuyucu ile excele verileri otomatik olarak aktarıyor.
veriler anlık olarak aktarıldığı için personel bilgilerini otomatik olarak yanına Düşeyara ile görüntülemek istiyorum fakat tek tek F2 Tuşu ile Bir hücreyi düzenleme moduna alıp enter tuşuna basmam gerekiyor. bu da büyük bir zaman kaybı.
otomatik girilen verileri manuel olarak girilmiş bir şekilde nasıl yapabilirim?
yardımlarınız için şimdiden çok teşekkür ederim.

 

[tugkan]

Bu durumu çözmek için otomatik olarak RFI kart okuyucusundan Excel'e girilen verilerin DÜŞEYARA (VLOOKUP) formülü ile anında güncellenmesi için birkaç farklı yaklaşım kullanılabilir. Ancak temel sorun, hücrelerin düzenleme moduna girmeden formüllerin çalışmaması gibi görünüyor. Bunu çözecek en pratik yöntemlerden biri VBA makrosu kullanarak formüllerin otomatik olarak yenilenmesini sağlamak olabilir.

Adım 1: Otomatik Yenileme Makrosu
Aşağıdaki VBA kodu, veriler her girildiğinde DÜŞEYARA formülünün çalıştırılmasını sağlayabilir. Makro, hücrelere veri girildiğinde otomatik olarak tetiklenerek formülleri günceller ve manuel olarak F2 + Enter kombinasyonu kullanmanıza gerek kalmaz.

1. Excel'de VBA Editörünü açın (Alt + F11 tuşuna basarak).
2. Sol taraftaki proje gezgininden ThisWorkbook veya ilgili sayfaya çift tıklayın.
3. Aşağıdaki kodu ilgili sayfaya yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sayfa1") ' Verilerin olduğu sayfanın adı
    
    If Not Intersect(Target, ws.Range("A1:A100")) Is Nothing Then ' Verilerin girildiği hücre aralığını belirtin
        Application.EnableEvents = False
        Target.Formula = Target.Formula ' Hücreyi yeniden hesapla
        Application.EnableEvents = True
    End If
End Sub

Adım 2: Hücre Aralığını ve Sayfayı Ayarlayın

• ws.Range("A1:A100"): RFI kart okuyucusundan verilerin geldiği hücre aralığını bu şekilde belirtin.
• ThisWorkbook.Sheets("Sayfa1"): Veri aktardığınız sayfanın adını doğru olarak girin.

Nasıl Çalışır:

• Herhangi bir hücreye veri girildiğinde veya güncellendiğinde bu makro tetiklenir.
• Target.Formula = Target.Formula komutu, hücre içeriğinin tekrar hesaplanmasını sağlar ve DÜŞEYARA gibi formüller otomatik olarak güncellenir.

Alternatif Yöntem: Elle Yenileme Makrosu
Eğer her şeyin otomatik değil de zaman zaman manuel olarak yenilenmesini isterseniz, aşağıdaki basit makroyu da kullanabilirsiniz:

Sub FormulleriYenile()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sayfa1")
    
    ws.Calculate ' Sayfanın tüm formüllerini yeniden hesapla
End Sub

Bu makro çalıştırıldığında tüm formülleri yeniden hesaplar ve F2 + Enter işlemine gerek kalmadan formüllerin güncellenmesini sağlar. Bu makroyu bir düğmeye atayabilir veya ihtiyaç duyduğunuzda çalıştırabilirsiniz.

Bu yöntemlerle zaman kaybını minimize edebilir ve verilerin doğru bir şekilde görüntülenmesini sağlayabilirsiniz.