Yardım Çalışma sayfaları birleştirme

hutupis1

Yeni Üye
Katılım
24 Ocak 2019
Mesajlar
1
En İyi Yanıtlar
0
Beğeniler
0
Puanları
1
Yaş
35
Konum
İstanbul
Ad Soyad
Ziya İslamoğlu
#1
Merhaba,

Ekli dosyadaki banka,müşteri satıcı ve diğer sayfaları Anasayfada bir bütün halinde vade tarihine göre görmek istiyorum..
Dosyadaki banka müşteri satıcı ve diğer sayfalardaki verileri ben kendim manuel takip ediyorum.
fakat çekleri kullandığımız programdan raporla alıp buraya yapıştırıyorum. Çekleri diğer sayfalardaki gibi düzene getirip sonradan anasayfada sütünlar sırasıyla BANKA-veya cari USD EUR TL VADE AÇIKLAMA şeklinde getirebilir mi?
Satır sıralaması da vade tarihine göre olacak.
Yardımcı olabilir misiniz. Şimdiden teşekkürler.
 

Ekli dosyalar

Admin

Yönetici
Site Sahibi
Katılım
25 May 2018
Mesajlar
1,000
En İyi Yanıtlar
72
Beğeniler
773
Puanları
113
Konum
İstanbul
#2
Merhaba,
Bu kodları kullanabilirsiniz.. (y)
VBA:
Sub Emre()
    Dim syf%, i%
    Sayfa1.Range("A2:F65536").Clear
    For i = 2 To Sheets.Count
        If Sheets(i).Name <> "çekler" Then
            sson = Sheets(i).Cells(Rows.Count, "A").End(3).Row
            anason = Sayfa1.Cells(Rows.Count, "A").End(3).Row + 1
            Sheets(i).Range("A2:F" & sson).Copy Sayfa1.Cells(anason, 1)
        End If
    Next i
    Cells.Font.Size = 8
    Columns("E:E").NumberFormat = "m/d/yyyy"
    Columns("B:E").HorizontalAlignment = xlRight
    Columns.AutoFit
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelArsivi.Com"
End Sub
 
Üst Alt