Kendime Notlar…

Tarih: 13/05/2022

VBA Belirli Bir Şarta Göre Kullanıcıyı Textbox’dan Çıkarmamak

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…

Devamını Oku

Excel VBA

TextboxConditionNotLeave

Yorum Bırak

Tarih: 13/05/2022

MSSQL Ülkeler Veritabanı

Ülkeler veritabanı; CREATE TABLE ulkeler ( ID int PRIMARY KEY NOT NULL, UlkeKod nvarchar(150) NOT NULL, Ulke nvarchar(150) NOT NULL, AlanKodu nvarchar(150) NOT NULL) INSERT INTO ulkeler (ID, UlkeKod, Ulke,…

Tarih: 13/05/2022

VBA ADODB.Recordset Nesnesini Deklarasyonla Open Etmek

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…

Tarih: 13/05/2022

VBA TextBox’a Göre Listbox İçinde Arama Yapmak (Searchable Listbox)

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),…

Tarih: 12/05/2022

VBA Textbox’a Karakter Sayı Sınırlaması Getirmek

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…

Excel VBA

TextboxCharacterLimitation

Yorum Bırak

Tarih: 12/05/2022

VBA Textbox’a Sadece String İfadeler Girmek

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 =…

Tarih: 11/05/2022

VBA ADODB.Recordset Nesnesinden Listbox’a Dizi Aracılığıyla Veri Doldurma (Çoklu Kolon)

Sub veridoldur() Me.ListBox1.Clear Dim cnn As ADODB.Connection Dim rs1 As ADODB.Recordset Dim rs2 As ADODB.Recordset Dim arr() As Variant Dim satir As Long Dim j As Integer Dim cnnstr…

Tarih: 11/05/2022

VBA ADODB.Recordset Nesnesinden Listbox’a Veri Doldurma

Private Sub UserForm_Activate() Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim cnnstr As String Set cnn = New ADODB.Connection Set rs = New ADODB.Recordset cnnstr = “Provider=SQLOLEDB;Data Source=……..;Initial…

Tarih: 25/04/2022

VBA Formül İçeren Hücreleri Bulma

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 =…

Tarih: 22/04/2022

VBA Tablolarda Filtre Kriteri Olarak Dizi Kullanma

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…

Kendime Notlar... Yazılar