makro ile tarih ekleme

[polis-53]

araç takip

kusura bakma ihsan bey yoğun işimden dolayı siteye bakamadın dosya ektedir

 

[abaran]

teşekkür

Üstteki mesajıma yazım userform'a bir adet calendar ekledim. ( Userform'u açtığınızda çıkan Toolboz'a sağ tuş tıklayın additional controls - Takvim Denetimi 12-0'ın tik'ini işaretledim. Toolbox'ta Calendar nesnesi aktif oldu ordan userform'a çizdim. )
Sonra userform'un İnitalize olayına
Calendar1.value=now yazdım
Userform açıldığında o günkü ay listesini çıkartması için
sonra calendar1_click olayına
activecell.calendar1.value yazdım
Bu da aktif hücreye tıklanan tarihi yazması için
bu satırdan sonra
Unload me yazdım
Bu da tarih yazıldıktan sonra userform'un kapanması için.

üstad, çok teşekkür ederim. açıklayıcı bilgiler verdiğin için.
Ne kadar çok tarih ekleyemeyen varmış benim gibi.

 

[İhsan Tank]

kusura bakma ihsan bey yoğun işimden dolayı siteye bakamadın dosya ektedir

Syn : polis-53
Buraya bakın lütfen

 

[İhsan Tank]

üstad, çok teşekkür ederim. açıklayıcı bilgiler verdiğin için.
Ne kadar çok tarih ekleyemeyen varmış benim gibi.

Rica ederim
:keyif:

 

[kamilcan]

İhsan Bey, Benim sorumun cevabı yok mudur yoksa

 

[İhsan Tank]

İhsan Bey, Benim sorumun cevabı yok mudur yoksa

Kusura Bakmayın sorular bir birine karıştı sizin ki arada kaynadı
Sayfanın kod bölümündeki kodu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
If Intersect(Target, Range("B15")) Is Nothing Then Exit Sub
UserForm1.Show
ElseIf Target.Column = 6 Then
If Intersect(Target, Range("F15")) Is Nothing Then Exit Sub
UserForm1.Show
End If
End Sub

Bununla değiştirin.
Userform'un kod bölümündeki kodu

Option Explicit
Private Sub Calendar1_Click()
If ActiveCell.Column = 2 Then
ActiveCell = Calendar1.Value
Range("B17") = Calendar1.Value
Unload Me
ElseIf ActiveCell.Column = 6 Then
ActiveCell = Calendar1.Value
Range("F17") = Calendar1.Value
Unload Me
End If
End Sub
Private Sub UserForm_Initialize()
Calendar1.Value = Now
End Sub

Bununla değiştirin ve deneyin.

 

[kamilcan]

İhsan Bey;
Fark ettim zaten araya kaynadığının Hiç problem değil, zaman ayırıp yardımcı oluyorsunuz... Verdiğiniz kodlarla işlem yaptım, değiştirdim ama herhangi bir şey olmadı Önceden çalışan kodda çalışmadı

 

[İhsan Tank]

İhsan Bey;
Fark ettim zaten araya kaynadığının Hiç problem değil, zaman ayırıp yardımcı oluyorsunuz... Verdiğiniz kodlarla işlem yaptım, değiştirdim ama herhangi bir şey olmadı Önceden çalışan kodda çalışmadı

Merhaba
Sayın : kamilcan yukarıda yazdıklarımı okumadan işlem yapmışsınız. Ben size dedim ki sayfanın kod bölümüne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
If Intersect(Target, Range("B15")) Is Nothing Then Exit Sub
UserForm1.Show
ElseIf Target.Column = 6 Then
If Intersect(Target, Range("F15")) Is Nothing Then Exit Sub
UserForm1.Show
End If
End Sub

Bunu yazın siz userform için verdiğimi yazmışsınız lütfen biraz dikkat

 

[kamilcan]

Çok teşekkürler emeğine sağlııkk... Kusura bakma, dikkatsizlik, hakkını helal et lütfen...

 

[İhsan Tank]

Çok teşekkürler emeğine sağlııkk... Kusura bakma, dikkatsizlik, hakkını helal et lütfen...

Rica ederim
Helali Hoş Olsun
:keyif:

 

[kamilcan]

İhsan Bey;
Burda birtakım değişiklikler yaptım ancak açılır kutu yaptığımda bunlar çıktı alırken görünüyor, bunlar nasıl gizleyebilirim çıktı aşamasında?
Veya bir başka yöntem mi önerirsiniz?
Şimdiden teşekkürler

 

[İhsan Tank]

İhsan Bey;
Burda birtakım değişiklikler yaptım ancak açılır kutu yaptığımda bunlar çıktı alırken görünüyor, bunlar nasıl gizleyebilirim çıktı aşamasında?
Veya bir başka yöntem mi önerirsiniz?
Şimdiden teşekkürler

Merhaba
Konuları birbirine karıştırmayın. Bu seferlik cevap veriyorum bir daha olursa cevap alamaz beklersin ( benden )
tasarım Modunu açın Üzerinde sağ tuş tıklayın - Denetim Biçimlendir - Özellikler - Nesneyi Yazdır'ın tik'ini kaldırın.

 

[kamilcan]

İhsan Bey; Dediğinizi yapttım ancak bu defa hiçbir şey yazdıramıyorum. O hücre verisiyle birlikte yazdırılmıyor...
İsterseniz başlık açayım, sizi de zor durumda bırakmayayım ...

 

[İhsan Tank]

İhsan Bey; Dediğinizi yapttım ancak bu defa hiçbir şey yazdıramıyorum. O hücre verisiyle birlikte yazdırılmıyor...
İsterseniz başlık açayım, sizi de zor durumda bırakmayayım ...

Burada devam ettiğinize göre burada yanıt vereyim
Comboboxlara

Private Sub [COLOR="blue"]ComboBox1[/COLOR]_Change()
Range("[COLOR="Red"]A6[/COLOR]") = [COLOR="Blue"]ComboBox1[/COLOR]
End Sub

Bu şekilde kod atayın.
Kırmızı yer hücre adresi mavi yer ise combobox adı dır.

 

[kamilcan]

Günaydın, dediğiniz kodu girdim ve oldu ama orada 4 satırda aynı bilgiyi girmek istediğimde yanii; 4 kişinin göreve gitmesi durumunda döngü yazmak gerekiyor sanırım bunu nasıl kurgulamam gerektiğini bilemedim...
Yardımın ve ilgin için şimdiden teşekkürler

 

[kamilcan]

örnek dosya ektedir...