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

[emrebenn]

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]

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?

 

[emrebenn]

Ömer bey B1 olacak,Klavye hatası yapmışım.

 

[ÖmerFaruk]

Şu kodları bir modüle içine yapıştırıp çalıştırın.

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

 

[emrebenn]

Ömer Bey güzel çalıştı.Teşekkür ederim.