Listede Bulunan Satırı Kopyalama

Bu dosya, ürün listesinde InputBox ile girilen değeri arayan ve bulunan satırı ayrı bir alana kopyalayan makro örneğidir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A1:C7 aralığında Ürün ve Şubat başlıklı liste bulunur. Listede Masa (120), Çanta (72), Kitap (60), Lamba (36), Kalem (35) ve Silgi (21) kayıtları yer alır.
• G1 ve I1 hücrelerinde yine Ürün ve Şubat başlıkları vardır; bu alan, bulunan satırın kopyalanacağı sonuç listesidir. G7 hücresindeki not, butona basıldıktan sonra InputBox'ın açılacağını belirtir.

Dosyada formül bulunmaz; işlem tamamen makro ile yapılır.

Makrolar​

Sayfa1 modülünde Bul adlı tek bir makro vardır:

• "Ay Adı Giriniz." başlıklı bir InputBox açar ve girilen metni alır.
• A2:A13 aralığında bu metni Find ile arar; arama tam eşleşme (xlWhole) ve hücre değerleri üzerinden yapılır.
• Değer bulunamazsa "Aranan Veri Bulunamadı" mesajı gösterilir ve makro sonlanır.
• Değer bulunursa bulunan hücreden başlayan 4 hücrelik satır parçası G2 hücresine kopyalanır.

Makro dosyadaki bir butona bağlanarak çalıştırılır; kodda dosya silme ya da dışarıya bağlantı gibi işlem yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'de butona basın veya Alt+F8 ile Bul makrosunu çalıştırın.
3. Açılan kutuya listedeki ürün adını, örneğin Masa, yazın ve Tamam'a basın.
4. Bulunan satır G2 hücresinden başlayarak kopyalanır.
5. Aranan değer A2:A13 aralığında yoksa uyarı mesajı görüntülenir.

Arama aralığı farklı bir liste için değiştirilecekse VBA düzenleyicisinde Sayfa1 modülündeki A2:A13 adresi güncellenir.