C# Birlikte Öğrenelim

  learnexcelmacro.com connectionstrings.com

  Private Sub CommandButton2_Click() Dim baglan As New Connection   'veri tabanına bağlanma Dim rs As New Recordset        'veri tabanına yeni kayıt 'baglan.Open "Provider=Microsoft.Ace.Oledb.12.0 veri tabanına bağlanma referans kod 'data source=C:\Users\SAVAS\Desktop\master.accdb;" işlenecek veri taban bağlantısı baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=C:\Users\SAVAS\Desktop\master.accdb;" 'rs.Open "select * from alissatis where kimlik", baglan, adOpenKeyset, adLockPessimistic alış satış formumuzda yapılan kayıt işemini id ye göre kayıt yapma rs.Open "select * from alissatis where kimlik", baglan, adOpenKeyset, adLockPessimistic rs.AddNew 'veri tabanı yeni kayıt ekleme komutu If Me.ComboBox1.Text <> "" Then rs.Fields(1) = Me.ComboBox1.Text 'formumuzda ComboBox de bulunan text ifadeleri boş, değilse If Me.ComboBox2.Text <> "" Then rs.Fields(2) = Me.ComboBox2.Text '...

  Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Dim baglan As New Connection   'veri tabanına bağlanma Dim rs As New Recordset        'veri tabanına yeni kayıt 'baglan.Open "Provider=Microsoft.Ace.Oledb.12.0 veri tabanına bağlanma referans kod 'data source=C:\Users\SAVAS\Desktop\master.accdb;" işlenecek veri taban bağlantısı baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=C:\Users\SAVAS\Desktop\master.accdb;" 'rs.Open "select firmaadi from firmalar where firmaadi LIKE '" & ComboBox1.Text & "%'",  veri tabanında yer alan kolon isimleri aynen alduğu gibi yazılmalı 'rs.Open "select firmaadi from firmalar where firmaadi LIKE '" & ComboBox1.Text & "%'", bu alanda combobox1 alanı içine veri tabanında yer alan metinleri yüzdelik % sayesinde metinleri girmeye başladığım anda ifadeleri içeren tüm kayıtları getirmeye başlar 'rs.Open "se...

 kaynak: learnexcelmacro.com kaynak:  connectionstrings.com Private Sub CommandButton13_Click() Dim baglan As New Connection   'veri tabanına bağlanma Dim rs As New Recordset        'veri tabanına yeni kayıt      'baglan.Open "Provider=Microsoft.Ace.Oledb.12.0 veri tabanına bağlanma referans kod      'data source=C:\Users\SAVAS\Desktop\master.accdb;" işlenecek veri taban bağlantısı baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=C:\Users\SAVAS\Desktop\master.accdb;"           'rs.Open "select * from alissatis", verinin çekileceği tablo adı ( alissatis ) rs.Open "select * from alissatis", baglan, adOpenKeyset, adLockPessimistic With anaform.ListBox1            'çekilen verilerin formda nereye işleneceği .ColumnCount = 8                    'tabloda ki sütun sayısı .Column = rs.GetRows  ...

  Sub düsey_ara_sayfa() Dim aranan As Range Dim alan As Range Set aranan = Range("f4") Set alan = Sheet1.Range("A1:D19") sonuc = Excel.WorksheetFunction.VLookup(aranan, alan, 3, 0) Range("H4") = sonuc End Sub ======================================================================== Sub coketoplaa_sumifs() 'ÇokEtopla Dim aranan As Range Dim alan As Range Dim kriter As Range Set toplanan = Sheet1.Range("C:C") 'Satış Tutarı Set kriter = Sheet1.Range("D:D") 'Yıl Set aranan = Range("F8") 'Aranan Değer sonuc = Excel.WorksheetFunction.sumifs(toplanan, kriter, aranan) Range("H8") = sonuc End Sub

  Sub Oval3_Tıkla() Dim aranan As Range Dim alan As Range Set aranan = Range("F3") Set alan = Range("A1:D19") 'sonuc = Excel.WorksheetFunction.VLookup(aranan, alan, 3, 0) sonuc = Excel.WorksheetFunction.VLookup(aranan, alan, 3, 0) 'Range("H3") = sonuc Range("H4") = sonuc End Sub ========================================================================= Sub coketopla() Dim satis_tutari As Range Dim yil As Range Dim kriter As Range Set satis_tutari = Range("C:C") Set yil = Range("D:D") Set kriter = Range("F7") sonuc = Excel.WorksheetFunction.sumifs(satis_tutari, yil, kriter) Range("H8") = sonuc End Sub

 Excel MsgBox kutu örnekleri: Sub mesaj_kutuları() 'MsgBox "Bu işlemi yapamazsınız.", vbCritical 'MsgBox "Bu işlemi yapamazsınız.", vbInformation 'MsgBox "Bu işlemi yapamazsınız.", vbAbortRetryIgnore 'MsgBox "Bu işlemi yapamazsınız.", vbYesNo 'cevap = MsgBox("Bu işlemi gerçekten yapmak istiyor musunuz?", vbYesNo + vbCritical) 'If cevap = vbYes Then 'MsgBox "İşlem yapıldı" 'Else 'MsgBox "işlem yapılmadı." 'End If 'MsgBox "mesajım", vbCritical, "başlık" 'girdi = InputBox("Bir sayı girin", "Kare Al") 'MsgBox girdi * girdi End Sub