Yan sayfadan veri alma

[sward175]

Herkese Merhabalar,

Ekli dosyanın iki sayfasında veri bulunmakta, Sarf sayfasında yatay olan bilgileri bilgi sayfasına alt alta transfer etmek istiyorum.

İyi gün dilekleri ile,
sward175

 

[Murat OSMA]

Merhaba,

Bu kodları kullanabilirsiniz.

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim i&, a&, sat&: sat = 3
    For a = 4 To 34
        For i = 4 To Sayfa2.Range("c65536").End(3).Row
            If Sayfa2.Cells(i, a).Value <> "" Then
                 Sayfa1.Cells(sat, "C").Value = Sayfa2.Cells(3, a).Value
                 Sayfa1.Cells(sat, "D").Value = Sayfa2.Cells(i, 3).Value
                 Sayfa1.Cells(sat, "E").Value = Sayfa2.Cells(i, a).Value
                 sat = sat + 1
            End If
        Next i
    Next a
    sat = Empty: a = Empty: i = Empty
End Sub[/SIZE][/FONT]

 

[sakman26]

selam,
alternatif cevap olarak
eki inceleyiniz..
kolay gelsin..

 

[sward175]

Sayın: Murat OSMA,
Sayın: sakman26,
Her ikinizin vermiş olduğu bilgiler de harika işimi fazlası ile çözdüm.
Ayrı ayrı teşekkür eder, yaşamınızda sağlık, mutluluk ve başarılar dilerim.
Kalın sağlıcakla,
sward175

 

[sward175]

Herkese Merhabalar,

Sayın, sakman26'nın yardı ile dosyayı kullanmaya başladım.
Bir ricam olacak, "AYLIK" sayfası "G7:AK7 hücrelerindeki formülün, VERİ GİRİŞ sayfası C sütunundaki "TANKER" olanların karşılıklarını getirsin, "BENZİNLİK" olanları getirmesin.
Yardımlarınızı rica eder, İyi günler dilerim.
sward175

 

[sward175]

Özür dileyerek yeni dosya ekliyorum.
Eklediğim dosyada bulunan "AYLIK" sayfası G7:AK7 aralığındaki formüller "VERİ GİRİŞ" sayfası C sütununda bulunan " TANKER" lerin E sütunundaki karşılıklarını getirsin.
Saygılarımla,
sward175

 

[sakman26]

dosyanız ektedir.
kolay gelsin..