veri almak

[abuitun]

Herkese iyi günler,
başka bir dosyadan veri almak ile ilgili bir sorum olacak.
a dosyasın daki tüm sayfaların c3:c6 h3:h6 ve k1 deki değerleri (bu değerler fomülasyon da olabilir.c3=8 c4=eğer(c1="";"";c8) gibi formülasyonda içereblir)
bu değerler b dosyasının sayfa1 içerisinde a1:I1 e yatay olarak alt alta almasını istiyorum.
umarım soru açık olmuştur.

 

[zafer]

Merhaba

A ve b kitaplarınızı açınız.

Aşağıdaki makroyu kitaplarınızdan birisinin modül sayfasına kopyalayıp çalıştırınız.

Sub verget()

    Windows("a.xls").Activate
    sayfa = Worksheets.Count
    For i = 1 To sayfa
    isim = Sheets(i).Name
    Sheets(isim).Select
    degerler = Array(Range("c3").Value, Range("c4").Value, Range("c5").Value, Range("c6").Value, Range("h3").Value, Range("h4").Value, Range("h5").Value, Range("h6").Value, Range("k1").Value)
   
    Windows("b.xls").Activate
    Sheets("sayfa1").Select
    son = Cells(65536, 1).End(xlUp).Row + 1
    For y = 0 To 8
    Cells(son, y + 1) = degerler(y)
Next
Windows("a.xls").Activate
Next
End Sub

 

[abuitun]

Sayın Zafer,
İlginize teşekkürler kodları çalışmama uyarlamaya çalışyorum.
Tekrar teşekkürler.