sayın korhan ayhan ilginiz için tşk ederim ama
benim yüklediğim dosyada formatta yok attıklarınızda
benim attığım formatta olması gerekli
yine de teşekkür ederim ilginizden dolayı
mrb arkadaşlar herkeze kolay gelsin
excelde takvim uygulamasına ihtiyacım var internetten bulduğum örneklerden yardım alarak kendim bir tane yaptım
ama
1-)özellikle agustos ayını seçince göstermiyor. diğer aylarda da bazen yapıyor. hata veriyor
2-) bazı aylarda 32 gün gösteriyor.
sanırım bazı...
...rağmen belirttiğim hücrede çalışmadı (w1 değişken olabilir) ben yapamadım sayfa adından mı bilemedim.
Son olarak kontrol edebilir misiniz bide mümkünse söylediğiniz kontak bantlar kodu ile takvim kodunu birleştirmek başka 2 dosya daha var orada kullanmak için.
İlginiz için ayrıca teşekkür...
...söylediklerinizi yaptım tek olarak çalışıyor. ama hücreyi değiştirmeme rağmen belirttiğim hücrede çalışmadı (w1 değişken olabilir) ben yapamadım sanırım son olarak kontrol edebilir misiniz bide mümkünse söylediğiniz kontak bantlar kodu ile takvim kodunu birleştirmek...
Hakkınızı helal edin...
...aşağıdaki kısım hariç tamamen silin.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$17" Then Exit Sub
Takvim.Show
End Sub
VBA penceresindeki Modul1 ve Module2 ye ihtiyacınız yok. İki modüle de Sağ tıklayıp Remove deyin.
Sanırım başka da silinecek bir...
Merhabalar,
Aşağıda bağlantı dosyasında bulunan kodu internetten buldum. Kodun bütün koşullardan bağlantısı kesilerek sadece takvim kodu kalsın, takvim kodunun w1 hücresine atamak istiyorum ( hücre kodu değişebilir.)
yardımcı olabilirseniz sevinirim...
.
Düzenlediğim dosya hakkında açıklama yapayım.
Ay ve yılı girince D2:AH2 arasında aylık takvim düzenleniyor.
Ayların gün uzunluğu ne olursa olsun, 30 gün olarak hesaplıyor.
Şimdi, buna göre bulduğum SSK günü doğru mu? Bunda anlaşalım.
Bulunan bu sayıdan. X, HT dışında ne bulursa düşecek...
Merhaba Formdaş arkadaşlar,
Ekteki alıntı olan çalışmada UserForm üzerindeki birden fazla TextBoxlara otomatik açılır takvim özelliği eklemek istiyorum.
TextBox3' uygulanmış olan bu özelliği, TextBox4'e veya daha fazla nesneye uygulamak için mevcut kodu nasıl revize etmeliyim.
Saygılarımla,
Merhaba,
Google takvim var biliyorsunuz. Şimdi burada biz atıyorum 1günlük randevuların çıktısını alacagız. Ama a4'ün tamamını sıgıyor.
Biz böyle küçük not defteri kağıdına sığdırarak bir çıktı almak istiyoruz.
Bunu excel makro ile birşey yaparak çözülebilir mi?
Merhaba, ekteki örnek takvim tablosunda hedef sekmesinde artı değerlerin takvimin ilgili gününde otomatik yeşil, eksi değerde olanların ise kırmızı renkte görünmesini sağlayabilir miyiz?
...ve ilgili tarihi D17 hücresine yansıtmalı.
- X iş günü ileri gitmeli: Yukarıdaki koşulun, bugünden itibaren ileriye yönelik versiyonu.
- X takvim günü geri gitmeli: Yukarıdakilerin benzeri ancak bu sefer hafta sonlarını da hesaba dahil ederek geçmiş tarihi bulmalı.
- X takvim günü ileri...
...derdim daha var çözemediğim.
Yukarıdaki görselde A1:C22 'de bir tablom var.
Bu tabloda projelerin ödeme tarihleri yazıyor.
Ben bunu F1:N32 takvim tablosuna yazdırmak istiyorum.
VLOOKUP ile denediğim zaman 1 tarihe denk gelen 1'den fazla proje olabileceği için sadece ilk yakaladığını...
Ne zaman başım sıkışsa yardımcı olan hocalarım hepinize merhaba.
Bir konuda yine takıldım ve yine yardımınıza ihtiyacım var.
Yardım istediğim konu özetle şöyle.
A1:B12 arasında bu şekilde bir tablom var.
F7:N7 arasında da böyle bir çizelge.
Yapmak istediğim şey, çizelgenin altına...
Yazı rengini otomatiğe ayarlayınca (Bugün + 6 gün koşuluna göre) 1 haftalık veri, kırmızıya döndü ama takvim sayfasındaki J4'te aktif olan tarih (ve ona ait veriler), program sayfasındaki tabloda siyah görünüyor. Bu noktada J4'ün işaret ettiği tarihlerin de kırmızıya dönüşmesi gerekmiyor muydu...
Şimdiye kadar, bu uygulamada sadece takvim sayfasına kanalize olduğum için program sayfasını pek önemsememiştim. Bugün program sayfasında dikkatimi çeken bir nüans için herhangi bir değişiklik olacak mı olmayacak mı görebileyim diye tarihin değişmesini bekledim.
Takvim sayfasındaki J4 ve L4...
...ve Haftam isimli iki değişken oluşturdum. Bunları inceleyebilirsiniz.
Sub WeeklyTask2()
Dim Veri, Say As Integer, i As Long
Worksheets("TAKVİM").Range("L5:M" & Rows.Count) = ""
son = WorksheetFunction.CountA(Worksheets("PROGRAMLAR").Range("B:B")) + 1
If son < 3 Then Exit Sub...
...için, Module 1 içindeki DailyTask kodlarını aşağıdakiyle değiştirin
Sub DailyTask()
Dim Veri, Say As Integer, i As Long
Worksheets("TAKVİM").Range("J5:J" & Rows.Count) = ""
son = WorksheetFunction.CountA(Worksheets("PROGRAMLAR").Range("B:B")) + 1
If son < 3 Then Exit Sub
ReDim...
1. Takvim sayfanızda sorularınızı yazdığınız satırları silin.
Benim gönderdiğim dosyada zaten ben silmiştim ve hata vermiyor bende.
2. Module 1 içindeki aşağıdaki kodu değiştirin
Sub WeeklyTask()
Dim Veri, Say As Integer, i As Long
Worksheets("TAKVİM").Range("L5:M" & Rows.Count) = ""...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.