• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Fiyatları Karşılaştırma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
J

jagu

Yeni Üye
Katılım
27 Şub 2020
Mesajlar
19
En iyi yanıt
0
Puanları
1
Yaş
40
Konum
Tekirdağ
Ad Soyad
Fatih YILMAZ
Merhaba kullandığımız programdan yıl sonu alacak verecekleri excel olarak aldık 2019 + 2020 olarak. Yapmak istediğimiz "Borç/Alacak" ları karşılaştırıp fark varmı görmek istiyoruz.



Bazı müşteriler "borçları" kaydederken aşağıdaki gibi kaydetmişiz
2019 da "9,650,46" olarak gözüküyor ama 2020 de 9,000,46 ve 650,00 olarak gözüküyor ve hesapta sorun yok ama 2 ye bölündüğü için karşılaştırken ekstra formül gerektirebilir. Sayısı fazla değil bu işlem 2. öncelik diyebiliriz.




2019 YILI


128 00 021

AFŞİ.....

9.650,46



2020 YILI


128 00 021

AFŞİ.....

650,00



128 00 021

AFŞİ.....

9.000,46




İyi forumlar....
 

Ekli dosyalar

  • 2019 MİZAN 2020 CARİ KONTROL.xls
    101 KB · Görüntüleme: 8
L

leguminosea

Yeni Üye
Katılım
26 Ocak 2020
Mesajlar
90
En iyi yanıt
5
Puanları
18
Konum
Tokat
Ad Soyad
Erhan ÖZER
Office Vers.
2019 Pro Plus 64 TR
Ekteki dosyayı inceleyiniz.
 

Ekli dosyalar

  • 2019 MİZAN 2020 CARİ KONTROL.xlsx
    60.4 KB · Görüntüleme: 9
muygun

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
498
En iyi yanıt
28
Puanları
43
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Vers.
Office 2003
Merhaba;
Alternatif Makro çözüm ekte
Deneyin.
İyi çalışmalar.
 

Ekli dosyalar

  • jagu-2019 MİZAN 2020 CARİ KONTROL.rar
    23.8 KB · Görüntüleme: 10
J

jagu

Yeni Üye
Katılım
27 Şub 2020
Mesajlar
19
En iyi yanıt
0
Puanları
1
Yaş
40
Konum
Tekirdağ
Ad Soyad
Fatih YILMAZ
leguminosea' Alıntı:
Ekteki dosyayı inceleyiniz.
Genişletmek için tıkla ...

Merhaba ilgilendiğiniz için teşekkürler tam istediğim gibi olmuş ama bu dosya örnek olarak göndermiştim ortalama 800 satır var ben alt tarafa diğer satırları ekleyince işlem yaptıramadım yardımcı olurmusun
 
J

jagu

Yeni Üye
Katılım
27 Şub 2020
Mesajlar
19
En iyi yanıt
0
Puanları
1
Yaş
40
Konum
Tekirdağ
Ad Soyad
Fatih YILMAZ
muygun' Alıntı:
Merhaba;
Alternatif Makro çözüm ekte
Deneyin.
İyi çalışmalar.
Genişletmek için tıkla ...


Merhaba detaylı inceleyince bir sorun gördük 2019 listeliyor sonra 2020 listeliyor "mukayese" kısmında. 2 yıll arasındaki farkları sadece göstermesi gerekli
 
Vedat ÖZER

Vedat ÖZER

Logo Uzmanı
Geliştirici
Katılım
4 Haz 2018
Mesajlar
298
En iyi yanıt
4
Puanları
63
Yaş
34
Konum
Antalya / Merkez
Ad Soyad
Vedat ÖZER
Office Vers.
2019
Merhaba,

Sayın muygun hocamıza teşekkür ederim.

Alternatif olarak aşağıdaki kodu deneyebilir misiniz.

