SQL den EXCELe veri çağırma (ANIMASYON ANLATIM - Yeni)

[Rafet]

SQL den EXCEL e veri çağırmamın benim için amacı Kullandığım Program dan pratık bir biçimde verilere ulaşamıyor olmam. Hatta istediğim istatistiki bilgilere kümüle olarak ulaşamamam. Bunu kimimizin çok iyi bildiği programların yine EXCEL de kullanıcı fonksiyonlarıyle oluşturduğu programlarla ( LKS nin Navigatoru , Netsisin Excent i vb.) yapa biliyor olmamız. Bu kullanıcı fonksiyonları oluşturmayı pek denemedim ama bu fonksiyonlarda sonuçta SQL cümleleriyle oluşturuluyordu. Bunu anladığım zaman SQL öğrenmeye başladım. Ve çok kısa bir süre sonra basıt SQL deyimlerle SQL in kendisinden isteğim kümüle toplamları ala bildiğimi gördüm.

Aslında keşfettiğim şey programcıların ne yaptığını anlmaktı. Yanı programda o tıkladığımız sekmelerin ardındaki cümleler olduğunu anlamamdı. Daha önce hiç merak etmemiştim. Bu tıkların ardında kodlar olduğunu biliyordum ama bu şekilde kolay olabileceğini düşünmemiştim ki kolay da değilmiş aslında karışık şeyler istemeye başlayınca görüyorsunuz. Belkide SQL bunu kolaytırıyor onuda bilmiyorum. Bunu bir yazılımcıya sormak lazım.

Biraz SQL öğrendkten sonra bu aldığım verileri EXCEL de pivot tabloda yu kullanarak verileri değerlendirmeye başladım fakat devamlı SQL gidip cümleyi calıştırp alıp EXCEL e koymam gerekiyordu . Bu benim için sorundeğil bunu her seferinde yaparım . Ama SQL i bilmeyen hele EXCEL de bilmiyorsa mumkundeğil yapamazdı bunu . Evet Patronlardan bahsediyorum. Sonra SQL den EXCEL e veriyı aktarmanın olduğunu bir yerlerden okuduğumu hatırladım (excel.web.tr tabii) . Sonra buradakı arkadaşların konularını okudum. Yazı ile yazılanları yapmak gercekten zordu. Biraz zorlandım. Sonra yavaş yavaş taşlar yerine oturma başladı. EXCEL deki MICROSOFT QUERY i görünce Burası SQL dedim halbuki ne ki bu access gibi bır kaç yerdede aynı görüntüyü ala biliyor muşuz. Belkide SQL buraların görüntüsü buralar SQLin değil. Cahil olmak çok kötü. . Bilemiyorum her neyse. Neyseki o günden bu güne SQL imi biraz daha geliştirdim.

SQL den verileri cağırıp EXCEL ile bunları yoğurup fırına attıktan sonra tadına doyum olmaz bir şekilde verileri izlemek cok ama cok güzel oluyor.
Verileri bu şekilde özetleye bilmek için en önemli olan şey SQLi bilmekten çok isteğiniz verilerin tablolardan ne şekilde ala bilieceğinizi çözmek.
Tablolar bizim programda girdiğimiz verilerin ta kendisi. Mesala fatura işliyosunuz faturanın üstbilgilerini tablodaki bir satır olduğunu düşüne bilirsiniz. Sonra stok satırlarını düşünün onalrıda başka bir tablodaki bir satır. Bizim çözmemiz gereken bu satırları oluştururken pragramın bu satırı tanımak için bu satıra eklediği kod. Mesala Fatura üst bilgilerini kaydederken Siz sadece Carı Kodu, Fiş Numarası ve Bide ozel kod işliyosunuz. Ama program o satırı veri tabanında oluştururken Sızın girdiğiniz bilgilerin yanında bazı bilgileride ekliyor. Mesala Fatura genel toplamı Fatura Kdv Toplamı gibi. Birde Raporlamalarda kullanmak için kod atıyor. Mesala Alış Faturalarına 1 , Satış Faturalarına 2 , Alış İade Faturalarını 3 ...gibi. Ama bu kodları Programı satın alırken size söylemezler. Bunları tablolara bakıp kendimiz çözmemiz gerekiyor. Bunları çözdükten sonra yavaş yavaş zaten ne istiyosanız ala bilyorsunuz. Bu kodları çözüp verileri almayı Excel deki süz olayını kullanarak detayı ve ALTTOPLAm fonsiyonunu kullanarak toplamı bulanlar daha iyi anlaya bileceklerdir belki. Ben biraz o mantıkla çözdüm.

