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

hutupis1

Yeni Üye
Katılım
24 Ocak 2019
Mesajlar
10
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 Yöneticisi
Katılım
25 May 2018
Mesajlar
1,055
En İyi Yanıtlar
77
Beğeniler
858
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
 
Katılım
24 Ocak 2019
Mesajlar
10
En İyi Yanıtlar
0
Beğeniler
0
Puanları
1
Yaş
35
Konum
İstanbul
Ad Soyad
Ziya İslamoğlu
#3
Merhaba,

kodu denedim fakat istediğim gibi olmadı. Ekte yeni bir doysa ekledim.
Çalışma kitabındaki banka,çekler,müşteri,satıcı ve diğer sayfalarının TABLO sayfasında birleştirebilir miyiz.
A sütünundan başlayarak sırasıyla gelebilirler.

Sıralaması da vade tarihine göre olursa güzel olur.

Şimdiden teşekkürler
 

Ekli dosyalar

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,055
En İyi Yanıtlar
77
Beğeniler
858
Puanları
113
Konum
İstanbul
#4
İstediğim gibi olmadı derken? :unsure:
İlk mesajınızda tam olarak istediğiniz gibi çalışacak şekilde kodları hazırladım testini de yaptım, birebir uyuşmakta.
Fakat ilk mesajdaki ile ikinci mesajınızdaki dosyalarda farklılıklar olduğu ve üzerinde değişiklik yaptığınız için birebir uyuşmamıştır, onun için tekrar kodları kontrol edip revize etmek gerekecektir.
 
Katılım
24 Ocak 2019
Mesajlar
10
En İyi Yanıtlar
0
Beğeniler
0
Puanları
1
Yaş
35
Konum
İstanbul
Ad Soyad
Ziya İslamoğlu
#5
merhaba,

Öncelikle geri dönüş için teşekkürler.
Şöyle ki " Çekleri diğer sayfalardaki gibi düzene getirip sonradan ana sayfada sütunlar sırasıyla BANKA-veya cari USD EUR TL VADE AÇIKLAMA şeklinde getirebilir mi? " diye bir şey sordum o olmadı sanırım. ben de kendim manüel olarak düzelttim.

Diğer sayfalar için yaptığınız kod çalıştı fakat bu defa da veriler çok olursa hangisi tahsilat hangisi banka ödemesi veya diğer ödeme olduğunu anlamak sıkıntı olacağından yeni sütunlar eklemek zorunda kaldım. belki ilerde yeni sütunlar daha eklemem gerekecek.
O yüzden çalışma sayfalarını tek bir sayfada A sütunundan başlayarak sırasıyla gelmesini sağlayabilir miyiz ?
umarım anlatabilmişimdir.
 
Katılım
24 Ocak 2019
Mesajlar
10
En İyi Yanıtlar
0
Beğeniler
0
Puanları
1
Yaş
35
Konum
İstanbul
Ad Soyad
Ziya İslamoğlu
#6
Merhaba tekrardan,

bir yerde ekli dosyadaki dosyayı yaptılar. Bunun üzerinde

Tarih aralıkları "veri getir" butonuna eklenebilir mi?

2. si veriler vade tarihi, banka, tp ye göre sıralı gelebilir mi?
 

Ekli dosyalar

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,055
En İyi Yanıtlar
77
Beğeniler
858
Puanları
113
Konum
İstanbul
#9
Şu an zaten kodlar iki tarih aralığına göre raporlama yapıyor durumda..
Farklı bir isteğiniz mi var?
 
Katılım
24 Ocak 2019
Mesajlar
10
En İyi Yanıtlar
0
Beğeniler
0
Puanları
1
Yaş
35
Konum
İstanbul
Ad Soyad
Ziya İslamoğlu
#10
rapor geliyor fakat sıralamasını TP sütununa göre geliyor.
rapor gelince vade tarihi, banka, tp ye göre özel sıralı gelebilir mi ?
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,055
En İyi Yanıtlar
77
Beğeniler
858
Puanları
113
Konum
İstanbul
#11
Sadece sıralama ile ilgili mi yardıma ihtiyacınız var?
 
Katılım
24 Ocak 2019
Mesajlar
10
En İyi Yanıtlar
0
Beğeniler
0
Puanları
1
Yaş
35
Konum
İstanbul
Ad Soyad
Ziya İslamoğlu
#12
evet lütfen.

Bir de mümkünse İLK TARİH SON TARİH seçmesini veri getir yazan şablona gelebiliyorsa güzel olur olmazsa da yapacak öyle kalabilir.
 
Katılım
24 Ocak 2019
Mesajlar
10
En İyi Yanıtlar
0
Beğeniler
0
Puanları
1
Yaş
35
Konum
İstanbul
Ad Soyad
Ziya İslamoğlu
#13
bir şeyi de eklemeyi unuttum rapor geldiğinde bazı sayılarda hata veriyor nedeni ne olabilir mesala aşağıdaki olan verideki gibi

TP CARİ USD EUR TL VADE
B-ÖDEME YAPI KREDİ 54136 23.07.2019
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,055
En İyi Yanıtlar
77
Beğeniler
858
Puanları
113
Konum
İstanbul
#14
Sıralama ile ilgili bu kodları kullanabilirsiniz.
Mevcut kodlarınıza End Sub'dan önce ilave edersiniz.

VBA:
    son = Cells(Rows.Count, "A").End(3).Row
    Range("A3:J" & son).Select
    ActiveWorkbook.Worksheets("TABLO").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("TABLO").Sort.SortFields.Add2 Key:=Range("F4:F" & son) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("TABLO").Sort.SortFields.Add2 Key:=Range("B4:B" & son) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("TABLO").Sort.SortFields.Add2 Key:=Range("A4:A" & son) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("TABLO").Sort
        .SetRange Range("A3:J" & son)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A3").Select
 
Üst Alt