• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Textbox Tarihin Otomatik Olarak Girilmesi

  • Konbuyu başlatan Konbuyu başlatan ozgurpeh
  • Başlangıç tarihi Başlangıç tarihi

ozgurpeh

Altın Üye
Katılım
30 Eylül 2007
Mesajlar
383
Excel Vers. ve Dili
2010 Türkçe
Arkadaşlar Merhaba,

Textbox alanlarına otomatik olarak o günün tarihini girebilir miyiz bununla ilgili çalışmanız var mıdır ?

Bununla birlikte varklı bir textbox ada tarih seçme opsiyonu ekleyebilir miyiz ?

Selamlar..
 
Yapmak istediğinizi örnek dosya ile anlatırsanız daha net çözüm olur. Textbox1.text=CDate(date) şeklinde bu günün tarihini gırebilirsiniz.
 
Yapmak istediğinizi örnek dosya ile anlatırsanız daha net çözüm olur. Textbox1.text=CDate(date) şeklinde bu günün tarihini gırebilirsiniz.

ekteki userform içerisindeki textbox için bugünün tarihini otomatik olarak getirebileceğim bir kod için yardımınızı rica ediyorum
 

Ekli dosyalar

Kod:
Private Sub UserForm_Initialize()
TextBox1.Text = CDate(Date)
End Sub
 
Aşağıdaki kodları kullanabilirsiniz. Yalnız userformda başka bir öğe olması gerekli. Tab tuşu ile ya da mouse ile textboxdan çıkınca işlem gerçekleşir.
Kod:
If InStr(1, veri, ".") = 0 Then
    TextBox1.Text = Left(TextBox1.Text, 2) & "." & Mid(TextBox1.Text, 3, 2) & "." & Right(TextBox1.Text, 4)
Else
    TextBox1.Text = TextBox1.Text
End If
 
Alternatif olarak deneyiniz.
Kod:
Private Sub TextBox1_Change()
If Len(Me.TextBox1.Value) = 8 Then
    With Me.TextBox1
        gun = Left(.Value, 2)
        ay = Mid(.Value, 3, 2)
        sene = Mid(.Value, 5, 4)
        .Value = gun & "." & ay & "." & sene
    End With
End If
End Sub
 
Aşağıdaki kodları kullanabilirsiniz. Yalnız userformda başka bir öğe olması gerekli. Tab tuşu ile ya da mouse ile textboxdan çıkınca işlem gerçekleşir.
Kod:
If InStr(1, veri, ".") = 0 Then
    TextBox1.Text = Left(TextBox1.Text, 2) & "." & Mid(TextBox1.Text, 3, 2) & "." & Right(TextBox1.Text, 4)
Else
    TextBox1.Text = TextBox1.Text
End If



Mükemmel, buda oldu (BeforeUpdate seçtim)

son bir sorum daha oalcak textboxla ilgili ben küçük harfte yazsam büyükte yazsam yarısnı büyük yarsını küçükte yazsam tamamı otomatik oalrak nasıl büyük olur.
 
Textbox1.Text=UCase(Textbox1.text)
 
Rica ederim. Hayırlı geceler.
 
Alternatif olarak deneyiniz.
Kod:
Private Sub TextBox1_Change()
If Len(Me.TextBox1.Value) = 8 Then
    With Me.TextBox1
        gun = Left(.Value, 2)
        ay = Mid(.Value, 3, 2)
        sene = Mid(.Value, 5, 4)
        .Value = gun & "." & ay & "." & sene
    End With
End If
End Sub

teşekkürler
 
Deneyiniz.

Kod:
Private Sub TextBox1_Change()
    TextBox1.Value = UCase(Replace(Replace(TextBox1.Value, "i", "İ"), "ı", "I"))
End Sub
 
Aşağıdaki kodları kullanabilirsiniz. Yalnız userformda başka bir öğe olması gerekli. Tab tuşu ile ya da mouse ile textboxdan çıkınca işlem gerçekleşir.
Kod:
If InStr(1, veri, ".") = 0 Then
    TextBox1.Text = Left(TextBox1.Text, 2) & "." & Mid(TextBox1.Text, 3, 2) & "." & Right(TextBox1.Text, 4)
Else
    TextBox1.Text = TextBox1.Text
End If

Merhaba,

sadece ay ve yıl (Ekim-2017) yazdırmak için bu kodu nasıl düzenlemeliyiz ?
 
Geri
Üst