Method Go to windows ‘Start’ > type cmd RMB on ‘cmd.exe’ > select ‘Run as administrator’ In windows explorer Navigate to , (where sldworks.exe is contained) Drag and drop ‘sldworks.exe’…
Kendime Notlar... Yazılar
Bir projemde, satış yapılan firmaların son 9 aylık aldığı ürünlerin içerisinde fiyatı en yüksek olan ürünleri listelemem gerekti. Row_Number ve Partition By kullanımına güzel bir örnek oldu. Sorgu Group By…
TCMB’den kurların tamamını almaktan ziyade sadece dolar ve euro kurunu almak isteyebiliriz. Sub kurlarigetir() Dim xml As Object Dim link As String Dim tablo As Object Dim ws As Worksheet…
Son 3 günün verilerini getirme; where Tarih >= DATEADD(DAY, -3, GETDATE()) Son 3 ayın verilerini getirme; where Tarih >= DATEADD(MONTH, -3, GETDATE()) Son 3 yılın verilerini getirme; where Tarih >=…
ComboBox içine veriyi, AddItem ile yada herhangi bir db den veri çekerek doldurduğumuz durumlarda, kullanıcı tarafından veri yazılmamasını istersek şayet; Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)…
Private Sub Lstcap_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim a As Integer For i = 0 To Me.Lstcap.ListCount -…
Private Sub Lstcap_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim a As Integer For i = 0 To Me.Lstcap.ListCount -…
Private Sub MltSlctVeriAl() Dim tmpArray() As Variant Dim selCount As Integer selCount = -1 For i = 0 To Me.ListBox1.ListCount – 1 If Me.ListBox1.Selected(i) = True Then selCount =…
Yorum Bırak