Kod: 
Sub ADOCOZUM()
    Range("A4:H65536").Clear
    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
     ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""
     SORGU = "SELECT * FROM ( "
     SORGU = SORGU & vbLf & "SELECT [Kodu],[Adı],"
     SORGU = SORGU & vbLf & "IIF([BORC2019] IS NULL,0,[BORC2019]) AS [BORC2019], "
     SORGU = SORGU & vbLf & "IIF([ALACAK2019]IS NULL,0,[ALACAK2019]) AS [ALACAK2019],"
     SORGU = SORGU & vbLf & "IIF([BORC2020]IS NULL,0,[BORC2020]) AS [BORC2020], "
     SORGU = SORGU & vbLf & "IIF([ALACAK2020]IS NULL ,0,[ALACAK2020]) AS [ALACAK2020]  FROM ( "
     SORGU = SORGU & vbLf & "SELECT [Kodu],[Adı],[BORC2019],[ALACAK2019] FROM ( "
     SORGU = SORGU & vbLf & "SELECT DISTINCT F1 AS [Kodu],F2 as [Adı] from [MUH 2019$A4:B65536] "
     SORGU = SORGU & vbLf & "UNION "
     SORGU = SORGU & vbLf & "SELECT DISTINCT f1,f2 from [CARİ2020$A4:B65536]"
     SORGU = SORGU & vbLf & ") AS [TMP] "
     SORGU = SORGU & vbLf & "LEFT JOIN ( "
     SORGU = SORGU & vbLf & "SELECT F1 AS [K],(SUM([F3])) AS [BORC2019],(SUM([F4])) AS [ALACAK2019]   "
     SORGU = SORGU & vbLf & "FROM [MUH 2019$A4:D65536] WHERE F1 IS NOT NULL GROUP BY F1  "
     SORGU = SORGU & vbLf & ") AS [YIL2019] ON [YIL2019].[K]=[TMP].[Kodu]) AS [TMP2] "
     SORGU = SORGU & vbLf & "LEFT JOIN ( "
     SORGU = SORGU & vbLf & "SELECT F1 AS [K],(SUM([F3])) AS [BORC2020],(SUM([F4])) AS [ALACAK2020]   "
     SORGU = SORGU & vbLf & "FROM [CARİ2020$A4:D65536] WHERE F1 IS NOT NULL GROUP BY F1  "
     SORGU = SORGU & vbLf & ") AS [YIL2020] ON [YIL2020].[K]=[TMP2].[Kodu] "
     SORGU = SORGU & vbLf & "WHERE [Kodu]<>'') AS [GG] WHERE  ([BORC2019]-[BORC2020])<>0 OR ([ALACAK2019]-[ALACAK2020]<>0)   "
     SORGU = SORGU & vbLf & "ORDER BY  [Kodu] "
    Set rs = con.Execute(SORGU)
    Range("A4").CopyFromRecordset rs
    Columns.AutoFit
End Sub
 
J

jagu

Yeni Üye
Katılım
27 Şub 2020
Mesajlar
19
En iyi yanıt
0
Puanları
1
Yaş
40
Konum
Tekirdağ
Ad Soyad
Fatih YILMAZ
Vedat ÖZER' Alıntı:
Merhaba,

Sayın muygun hocamıza teşekkür ederim.

Alternatif olarak aşağıdaki kodu deneyebilir misiniz.