Benden size ilk giriş anahtarı. Daha bissuru oda var. Daha gökdelenin ilk kapısındasınız desem hiçde abartmış olmam.

Umarım yardımcı ola bilmişimdir.

Bu konuda bilgilenmemi sağlayan bana yol gösteren bütün arkadaşlara çok teşekkürler. "bezl" arkadaşın beni excel konusunda gelişmem için beni ateşlediğinide eklemek isterim . Çünkü o zamanlar hücredeki veriyi değiştirdikten sonra makro çalışıtıra bildiğimi bilmiyordum. O zaman iki tarih arası veri cağırmayı sormuştum. Oda bana kod göndermişti bir türlü anlamamıştım. Sonra onun yaptığı işin hüçrede değişiklik yapınca bu kodlar çalışsın demek istemiş. Çahıllık çok kötü bişey. . Aslında bu yalan tabi. Öğrenmemek çok kötü bişey. excel.web.tr bu ayıbı örtmem için bana yol gösterdi.

Kolay Gelsin

excel.web.tr ye tekrar tekrar çok teşekkürler.

İndirdiğiniz dosyalar .rar uzantılıdır. İçinden çıkartmadan .htm uzantılı dosyayı tıklayarak anımasyonları izleye bilirsiniz.

SQL den EXCELe veri çağırma 1 (EXCEL de SQL tablosunu çağırıp suzme)
SQL den EXCELe veri çağırma 2 (SQL de cümlemizi oluşturup EXCELde Bu cümlemizle elde ettiğimiz verilerimizin bağlı olduğu değişkenleri(Mesala İki Tarih arasın&#305 excel hüçresine bağlama.)

Anımasyon için T I K L A Y I N . (HemenPayla&#351

 

[karam]

SQL den EXCEL e veri çağırmamın benim için amacı Kullandığım Program dan pratık bir biçimde verilere ulaşamıyor olmam. Hatta istediğim istatistiki bilgilere kümüle olarak ulaşamamam. Bunu kimimizin çok iyi bildiği programların yine EXCEL de kullanıcı fonksiyonlarıyle oluşturduğu programlarla ( LKS nin Navigatoru , Netsisin Excent i vb.) yapa biliyor olmamız. Bu kullanıcı fonksiyonları oluşturmayı pek denemedim ama bu fonksiyonlarda sonuçta SQL cümleleriyle oluşturuluyordu. Bunu anladığım zaman SQL öğrenmeye başladım. Ve çok kısa bir süre sonra basıt SQL deyimlerle SQL in kendisinden isteğim kümüle toplamları ala bildiğimi gördüm.

Aslında keşfettiğim şey programcıların ne yaptığını anlmaktı. Yanı programda o tıkladığımız sekmelerin ardındaki cümleler olduğunu anlamamdı. Daha önce hiç merak etmemiştim. Bu tıkların ardında kodlar olduğunu biliyordum ama bu şekilde kolay olabileceğini düşünmemiştim ki kolay da değilmiş aslında karışık şeyler istemeye başlayınca görüyorsunuz. Belkide SQL bunu kolaytırıyor onuda bilmiyorum. Bunu bir yazılımcıya sormak lazım.

Biraz SQL öğrendkten sonra bu aldığım verileri EXCEL de pivot tabloda yu kullanarak verileri değerlendirmeye başladım fakat devamlı SQL gidip cümleyi calıştırp alıp EXCEL e koymam gerekiyordu . Bu benim için sorundeğil bunu her seferinde yaparım . Ama SQL i bilmeyen hele EXCEL de bilmiyorsa mumkundeğil yapamazdı bunu . Evet Patronlardan bahsediyorum. Sonra SQL den EXCEL e veriyı aktarmanın olduğunu bir yerlerden okuduğumu hatırladım (excel.web.tr tabii) . Sonra buradakı arkadaşların konularını okudum. Yazı ile yazılanları yapmak gercekten zordu. Biraz zorlandım. Sonra yavaş yavaş taşlar yerine oturma başladı. EXCEL deki MICROSOFT QUERY i görünce Burası SQL dedim halbuki ne ki bu access gibi bır kaç yerdede aynı görüntüyü ala biliyor muşuz. Belkide SQL buraların görüntüsü buralar SQLin değil. Cahil olmak çok kötü. . Bilemiyorum her neyse. Neyseki o günden bu güne SQL imi biraz daha geliştirdim.

SQL den verileri cağırıp EXCEL ile bunları yoğurup fırına attıktan sonra tadına doyum olmaz bir şekilde verileri izlemek cok ama cok güzel oluyor.
Verileri bu şekilde özetleye bilmek için en önemli olan şey SQLi bilmekten çok isteğiniz verilerin tablolardan ne şekilde ala bilieceğinizi çözmek.
Tablolar bizim programda girdiğimiz verilerin ta kendisi. Mesala fatura işliyosunuz faturanın üstbilgilerini tablodaki bir satır olduğunu düşüne bilirsiniz. Sonra stok satırlarını düşünün onalrıda başka bir tablodaki bir satır. Bizim çözmemiz gereken bu satırları oluştururken pragramın bu satırı tanımak için bu satıra eklediği kod. Mesala Fatura üst bilgilerini kaydederken Siz sadece Carı Kodu, Fiş Numarası ve Bide ozel kod işliyosunuz. Ama program o satırı veri tabanında oluştururken Sızın girdiğiniz bilgilerin yanında bazı bilgileride ekliyor. Mesala Fatura genel toplamı Fatura Kdv Toplamı gibi. Birde Raporlamalarda kullanmak için kod atıyor. Mesala Alış Faturalarına 1 , Satış Faturalarına 2 , Alış İade Faturalarını 3 ...gibi. Ama bu kodları Programı satın alırken size söylemezler. Bunları tablolara bakıp kendimiz çözmemiz gerekiyor. Bunları çözdükten sonra yavaş yavaş zaten ne istiyosanız ala bilyorsunuz. Bu kodları çözüp verileri almayı Excel deki süz olayını kullanarak detayı ve ALTTOPLAm fonsiyonunu kullanarak toplamı bulanlar daha iyi anlaya bileceklerdir belki. Ben biraz o mantıkla çözdüm.

Benden size ilk giriş anahtarı. Daha bissuru oda var. Daha gökdelenin ilk kapısındasınız desem hiçde abartmış olmam.

Umarım yardımcı ola bilmişimdir.

Bu konuda bilgilenmemi sağlayan bana yol gösteren bütün arkadaşlara çok teşekkürler. "bezl" arkadaşın beni excel konusunda gelişmem için beni ateşlediğinide eklemek isterim . Çünkü o zamanlar hücredeki veriyi değiştirdikten sonra makro çalışıtıra bildiğimi bilmiyordum. O zaman iki tarih arası veri cağırmayı sormuştum. Oda bana kod göndermişti bir türlü anlamamıştım. Sonra onun yaptığı işin hüçrede değişiklik yapınca bu kodlar çalışsın demek istemiş. Çahıllık çok kötü bişey. . Aslında bu yalan tabi. Öğrenmemek çok kötü bişey. excel.web.tr bu ayıbı örtmem için bana yol gösterdi.

Kolay Gelsin

excel.web.tr ye tekrar tekrar çok teşekkürler.

İndirdiğiniz dosyalar .rar uzantılıdır. İçinden çıkartmadan .htm uzantılı dosyayı tıklayarak anımasyonları izleye bilirsiniz.

SQL den EXCELe veri çağırma 1 (EXCEL de SQL tablosunu çağırıp suzme)
SQL den EXCELe veri çağırma 2 (SQL de cümlemizi oluşturup EXCELde Bu cümlemizle elde ettiğimiz verilerimizin bağlı olduğu değişkenleri(Mesala İki Tarih arasın&#305 excel hüçresine bağlama.)

Anımasyon için T I K L A Y I N . (HemenPayla&#351

animasyonu download edemiyoruzbir el atta bakalım belki bilmediğimiz bir bölüm olabilir tşk

 

[Rafet]

Hemenpaylaş iptal arkadaşlar.

Başka Bir upload sitesine yukleyip linki en kısa zamanda atacağım.

Saygılarımla.

Tıklayın (Turbo Upload'dan)

 

[harunduzgun]

tam aradığım gibi ama dosyayı indiremiyorum yardımcı olurmusunuz.

 

[hamitcan]

Arşimde bu dosyayı buldum. Dosya büyük olduğundan böldüm. Bütün parçaları aynı yere kopyalayıp .rar dosyasını çalıştırın.

 

[hamitcan]

Bu da diğer kısmı. Bu dosya diğerlerinden bağımsızdır.

 

[harunduzgun]

teşekkür ederim

 

[incesu571]

Hemenpaylaş iptal arkadaşlar.

Başka Bir upload sitesine yukleyip linki en kısa zamanda atacağım.

Saygılarımla.

Tıklayın (Turbo Upload'dan)

Üstadım bu turboupload dan dosya nasıl indiriliyor...


Saygılarımla....

 

[Rafet]

Yeni

Bunu yıllar önce indirmiştim.
Şu an elimde dahi yok.
Turbonettende silinmiş.
Nette bir kaç sitede daha görmiştim düzenlediğim bu animasyonu oradan bulsam bile tekrar koymak istemem.

Daha anlaşılır ve daha pratik bir video ve videolar hazırlamam gerekiyor.

En kısa sürede eklemek dileğiyle.

Muhabbetle.

 

[resolve45]

Bu da diğer kısmı. Bu dosya diğerlerinden bağımsızdır.

Hamit bey Ek'te yolladığım dosyada bazı değişiklikler yapabilirmiyiz yani bir kaç ekleme daha yapmak istiyorum bana bu konuda yardımcı olabilirmisiniz ?

Borç + Alacak Dökümüne Plasiyer kodu eklemek ve plasiyer kodu kısıt verielerek rapor alınabilmesi , Aynı şekilde Satıslar ve Stoklarda da plasiyer kodu kısıtı verilebilmesi gibi

Rapor İndir
http://www.dosyaupload.net/521Rapor.xls

 

[hamitcan]

Hamit bey Ek'te yolladığım dosyada bazı değişiklikler yapabilirmiyiz yani bir kaç ekleme daha yapmak istiyorum bana bu konuda yardımcı olabilirmisiniz ?

Borç + Alacak Dökümüne Plasiyer kodu eklemek ve plasiyer kodu kısıt verielerek rapor alınabilmesi , Aynı şekilde Satıslar ve Stoklarda da plasiyer kodu kısıtı verilebilmesi gibi

Rapor İndir
http://www.dosyaupload.net/521Rapor.xls

Benim Sql hakkında fazla bilgim yok, bu yüzden size yardımcı olamayacağım. Ayrıca, dosyanızın küçük bir örneğini foruma eklerseniz, belki daha çok kişi cevap verebilir. Bir de vba şifresi koymuşsunuz, bunu da kaldırın.

 

[elrondtaralom]

Arkadaşlar merhaba yardımcı olabilirseniz sevinirim makroyla aşağıdaki kodu olşturdum fakatbilgileri silip tekrar butona kaydetmiş olduğum makro ile çağırmaya çalıştığımda aşağıdaki kodlardan yıldızlar içerisine aldığım alanı debug olarak gösteriyor bu neden kaynaklanıyor olabilir şimdiden teşekürler.


Range("F6").Select
*******************************************************************************************************************************************
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DRIVER=SQL Server;SERVER=NTSERVER;UID=terminal;APP=2007 Microsoft Office system;WSID=MUHASEBE;Trusted_Connection=Yes" _
, Destination:=Range("$C$6")).QueryTable
******************************************************************************************************************************************
.CommandText = Array( _
"SELECT CARI_HESAPLAR_CHOOSE_10.msg_S_0088, CARI_HESAPLAR_CHOOSE_10.msg_S_1029, CARI_HESAPLAR_CHOOSE_10.msg_S_1028, CARI_HESAPLAR_CHOOSE_10.msg_S_1032, CARI_HESAPLAR_CHOOSE_10.msg_S_1033, CARI_HESAPLAR" _
, _
"_CHOOSE_10.msg_S_1034, CARI_HESAPLAR_CHOOSE_10.msg_S_0077" & Chr(13) & "" & Chr(10) & "FROM MikroDB_V12_DORT.dbo.CARI_HESAPLAR_CHOOSE_10 CARI_HESAPLAR_CHOOSE_10" _
)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tablo_DENEME_kaynağından_sorgula"
.Refresh BackgroundQuery:=False
End With
Range("G7").Select
Selection.End(xlDown).Select
Selection.Copy
Selection.End(xlUp).Select
Range("G2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[elrondtaralom]

Arkadaşlar merhaba yardımcı olabilirseniz sevinirim makroyla aşağıdaki kodu olşturdum fakatbilgileri silip tekrar butona kaydetmiş olduğum makro ile çağırmaya çalıştığımda aşağıdaki kodlardan yıldızlar içerisine aldığım alanı debug olarak gösteriyor bu neden kaynaklanıyor olabilir şimdiden teşekürler.


Range("F6").Select
*******************************************************************************************************************************************
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DRIVER=SQL Server;SERVER=NTSERVER;UID=terminal;APP=2007 Microsoft Office system;WSID=MUHASEBE;Trusted_Connection=Yes" _
, Destination:=Range("$C$6")).QueryTable
******************************************************************************************************************************************
.CommandText = Array( _
"SELECT CARI_HESAPLAR_CHOOSE_10.msg_S_0088, CARI_HESAPLAR_CHOOSE_10.msg_S_1029, CARI_HESAPLAR_CHOOSE_10.msg_S_1028, CARI_HESAPLAR_CHOOSE_10.msg_S_1032, CARI_HESAPLAR_CHOOSE_10.msg_S_1033, CARI_HESAPLAR" _
, _
"_CHOOSE_10.msg_S_1034, CARI_HESAPLAR_CHOOSE_10.msg_S_0077" & Chr(13) & "" & Chr(10) & "FROM MikroDB_V12_DORT.dbo.CARI_HESAPLAR_CHOOSE_10 CARI_HESAPLAR_CHOOSE_10" _
)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Tablo_DENEME_kaynağından_sorgula"
.Refresh BackgroundQuery:=False
End With
Range("G7").Select
Selection.End(xlDown).Select
Selection.Copy
Selection.End(xlUp).Select
Range("G2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Arkadaşlar yukarıda bahsettiğim sorunu çözdüm ama şimdi başka bişe daha sormak istiyorum mikro adında bir program kullanıyorum bu programda farklı raporlamalar alıyorum örneğin stokları ortalama giriş değeri ile derleme raporu bunu programın içerisinden nasıl çekebilirim ben yine araştırmaya devam edeceğim fakat bu konu ile ilgili beni bilgilendirebilirseniz sevinirim.

 

[elrondtaralom]

sql den veri tabanına bağlanmak

arkadaşlar tekrar merhabalar örnek bir dosya buldum fakat vba şifreli olduğu için detaylarına bakamadım eklediğim dosyadaki gibi bir raporlama oluşturmak istiyorum ayrıca parametre sayfasındaki gibi nasıl kullandıpım programıma bağlanabilirim yardımlarını önemle rica ediyorum.

 

[resolve45]

arkadaşlar tekrar merhabalar örnek bir dosya buldum fakat vba şifreli olduğu için detaylarına bakamadım eklediğim dosyadaki gibi bir raporlama oluşturmak istiyorum ayrıca parametre sayfasındaki gibi nasıl kullandıpım programıma bağlanabilirim yardımlarını önemle rica ediyorum.

BAKTINIZ RAPORUNUN İÇERİĞİNDE CARİ HESAP KODUNUN İÇERİĞİ AŞAĞIDAKİ GİBİDİR UMARIM İŞİNİZİ GÖRÜR


Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SqlText As String
With conn
.Provider = "sqloledb"
.CommandTimeout = 120
.ConnectionString = "Data Source=" & Sheet1.Cells(4, 5).Value & ";USER ID=" & Sheet1.Cells(8, 5).Value & ";PASSWORD=" & Sheet1.Cells(10, 5).Value & ";AUTO TRANSLATE=FALSE"
.Open
.DefaultDatabase = Sheet2.ComboBox1.Text
End With
SqlText = "SELECT A.CARI_KOD,B.CARI_ISIM,"
SqlText = SqlText + " BORC = SUM(CASE WHEN A.BORC>0 THEN A.BORC ELSE 0 END),"
SqlText = SqlText + " ALACAK = SUM(CASE WHEN A.ALACAK>0 THEN A.ALACAK ELSE 0 END),"
SqlText = SqlText + " BORCBAK = (CASE WHEN (SUM(CASE WHEN A.BORC>0 THEN A.BORC ELSE 0 END)-SUM(CASE WHEN A.ALACAK>0 THEN A.ALACAK ELSE 0 END))>0 THEN (SUM(CASE WHEN A.BORC>0 THEN A.BORC ELSE 0 END)-SUM(CASE WHEN A.ALACAK>0 THEN A.ALACAK ELSE 0 END)) ELSE 0 END),"
SqlText = SqlText + " ALACBAK = (CASE WHEN (SUM(CASE WHEN A.BORC>0 THEN A.BORC ELSE 0 END)-SUM(CASE WHEN A.ALACAK>0 THEN A.ALACAK ELSE 0 END))<0 THEN (SUM(CASE WHEN A.BORC>0 THEN A.BORC ELSE 0 END)-SUM(CASE WHEN A.ALACAK>0 THEN A.ALACAK ELSE 0 END))*-1 ELSE 0 END)"
SqlText = SqlText + " FROM TBLCAHAR A JOIN TBLCASABIT B ON (A.CARI_KOD=B.CARI_KOD)"
SqlText = SqlText + " WHERE TARIH BETWEEN '" + Format$(Sheet2.Cells(2, 2), "yyyy-mm-dd") + "' AND '" + Format$(Sheet2.Cells(3, 2), "yyyy-mm-dd") + "'"
SqlText = SqlText + " AND B.CARI_TIP IN ('" & Sheet2.Cells(4, 2).Value & "','" & Sheet2.Cells(4, 3).Value & "','" & Sheet2.Cells(4, 4).Value & "','" & Sheet2.Cells(4, 5).Value & "','" & Sheet2.Cells(4, 6).Value & "','" & Sheet2.Cells(4, 7).Value & "')"
SqlText = SqlText + " GROUP BY A.CARI_KOD,B.CARI_ISIM"
SqlText = SqlText + " ORDER BY A.CARI_KOD ASC "
rs.Open SqlText, conn, adOpenStatic, adLockReadOnly
Sheet2.Range("B7:G10000").ClearContents
Sheet2.Activate
i = 7
Do While Not rs.EOF
Sheet2.Cells(1, 1).Value = i + 1
Sheet2.Cells(i, 2).Value = rs(0)
Sheet2.Cells(i, 3).Value = rs(1)
Sheet2.Cells(i, 4).Value = rs(2)
Sheet2.Cells(i, 5).Value = rs(3)
Sheet2.Cells(i, 6).Value = rs(4)
Sheet2.Cells(i, 7).Value = rs(5)
rs.MoveNext
i = i + 1
Loop
MusToplam
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

End Sub

Public Sub MusToplam()
Range("B7:G10000").Select
Selection.Font.Bold = False
Range("B" & Sheet2.Cells(1, 1) & ":G" & Sheet2.Cells(1, 1) & "").Select
Selection.Font.Bold = True
Sheet2.Activate
Sheet2.Cells(Sheet2.Cells(1, 1), 3).Value = "Genel Toplam"
Range("D" & Sheet2.Cells(1, 1) & "" & Sheet2.Cells(1, 1) & "").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & Sheet2.Cells(1, 1) - 7 & "]C:R[-1]C)"
Range("E" & Sheet2.Cells(1, 1) & ":E" & Sheet2.Cells(1, 1) & "").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & Sheet2.Cells(1, 1) - 7 & "]C:R[-1]C)"
Range("F" & Sheet2.Cells(1, 1) & ":F" & Sheet2.Cells(1, 1) & "").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & Sheet2.Cells(1, 1) - 7 & "]C:R[-1]C)"
Range("G" & Sheet2.Cells(1, 1) & ":G" & Sheet2.Cells(1, 1) & "").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & Sheet2.Cells(1, 1) - 7 & "]C:R[-1]C)"


End Sub

Private Sub OptionButton1_Click()

End Sub

Private Sub OptBtnAlici_Click()

End Sub

Private Sub OptionButton3_Click()

End Sub

 

[elrondtaralom]

teşekür ederim inceleyip çözmeye çalışacağım birşey sormak istiyorum
excele eğer yapabilirsem kullandığım mikro adlı bir program var onun içerisinde
*Stokları ortalama giriş değeri ile değerleme raporu* adında bir menüden rapor çekiyorum bu raporun aynısını excelde uyarlayıp yapabilirmiyim şimdiden teşeküt ederim.

 

[resolve45]

Kullanmış oldugunuz micro adlı programın database baglantısını biliyorsanız tabiki uyarlanır excele

Benim size vermiş oldugum kodlar micro değilde ricmo olarak düşünün misal veriyorum yani mantık aynı sql de komut sabit zaten o yüzden uyarlanır

 

[elrondtaralom]

anlıyorum sizi database ine giriyorum fakat *Stokları ortalama giriş değeri ile değerleme raporu* isimli şeyi bulamıyorum orada tekrar anlatayım az önce biraz eksik anlatmışım yapmak istediğim şey tam olarak.

excelde raporlama oluşturmak istiyorum veri al bölümünden microsoft query özelliğini kullanarak bilgi çekebiliyorum fakat yapamadığım birkaç şey var
örneğin kullandığım mikro isimli programda "Stokları ortalama giriş değeri ile değerleme raporu" isminde bir rapor çekme şekli var fakat microsoft query ile tablolara bağlandığım zaman bunu orada göremiyorum bunu nasıl yapabilirim yani excelde bir buton oluşturup bunu makro ile destekleyerek ve tarih kısıtlaması vererek programı kullanmaya gerek kalmadan istediğim veriyi excele mikroda bu raporu alabiliyormuşum gibi nasıl çekebilirim şimdiden teşekür ederim.

kusura bakmayın belki yoruyorumdur sizi fakat eğer bunu sağlayabilirsem tabiki yardımlarınızla ay sonlarında 4-5 saatimi alan raporlamayı 1 kaç dakikaya indirgeyebilirim diye düşünüyorum.

cevaplarınızı bekliyorum çok teşekür ederim.

 

[resolve45]

Yapmış oldugunuz dosyayı eklerseniz yardımcı olmaya çalışırım

 

[elrondtaralom]

hocam henüz bir dosya yok anlatmak istediğim şeyde tam olarak programın ara yüzünde gördüğüm komutun resimde işaretlemiş olduğum komutun tabloda görünmemesidir. işaretli olan komutu veri tabanı içerisinde nasıl bulurum.