ADODB.Recordset nesnelerini Open yaparken kaynak sorgularında bazı durumlarda deklarasyonlar yazmamız gerekebilir. Bu durumda Recordset nesnelerinin doğru bir şekilde Open olabilmesi için SQL sorgu cümlesinin başına muhakkak aşağıda ki ifadeyi eklemeyi…
Kategori: <span>Excel VBA</span>
Private Sub TextBox1_Change() Dim strText As String Dim i As Long Me.TextBox1.Text = UCase(Me.TextBox1.Text) strText = Me.TextBox1.Text With Me.ListBox1 For i = 0 To .ListCount – 1 If UCase(Left$(.List(i),…
Textbox’a karakter sayı sınırlaması getirmek; Private Sub TextBox2_Change() If Len(Me.TextBox2.Text) > 3 Then Me.TextBox2.Text = Left(Me.TextBox2.Text, 3) End If End Sub Kolay gele…
Textbox’a sadece string ifadeler girmek; Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) Then KeyAscii =…
Aşağıda ki kodu inceleyin. Formül içeren yada içermeyen tüm hücreleri kolaylıkla bulacağınız bir kod. Sub FORMULTARAMA() Dim ws As Worksheet Dim son As Integer Set ws = Sheets(“Sayfa1”) son =…
Tablolarda filtre kriteri olarak dizi kullanma…… Sub LISTELE() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim son As Integer Dim dizi() As String Set ws1 = Sheets(“Sayfa1”) Set ws2…
Bir projemde dizinin içinde ki değerlerden benzersiz olanları elde etmem gerekiyordu. Aşağıda kodlarını paylaşacağım çözüm işime bir hayli yaramıştı. İçinde tüm değerlerin olduğu diziyi başka bir dizi içine benzersiz değerler…
Aşağıda örnek kodlar var. İncelenirse anlaşılacak mahiyette. Sub DEVIRLER() Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim strConnectionString As String Dim sorgu As String Dim str As String Dim…
Yorum Bırak