ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[bekirizci]

Değerli Form Üyeleri Merhaba,

Excellde çok uğraştığım ama bir türlü yapmayı beceremediğim bir konu var hücreye 1 kere tıkladığımda tarih seçici çıkmasını ve tarih seçmek istiyorum. Bununla ilgili bir kaç örmek buldum ama VBA konusunda çok az bilgim olduğu için kendi sayfama uyarlayamadım. Bu konuda bana yardımcı olmanızı rica ediyorum.Dosyamı ekliyorum.

Şimdiden Çok Teşekkür ediyorum.

Emeğinize sağlık...

[bekirizci]

Değerli Forum Üyeleri Merhaba,

Excellde çok uğraştığım ama bir türlü yapmayı beceremediğim bir konu var hücreye 1 kere tıkladığımda tarih seçici çıkmasını ve tarih seçmek istiyorum. Bununla ilgili bir kaç örmek buldum ama VBA konusunda çok az bilgim olduğu için kendi sayfama uyarlayamadım. Bu konuda bana yardımcı olmanızı rica ediyorum.Dosyamı ekliyorum.

Şimdiden Çok Teşekkür ediyorum.

Emeğinize sağlık...

[Ozan İLGÜN]

Merhaba.
Enes beyin yaptığı bir çalışma var.
viewtopic.php?f=7&t=28406&p=213816&hilit=datepicker#p213819
Bu adreste bir örnek var. Örneğe bakıp kendinize uyarlayabilirsiniz. Yahut dosyanızı paylaşın.

[cerci07]

Merhaba,

C12:C14 hücrelerine çift tıkladığınız zaman açılan takvimden tarih seçebilirsiniz.

[bekirizci]

Hocam çok teşekkür ediyorum.

Hücreye bir kere tıklanınca açılması mümkün mü?

[ahmetilhan282]

Hocam çok teşekkür ediyorum.

Hücreye bir kere tıklanınca açılması mümkün mü?

Yeni Bit Eşlem Resmi.jpg

izin formu sayfasına sağ tıklayın. kod görüntüle deyin. açılan sayfadaki kodlar yerine aşağıdaki kodları deneyin:

Kod: Tümünü seç

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.Intersect(Target, Range("C12:C14")) Is Nothing Then
        Exit Sub
    Else
        If Target.Address <> Range("C1").Address Then
            With takvim
                .StartUpPosition = 0
                .Left = Target.Left + Target.Width + Application.ActiveWindow.ActivePane.PointsToScreenPixelsX(0)
                .Top = Target.Top + Application.ActiveWindow.ActivePane.PointsToScreenPixelsY(0) - 35
                .Show
            End With
            If tarih <> Empty Then
                Target = Format(tarih, "dd.mm.yyyy")
            End If
        End If
    End If
End Sub