Birden fazla sayfadan isme göre veri almak.

[lifeislove]

Selamlar arkadaşlar;

Birçok excel sayfam var. Bu sayfaların adlarını kişi isimlerine göre düzenledim (öyle olması gerekiyor). A isimli sayfamda ise isim listesi bulunmakta. Tek bir buton ile isim listesindeki isimlere ait sayfalarda bulunan örneğin [az12] hücresinden verileri alıp A isimli sayfadaki isimlerin karşısına yazmak istiyorum. Bu konuda yardımcı olabilir misiniz?

[tasad]

Örnek bir dosya ekleyin , yardımcı oluruz.

[lifeislove]

yolluk userformundaki 3aylık yazdır butonu ile 3Aylık olarak belirtilen sayfaya isimlerin karşısına yazdırmak istiyorum.

[tasad]

Kodları deneyin.

Kod: Tümünü seç

sub veriAL()
Dim i As Long
Dim x As Long
    
For x = 10 To Sheets("3aylık").Cells(Rows.Count, 2).End(3).Row
    For i = 1 To Sheets.Count
   
        If Sheets(i).Name = Sheets("3aylık").Cells(x, 2) Then
           
           Sheets("3aylık").Cells(x, 7) = Sheets(i).Range("az12")
          
        End If
    Next
Next
end sub

[lifeislove]

Sorunum çözüldü çok teşekkür ederim. Anlaşılan öğreneceğimiz çok şeyler var.

[lifeislove]

Paylaştığım bu uygulamayı çıkış butonundan kaydedip kapattıktan sonra yeniden başlattığımda yeni görevyaz kısmındaki aktar kaydet butonuna bastığımda program kapanıyor sebebi ne olabilir?