Bilgisayar internete bağlı mı değil mi bunu anlamak için bir yöntem…. Dim strResult As String Sub internetkontrol() Dim objPing As Object Dim objStatus As Object Set objPing = GetObject(“winmgmts:{impersonationLevel=impersonate}”). _…
Kategori: <span>Excel VBA</span>
Function ParaCevir(Para, Optional PBirim = “Lira”, Optional KBirim = “Kuruş”) Dim ParaStr As String Dim Lira As String, Kurus As String If Not IsNumeric(Para) Then ParaCevir = “GİRİLEN DEĞER…
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…
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 =…
Belirli bir şarta göre textbox’dan çıkılamamasını sağlayan kod; Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(Me.TextBox2.Text) < 3 Then MsgBox “Firma Kodu 3 haneli olmak zorunda!” Cancel = True End…
Yorum Bırak