excel sayfasında butonlu tarih oluşturma...

[BedriA]

makro değil kod diyorsunuz.
kod nereye yazılıyor?
ya da sizin yazdığınız koda baka baka yazabilir miyim?
yani kod konusunda hiç bilgim yok da onun için soruyorum.
valla sizi de meşgul ettim kusura bakmayın.

Bu sorduğunuz sorulara çabucak cevap almak istemeniz anlaşılır ama inanın
bu işlere başlayan herkes bunları yavaş yavaş, araştırarak, sabırla öğreniyor.

Sorularınızın kısacık cevapları yok; ayrıca kodu nereye yazacağınız, kodu niçin kullanacağınıza göre değişir. Sayfaya, form alanına, modüle vs. kod yazılabilir.
Projeyi nasıl geliştirdiğinize ve ihtiyaca göre değişir.

Size bir örnek sundum.
İnceleyip mantığını anlamaya çalışacaksınız, başka yolu yok maalesef.
İlk açtığım konulara bakın, benim de başlarken hiç bilgimin olmadığını göreceksiniz. Diyeceğim o ki bu işe meraklıysanız sabırla emek vermelisiniz, araştırmalısınız, yığınca örnek var...

 

[BedriA]

makro değil kod diyorsunuz.
kod nereye yazılıyor?
ya da sizin yazdığınız koda baka baka yazabilir miyim?
yani kod konusunda hiç bilgim yok da onun için soruyorum.
valla sizi de meşgul ettim kusura bakmayın.

Makro değil demedim, makro kaydederek yapmadım, dedim.
Makro kaydetmek belli bir işlemi, belli bir projeye özel hale getirir.
Kodun içine girerek genelleştirmek mümkün tabi.

Başka yerde, sayfa ve hücre yordamlarını doğru girerek kullanabilirsiniz, anlamında makro kaydederek yapmadım, dedim.

 

[hydrogenman]

böyle bi şey buldum.
bu tarz bi çalışma mı yapmalıyım.
yani sizin yazdıklarınız böyle bi şey mi?

Private Sub TextBox13_Change()
Dim k As Range, adr As String, sonsat As Long, sonsat2 As Long
Dim s1 As Worksheet, s2 As Worksheet, sat As Long
ListBox1.RowSource = ""
Set s1 = Sheets("liste")
Set s2 = Sheets("SUZ")
s2.Range("A2:L" & Rows.Count).Clear
sonsat = s1.Cells(Rows.Count, 1).End(3).Row
sat = 2
Set k = s1.Range("B3:B" & sonsat).Find(TextBox13.Value & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adr = k.Address
Do
s2.Range("A" & sat & ":L" & sat).Value = s1.Range("A" & k.Row & ":L" & k.Row).Value
sat = sat + 1
Set k = s1.Range("B3:B" & sonsat).FindNext(k)
Loop While Not k Is Nothing And adr <> k.Address
End If
sonsat2 = s2.Cells(Rows.Count, "A").End(xlUp).Row
If sonsat2 > 1 Then ListBox1.RowSource = "SUZ!A2:L" & sonsat2
End Sub

 

[hydrogenman]

sizin örneği incelemek isterim ama kodları nasıl göreceğimi hangi menüden girildiğini bilmiyorum.

 

[BedriA]

İki özellik de eklendi.
Tarihleri aralarına nokta koyarak gün-ay-yıl şeklinde yazınız.

ALT + F11 yaparak VBA arayüzüne, yani kod bölümüne ulaşabilirsiniz.

Buradan indirebilirsiniz.

 

[hydrogenman]

hemen bakıyorum.

 

[hydrogenman]

çok teşekkür ediyorum.
önerilerinizi dikkate alacağım.
şimdi yazdıklarınızı ve uyguladığınız şeyleri çözmeye çalışacağım.
anlamaya çalışacağım.
sonra da denemeler yapacağım.

bana zaman ayırdığınız için teşekkür ederim.
allah sizden razı olsun.

 

[BedriA]

çok teşekkür ediyorum.
önerilerinizi dikkate alacağım.
şimdi yazdıklarınızı ve uyguladığınız şeyleri çözmeye çalışacağım.
anlamaya çalışacağım.
sonra da denemeler yapacağım.

bana zaman ayırdığınız için teşekkür ederim.
allah sizden razı olsun.

Rica ederim.
Allah sizden de razı olsun.
Kolay gelsin.