Kod: 
Sub ADOCOZUM()
    Range("A4:H65536").Clear
    Set con = VBA.CreateObject("adodb.Connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
     ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""
     SORGU = "SELECT * FROM ( "
     SORGU = SORGU & vbLf & "SELECT [Kodu],[Adı],"
     SORGU = SORGU & vbLf & "IIF([BORC2019] IS NULL,0,[BORC2019]) AS [BORC2019], "
     SORGU = SORGU & vbLf & "IIF([ALACAK2019]IS NULL,0,[ALACAK2019]) AS [ALACAK2019],"
     SORGU = SORGU & vbLf & "IIF([BORC2020]IS NULL,0,[BORC2020]) AS [BORC2020], "
     SORGU = SORGU & vbLf & "IIF([ALACAK2020]IS NULL ,0,[ALACAK2020]) AS [ALACAK2020]  FROM ( "
     SORGU = SORGU & vbLf & "SELECT [Kodu],[Adı],[BORC2019],[ALACAK2019] FROM ( "
     SORGU = SORGU & vbLf & "SELECT DISTINCT F1 AS [Kodu],F2 as [Adı] from [MUH 2019$A4:B65536] "
     SORGU = SORGU & vbLf & "UNION "
     SORGU = SORGU & vbLf & "SELECT DISTINCT f1,f2 from [CARİ2020$A4:B65536]"
     SORGU = SORGU & vbLf & ") AS [TMP] "
     SORGU = SORGU & vbLf & "LEFT JOIN ( "
     SORGU = SORGU & vbLf & "SELECT F1 AS [K],(SUM([F3])) AS [BORC2019],(SUM([F4])) AS [ALACAK2019]   "
     SORGU = SORGU & vbLf & "FROM [MUH 2019$A4:D65536] WHERE F1 IS NOT NULL GROUP BY F1  "
     SORGU = SORGU & vbLf & ") AS [YIL2019] ON [YIL2019].[K]=[TMP].[Kodu]) AS [TMP2] "
     SORGU = SORGU & vbLf & "LEFT JOIN ( "
     SORGU = SORGU & vbLf & "SELECT F1 AS [K],(SUM([F3])) AS [BORC2020],(SUM([F4])) AS [ALACAK2020]   "
     SORGU = SORGU & vbLf & "FROM [CARİ2020$A4:D65536] WHERE F1 IS NOT NULL GROUP BY F1  "
     SORGU = SORGU & vbLf & ") AS [YIL2020] ON [YIL2020].[K]=[TMP2].[Kodu] "
     SORGU = SORGU & vbLf & "WHERE [Kodu]<>'') AS [GG] WHERE  ([BORC2019]-[BORC2020])<>0 OR ([ALACAK2019]-[ALACAK2020]<>0)   "
     SORGU = SORGU & vbLf & "ORDER BY  [Kodu] "
    Set rs = con.Execute(SORGU)
    Range("A4").CopyFromRecordset rs
    Columns.AutoFit
End Sub
Genişletmek için tıkla ...
Uğraştım ama beceremedim
 
L

leguminosea

Yeni Üye
Katılım
26 Ocak 2020
Mesajlar
90
En iyi yanıt
5
Puanları
18
Konum
Tokat
Ad Soyad
Erhan ÖZER
Office Vers.
2019 Pro Plus 64 TR
1000 satır için fonksiyonlarla düzenlendi.
 

Ekli dosyalar

  • 2019 MİZAN 2020 CARİ KONTROL.xlsx
    355.1 KB · Görüntüleme: 4
Vedat ÖZER

Vedat ÖZER

Logo Uzmanı
Geliştirici
Katılım
4 Haz 2018
Mesajlar
298
En iyi yanıt
4
Puanları
63
Yaş
34
Konum
Antalya / Merkez
Ad Soyad
Vedat ÖZER
Office Vers.
2019
Eki inceleyin.
 

Ekli dosyalar

  • KONTROL.xls
    154 KB · Görüntüleme: 5
J

jagu

Yeni Üye
Katılım
27 Şub 2020
Mesajlar
19
En iyi yanıt
0
Puanları
1
Yaş
40
Konum
Tekirdağ
Ad Soyad
Fatih YILMAZ
Vedat ÖZER' Alıntı:
Eki inceleyin.
Genişletmek için tıkla ...
Evet tam istediğimiz gibi olmuş tek sıkıntı "hesap no" 2 yıl arasında değişik olduğu için karışıyormuş yeni farkettim "hesap no" olarak değilde "hesap adı" olarak çekip karşılaştırırsak bu iş biter ve bu tür makroları nasıl yaptığınıza dahil video filanda cekerseniz müsait zamanınızda güzel olurdu.
 

Ekli dosyalar

  • KONTROL.xls
    166 KB · Görüntüleme: 2
L

leguminosea

Yeni Üye
Katılım
26 Ocak 2020
Mesajlar
90
En iyi yanıt
5
Puanları
18
Konum
Tokat
Ad Soyad
Erhan ÖZER
Office Vers.
2019 Pro Plus 64 TR
Bu sefer oldu sanırım.
 

Ekli dosyalar

  • CARİ.xlsx
    576.6 KB · Görüntüleme: 12
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt