Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 17-05-2017, 07:57   #1
igultekin2000
Altın Üye
 
Giriş: 05/09/2007
Şehir: istanbul
Mesaj: 440
Excel Vers. ve Dili:
ofis 2010
Varsayılan raporlama

iyi günler; yaptığım çalışmada raporlama kısmında sorun yaşıyorum. makro olarak yardımcı olabilecek arkadaşlara şimdiden teşekkürler. hareket sayfasına oluşturduğum verileri tasnifli olarak Rapor sayfasına aktarmak istiyorum.
http://s5.dosya.tc/server4/yznv9q/CE...ZAAKD.rar.html
[IMG][/IMG]
igultekin2000 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-05-2017, 08:06   #2
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 699
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Altın üyeliğiniz var, sayfaya da yükleme yapabilirsiniz. Yükleme sitelerinde antivirüs tehlike sinyali veriyor.
__________________
Özel mesaj sistemini devre dışı bıraktım.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-05-2017, 09:00   #3
igultekin2000
Altın Üye
 
Giriş: 05/09/2007
Şehir: istanbul
Mesaj: 440
Excel Vers. ve Dili:
ofis 2010
Varsayılan tam anlayamadım

Alıntı:
antonio tarafından gönderildi Mesajı Görüntüle
Altın üyeliğiniz var, sayfaya da yükleme yapabilirsiniz. Yükleme sitelerinde antivirüs tehlike sinyali veriyor.
sayfaya yükleme derken, daha önce yüklemediğim için bilmiyorum. Yardımcı olursanız sevinirim.
igultekin2000 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-05-2017, 09:32   #4
assenucler
Altın Üye
 
Giriş: 19/08/2004
Şehir: Istanbul
Mesaj: 2,482
Excel Vers. ve Dili:
Office 2016 TR - Windows 10 TR x64
Varsayılan Dosya yükleme resmi

Açıklamalı resim çok küçük gözükünce, word dosyasıyla yolluyorum. Kolay gelsin.


http://s5.dosya.tc/server4/7szr5k/Si...Resmi.doc.html
Eklenmiş Resimler
Dosya Türü: jpg DosyaYükleResmi_2017-05-17_10h06_06.jpg (21.2 KB, 3 Görüntülenme)
__________________
Windows 10 Türkçe
Office 365 TR Ev Ekstra 2016

Bu mesaj en son " 17-05-2017 " tarihinde saat 09:53 itibariyle assenucler tarafından düzenlenmiştir....
assenucler Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-05-2017, 10:36   #5
igultekin2000
Altın Üye
 
Giriş: 05/09/2007
Şehir: istanbul
Mesaj: 440
Excel Vers. ve Dili:
ofis 2010
Varsayılan resim ekleme

resim ekleme
Eklenmiş Resimler
Dosya Türü: jpg RAPOR.jpg (145.1 KB, 11 Görüntülenme)
igultekin2000 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-05-2017, 22:08   #6
Ziynettin
Altın Üye
 
Giriş: 17/04/2008
Şehir: istanbul
Mesaj: 355
Excel Vers. ve Dili:
office2010
Varsayılan

Giriş ve çıkış tutarı aynı vade çek tarihlerinin de aynı olduğunda bu sonuç alınıyor,deneyiniz.


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub rapor()
Set s1 = Sheets("HAREKET")
Set s2 = Sheets("RAPOR")
son = s1.Range("B" & Rows.Count).End(3).Row
a = s1.Range("B2:H" & son).Value
On Error Resume Next
ReDim b(1 To UBound(a), 1 To UBound(a, 2))
For i = 1 To UBound(a)
    If a(i, 1) = "Giriş" Then
        say = say + 1
        b(say, 1) = a(i, 2)
        b(say, 3) = a(i, 3)
        b(say, 4) = a(i, 4)
        b(say, 6) = a(i, 7)
    End If
Next i

Set d = CreateObject("scripting.dictionary")
ReDim b1(1 To UBound(a), 1 To UBound(a, 2))
For i = 1 To UBound(a)
    krt = a(i, 3) & a(i, 5)
    If Not IsEmpty(krt) Then
        If Not d.exists(krt) Then
            s = s + 1
            d(krt) = s
            b1(s, 1) = a(i, 2)
            b1(s, 2) = a(i, 5)
            b1(s, 3) = a(i, 7)
        End If
    End If
Next i

tbl = Array(b)
ReDim c(1 To UBound(tbl(0)), 1 To UBound(tbl(0), 2))
ReDim c1(1 To UBound(tbl(0)), 1 To UBound(tbl(0), 2))
ReDim c2(1 To UBound(tbl(0)), 1 To UBound(tbl(0), 2))

For i = 1 To UBound(tbl(0))
    krt = tbl(0)(i, 3) & tbl(0)(i, 4)
    c(i, 1) = b1(d(krt), 1)
    c1(i, 1) = b1(d(krt), 2)
    c2(i, 1) = b1(d(krt), 3)
Next i

s2.Range("A2:G" & Rows.Count).ClearContents
s2.[A2].Resize(say, 7) = b
s2.[B2].Resize(say) = c
s2.[E2].Resize(say) = c1
s2.[G2].Resize(say) = c2
MsgBox "İşlem tamam...", vbInformation
End Sub
Ziynettin Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-05-2017, 23:04   #7
igultekin2000
Altın Üye
 
Giriş: 05/09/2007
Şehir: istanbul
Mesaj: 440
Excel Vers. ve Dili:
ofis 2010
Varsayılan makro

Alıntı:
Ziynettin tarafından gönderildi Mesajı Görüntüle
Giriş ve çıkış tutarı aynı vade çek tarihlerinin de aynı olduğunda bu sonuç alınıyor,deneyiniz.


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub rapor()
Set s1 = Sheets("HAREKET")
Set s2 = Sheets("RAPOR")
son = s1.Range("B" & Rows.Count).End(3).Row
a = s1.Range("B2:H" & son).Value
On Error Resume Next
ReDim b(1 To UBound(a), 1 To UBound(a, 2))
For i = 1 To UBound(a)
    If a(i, 1) = "Giriş" Then
        say = say + 1
        b(say, 1) = a(i, 2)
        b(say, 3) = a(i, 3)
        b(say, 4) = a(i, 4)
        b(say, 6) = a(i, 7)
    End If
Next i

Set d = CreateObject("scripting.dictionary")
ReDim b1(1 To UBound(a), 1 To UBound(a, 2))
For i = 1 To UBound(a)
    krt = a(i, 3) & a(i, 5)
    If Not IsEmpty(krt) Then
        If Not d.exists(krt) Then
            s = s + 1
            d(krt) = s
            b1(s, 1) = a(i, 2)
            b1(s, 2) = a(i, 5)
            b1(s, 3) = a(i, 7)
        End If
    End If
Next i

tbl = Array(b)
ReDim c(1 To UBound(tbl(0)), 1 To UBound(tbl(0), 2))
ReDim c1(1 To UBound(tbl(0)), 1 To UBound(tbl(0), 2))
ReDim c2(1 To UBound(tbl(0)), 1 To UBound(tbl(0), 2))

For i = 1 To UBound(tbl(0))
    krt = tbl(0)(i, 3) & tbl(0)(i, 4)
    c(i, 1) = b1(d(krt), 1)
    c1(i, 1) = b1(d(krt), 2)
    c2(i, 1) = b1(d(krt), 3)
Next i

s2.Range("A2:G" & Rows.Count).ClearContents
s2.[A2].Resize(say, 7) = b
s2.[B2].Resize(say) = c
s2.[E2].Resize(say) = c1
s2.[G2].Resize(say) = c2
MsgBox "İşlem tamam...", vbInformation
End Sub
elinize sağlık; biraz eksiklik olmuş.
girişlerde sorun yok. hepsini ayrı olarak listeliyor. çıkışlarda sorun oluyor. aynı vade ve tutardaki değerlerin ilk değerini tek çıkış olarak diğerlerine yazıyor. ayrıca girişi olmayan çıkışları da listelemiyor. eğer daha pratik olacaksa HAREKET SAYFASINDAKİ GİRİŞ ÇIKIŞ yazan sütuna her vade ve tutar için barkod gibi sıra numarasıda verebilirim. 0-001 gibi

Bu mesaj en son " 17-05-2017 " tarihinde saat 23:07 itibariyle igultekin2000 tarafından düzenlenmiştir.... Neden: ilave açıklama
igultekin2000 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 10:35


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Hurda - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Kekemelik- Edirne Su Arıtma- Çorlu Perde Yıkama- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Çorlu İnşaat- Marmara Ereğlisi Yurt- Çorlu Solucan Gübresi- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden