Formunuzda kullandığınız TextBox’ı up ve down tuşları ile kontrol etmek isteyebilirsiniz. Mesela TextBox’da ki sayıları yukarı ok tuşuna basarak artırıp aşağı ok tuşuna basarak düşürmek isteyebilirsiniz. Bu durum da aşağıda…
Kategori: <span>Excel VBA</span>
Kullandığınız bazı textbox lara sadece nümerik değerlerin girilmesini arzu edebilirsiniz. Alfabetik ve noktalama işaretlerinin girişine engel olmak isteyebilirsiniz. Bunun çok farklı bir yolunu size göstereceğim. Aşağıda ki kodlara bir bakın…
Projelerinizde birden fazla kontrol nesneleri vardır. Bazen bu nesnelerin tamamı üzerinde aynı işlem yapmanız gerekebilir. Bu durumda her bir kontrol nesnesi için ayrı ayrı kod yazmaktansa bir döngü ile istediğiniz…
Aşağıda ki kodu ben oldukça sık kullanırım. Sub sonsatir() Dim ws As Worksheet Dim son As Integer Set ws = Worksheets(“Sayfa1”) son = ws.Cells(Rows.Count, 1).End(xlUp).Row End Sub Kolay gele…
Aşağıda örnek kodlar var. İncelenirse anlaşılacak mahiyette. Sub sqlaktarim() Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim strConnectionString As String Dim strInsert As String Dim ws As Worksheet Dim…
Bazı projelerde windows kullanıcı adına ihtiyacımız olabilir. Bunu elde etmek için basit bir kod var. str=Environ(“Username”) str’yi string bir değişken olarak düşünün. Kolay gele…
Kodlar incelenince ne olduğu anlaşılıyor. Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim strComputer As String Dim objWMIService As Object Dim colItems As Object Dim objItem As Object Dim myMACAddress As String…
Diyelim ki aşağıda resimde gördüğünüz gibi bir userformunuz var ve siz sadece “KAPAT” butonuna basarak formun kapanmasını istiyorsunuz. formun sağ üst köşesinde ki “X” işareti ile kapanmasını engellemeniz gerekmektedir. Aşağıda…
Bazı verilerimizi bir başka Excel sayfasından almış olabiliriz. Bu durumda alınan veriyi refresh (yenileme) etmek için aşağıda ki kodu kullanmak çok pratik çözümler sunabilir. Sub yenile() ActiveWorkbook.Connections(“Connection Name”).OLEDBConnection.Refresh End Sub…
Yorum Bırak