1 sayfadan 1. sayfa

Hücreye Tarih Seçici ekleme

İletiTarih: 09 Tem 2019 10:36
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...

Hücreye Tarih Seçici ekleme

İletiTarih: 09 Tem 2019 11:07
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...

Cevap: Hücreye Tarih Seçici ekleme

İletiTarih: 09 Tem 2019 12:33
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.

Cevap: Hücreye Tarih Seçici ekleme

İletiTarih: 09 Tem 2019 14:59
cerci07
Merhaba,

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

Cevap: Hücreye Tarih Seçici ekleme

İletiTarih: 09 Tem 2019 15:15
bekirizci
Hocam çok teşekkür ediyorum.

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

Cevap: Cevap: Hücreye Tarih Seçici ekleme

İletiTarih: 09 Tem 2019 23:09
ahmetilhan282
bekirizci yazdı: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