Soru Başka sayfadan veri çağırma.

Katılım
24 Ağustos 2013
Mesajlar
62
Excel Vers. ve Dili
2010
Merhaba Öncelikle sorumu okuyan herkese sağlıklı günler ve iyi çalışmalar diliyorum.

Sorum şu .
"Data" sayfamda A sütünündan BR sütününa kadar verilerim var.
"Hazırlık" sayfama Data sayfasından sütün çekmek istiyorum.
Çalışmamı "Proje" saydamda yapıyorum.

Proje sayfamın A1-N1 aralığına Data sayfamda bulunan sütün isimlerini girdigimde bu sütünların Hazırlık sayfama yazdığım sıra ile taşınmasını sağlıyacak bir makroya ihtiyacım var.

Örnek olarak.
Proje sayfasına A1 için data sayfamın B4 sütünü,B1 için data sayfamın G1 sütünü diye deam eden sıra ile veri çağırmak istiyorum.


Yardımlarınız için şimdiden teşekkür ederim.
 

ÖmerFaruk

Altın Üye
Katılım
22 Ekim 2017
Mesajlar
2,017
Excel Vers. ve Dili
Ofis 365 Türkçe
Proje sayfasına A1 için data sayfamın B4 sütünü,B1 için data sayfamın G1 sütünü diye deam eden sıra ile veri çağırmak istiyorum.

Bu ifadenizdeki B4 sütunu doğru mu?
 

ÖmerFaruk

Altın Üye
Katılım
22 Ekim 2017
Mesajlar
2,017
Excel Vers. ve Dili
Ofis 365 Türkçe
Şu kodları bir modüle içine yapıştırıp çalıştırın.

C#:
Sub SütunAktar()
Dim Sh1 As Worksheet, Sh2 As Worksheet, Sh3 As Worksheet
Dim KolonVerisi, Son As Integer, Kolon As Range
Set Sh1 = Worksheets("Data"): Set Sh2 = Worksheets("Proje"): Set Sh3 = Worksheets("Hazırlık")
    For k = 1 To 14
        If Sh2.Range("A1").Offset(0, k - 1) = "" Then GoTo Devam
        Set Kolon = Sh1.Range("A1:BR1").Find(Sh2.Range("A1").Offset(0, k - 1), , , xlWhole, xlByColumns)
        If Not Kolon Is Nothing Then
            Son = Sh1.Cells(Rows.Count, Kolon.Column).End(3).Row
            Sh1.Cells(1, Kolon.Column).Resize(Son, 1).Copy
            Sh3.Cells(1, k).Resize(Son, 1).PasteSpecial
        End If
Devam:
    Next k
End Sub
 
Katılım
24 Ağustos 2013
Mesajlar
62
Excel Vers. ve Dili
2010
Ömer Bey güzel çalıştı.Teşekkür ederim.
 
Üst