1. Tasarım Modunun Etkinleştirilmesi: Geliştirici sekmesinde "Tasarım Modu"nun açık olduğundan emin olun 2.
2. Açılır Kutu Seçimi: Tarih formatında görüntülemek istediğiniz açılır kutuya sağ tıklayın ve "Görünüm Kodu" seçeneğini seçin 2.
3. VBA Kodunun Değiştirilmesi: Microsoft Visual Basic for Applications penceresinde, Kod penceresindeki orijinal VBA kodunu aşağıdaki kodla değiştirin 2:

   Private Sub ComboBox1_Click()
   ActiveSheet.ComboBox1.Value = Format(ActiveSheet.ComboBox1.Value, "mm/dd/yyyy")
   End Sub
   Kopyala

   Kodda "ComboBox1" açılır kutunun adı, "mm/dd/yyyy" ise tarih formatıdır 2.
4. Pencerenin Kapatılması: Alt + Q tuşlarına basarak Microsoft Visual Basic for Applications penceresini kapatın ve Geliştirici sekmesi altındaki Tasarım Modu'nu kapatın 2.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
       Me.Range("A1").NumberFormat = "dd.mm.yyyy"
   End If
End Sub
Kopyala