Farklı sayfalardaki verileri rapor sayfasına aktarma

[enes2000eren]

Farklı sayfalardaki FARKLI SAYILARDAKİ verileri rapor sayfasına SIRALATMAK

Slm arkadaşlar sayfa 1-2-3-4-5 deki isim listelerinin rapor sayfasına sırası ile boşluk verilmeden aktarılmasını istiyorum.SAYFALARDAKİ VERİLER AYNI DEĞİL.FARKLI SAYILARDA .acaba mümkün mü?yardımlarınız için tşk.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Dim sat, i
s = 2
Sheets("RAPOR").[a2:c10000] = Empty
Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
    For sat = 2 To Sheets(i).Cells(65536, "a").End(xlUp).Row
        If Sheets(i).Name <> Sheets("RAPOR").Name Then
            Range(Sheets("RAPOR").Cells(s, "a"), Sheets("RAPOR").Cells(s, "c")) = _
            Range(Sheets(i).Cells(sat, "a"), Sheets(i).Cells(sat, "c")).Value
            s = s + 1
        End If
    Next: Next
Application.ScreenUpdating = True
End Sub

 

[enes2000eren]

Uyarlama

SAYIN N.ZİYA HİÇ DURMAZ .KUSURA BAKMAYIN SİZİ DE RAHATSIZ EDİYORUM AMA .KENDİ FORMUMA UYARLAMAYA ÇALIŞTIM.AMA YAPAMADIM.EĞER YARDIM EDERSENİZ ÇOK SEVİNİRİM.KİTAPTA TOPLAM 30 SAYFA VAR AMA BEN 5 SAYFASINI EKLEDİM.SAYFA 1-2-3-4-5 in A222-AL273 ARASINDAKİ BİLGİLERİ BOŞLUK OLMADAN RAPOR SAYFASINA SIRALAYACAK

 

[N.Ziya Hiçdurmaz]

yanıt

Sub AKTAR()
Dim sat, i
s = 5
Sheets("RAPOR").[A5:AL1000] = Empty
Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
    For sat = 222 To Sheets(i).Cells(65536, "A").End(xlUp).Row Step 2
        If Sheets(i).Name <> Sheets("RAPOR").Name And Sheets(i).Name <> Sheets("TASLAK").Name Then
            Sheets("RAPOR").Cells(s, "A") = Sheets(i).Cells(sat, "A").Value
            Sheets("RAPOR").Cells(s, "M") = Sheets(i).Cells(sat, "M").Value
            Sheets("RAPOR").Cells(s, "U") = Sheets(i).Cells(sat, "U").Value
            Sheets("RAPOR").Cells(s, "AG") = Sheets(i).Cells(sat, "AG").Value
            Sheets("RAPOR").Cells(s, "AL") = Sheets(i).Cells(sat, "AL").Value
            s = s + 1
        End If
    Next: Next
    [A5:AL10000].Sort key1:=[a5], order1:=xlAscending
Application.ScreenUpdating = True
End Sub

 

[burak.k]

Farklı çalışma 5 çalışma sayfasından,rapor sayfasına Veri Aktarımı

Ziya Bey,

İthalat departmanı olarak ekte gördüğünüz tabloyu 2010 yılı boyunca tutmayı planlıyoruz.Bu yüzden verileri standartlaştırmaya çalışacağız.

Siden ricam;
Ekteki Excel dosyasında
-Antrepo
-Antrepodan transit
-Antrepodan devir
-Antrepodan ithalat
-Direk ithalat
-2010 Acente Tablosu

Yapmanız mümkünse,sizden ricam;Antrepo-Antrepo Transit-Antrepo Devir-Antrepo İthalat-Direk İthalat kayıtlarını 2010 acente tablosuna aktarmanızdır.Bu aktarımda sıra-büyüklük-yada herhangi kriter önemli değil.

Aktarmalarda,

Antrepo için C sütunu yani AN.BEY.NO
Antrepo Transit için F sütunu yani TRANSİT S.FATURA NO
Antrepo Devir için E sütunu yani DEVİR S.FATURA NO
Antrepo İthalat için D sütunu yani AN-IT.BEY NO
Direk İthalat için C sütunu yani IT.BEY NO

Kriterlerinin özellikle aktarılması gerekiyor.Bu kriterler aracılığıyla yükleme detaylarını ben ayrı formüllerle Acente Tablosuna atacağım.

Umarım anlatabilmişimdir.
Şimdiden teşekkür ederim.

Burak