Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Beyin Fırtınası
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Beyin Fırtınası Bu başlıkta, ilginç olduğunu düşündüğünüz sorularınızı, bir problem şeklinde sorabilir, alternatif olduğunu düşündüğünüz çözümlerinizi paylaşabilirsiniz. (Bu başlıkta yeni konu açılması onaya bağlıdır.)
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 15-04-2007, 19:05   #1
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,646
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan Yıla göre günleri listelemek ve renklendirmek

Selamlar,

Ekteki dosyada sayfada sabit bir hücrede oluşturulacak açılır listeden seçilen yıla göre o yıla ait günleri listelemek için nasıl bir yöntem kullanmalıyız. Listelenen tarihlerden haftasonuna denk gelen günleri nasıl farklı bir renkle belirginleştirebiliriz. Ayrıca diğer günleride kendi gün grubuna göre nasıl renklendirebiliriz.

Soruyu çözecek arkadaşlarımızın formül ve makro kodlarının açıklamalarını yazarak yorumda bulunmaları yeni başlayan arkadaşlarımız için faydalı olacaktır.

Not: Başlangıç aşamasında olan arkadaşlarımızda lütfen yorumlarını belirtsinler.

Kolay gelsin.
Eklenmiş Dosyalar
Dosya Türü: rar GUNUN SORUSU_2.rar (2.2 KB, 326 Görüntülenme)
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI

Bu mesaj en son " 27-11-2008 " tarihinde saat 21:00 itibariyle Levent Menteşoğlu tarafından düzenlenmiştir.... Neden: dosyayı tekrar ekleme
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-04-2007, 09:58   #2
İdris SERDAR
Moderatör
 
İdris SERDAR kullanıcısının avatarı
 
Giriş: 21/10/2005
Şehir: Ankara
Mesaj: 14,424
Excel Vers. ve Dili:
Excel, 2016 - İngilizce
Varsayılan

Dosya ekte.

Açıklamalar dosyanın içinde yapılmıştır.


.
Eklenmiş Dosyalar
Dosya Türü: zip GÜNÜN SORUSU_2.zip (13.1 KB, 523 Görüntülenme)
__________________
Çalışmalarımı görmek için:

http://www.excelgurusu.com/

İdris SERDAR

Bu mesaj en son " 16-04-2007 " tarihinde saat 10:56 itibariyle İdris SERDAR tarafından düzenlenmiştir....
İdris SERDAR Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-04-2007, 11:32   #3
zafer
Super Moderator
 
zafer kullanıcısının avatarı
 
Giriş: 08/03/2005
Mesaj: 3,501
Excel Vers. ve Dili:
OFFICE 2003 TÜRKÇE OFFICE 2010 TÜRKÇE
Varsayılan

Merhaba

Makro ile çözülmüş günün sorusu ektedir.

Sayın Yurttaş beyin çözümüne yakın bir çözüm fakat alternatif olabilir.
Eklenmiş Dosyalar
Dosya Türü: zip GÜNÜN SORUSU_2_v1.zip (111.0 KB, 380 Görüntülenme)
__________________


LÜTFEN TÜRKÇEMİZE SAHİP ÇIKALIM.

MEVZU-U BAHİS VATANSA GERİSİ TEFERRUATTIR

Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz
zafer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-04-2007, 01:13   #4
Levent Menteşoğlu
Administrator
 
Levent Menteşoğlu kullanıcısının avatarı
 
Giriş: 13/10/2004
Şehir: Çorlu
Mesaj: 15,896
Excel Vers. ve Dili:
Excel 2010-Türkçe
Varsayılan

Eğer hücrelerde renklendirme istenmeseydi döngüsüz bir çözümde bulunabilirdi. Renklendirme sebebi ile Sn yurttas ve Sn Zafer'in çözümleri geçerlidir. Ben yinede bilgi olması açısından döngüsüz çözümü vereyim.

B1 hücresindeki veri doğrulamaya 2000-2050 tarihlerini kod ile yüklemek istersek aşağıdaki auto_open prosedürünü kullanabiliriz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub auto_open()
Set s1 = Sheets("sayfa1") 's1 değişkenini sayfa1 olarak atar
For a = 2000 To 2050
deg = deg & "," & a ' deg değişkenine 2000-2050 arasındaki tarihleri aralarında virgül olacak şekilde birleştirir.
Next
With s1.[b1].Validation 
       .Delete ' B1 hücresindeki veri doğrulamayı siler
       .Add Type:=xlValidateList, Formula1:=Right(deg, Len(deg) - 1) 'B1 hücresinde veri doğrulama oluşturur ve deg değişkenini liste olarak atar_
buradaki right fonksiyonu deg değişkenindeki ilk virgülü dikkate almamak için kullanılmıştır.
End With
End Sub
Aşağıdaki kodda sayfa1in kod sayfasına kopyalanmalıdır. Burada kodda , hücre üzerindeki sürükle ile otomatik doldur (autofill) işlemi esas alınmıştır. Böylece yılın tüm günleri döngüsüz olarak sıralanmaktadır.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub ' Kodun sadece B1 hücresindeki değişime göre çalışmasını sağlar
[a4:a65536].ClearContents ' A4:A65536 arasındaki verileri siler
[a4] = DateSerial([b1], 1, 1) 'A4 hücresine B1 de seçilen yılın ilk gününü yazar
fark = DateSerial([b1], 12, 31) - DateSerial([b1], 1, 1) + 4 'yılın ilk ve son günü arasındaki farktır. Bu şubat ayı 29 gün çektiği yıllardaki fark nedeniyle gereklidir.
[a4].AutoFill Destination:=Range("A4:A" & fark) 'Sürükle ile otomatik doldur işlemini yapar
End Sub
__________________
FORUM KURALLARI



"Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz. " Kaylan
Levent Menteşoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-04-2007, 17:54   #5
takirti
 
takirti kullanıcısının avatarı
 
Giriş: 29/10/2006
Mesaj: 296
Excel Vers. ve Dili:
OFİS 2003 Türkçe
Varsayılan

Çözümler daha sonra bir dosyada toplanması mümkün olur mu acaba? Teşekkürler emekleriniz için..
__________________
TARİH BİR GÜN ÖLÜME SUSAMIŞ BİR TÜRKTEN DAHA KUVVETLİ BİR SİLAHIN OLMADIĞINI YAZMAK ZORUNDA KALACAKTIR....
takirti Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-04-2007, 18:27   #6
zafer
Super Moderator
 
zafer kullanıcısının avatarı
 
Giriş: 08/03/2005
Mesaj: 3,501
Excel Vers. ve Dili:
OFFICE 2003 TÜRKÇE OFFICE 2010 TÜRKÇE
Varsayılan

Merhaba

Alıntı:
takirti tarafından gönderildi Mesajı Görüntüle
Çözümler daha sonra bir dosyada toplanması mümkün olur mu acaba? Teşekkürler emekleriniz için..
Diğer sorulara bakarsanız verilen cevaplar isteğiniz gibi tek dosyada toplanmıştır.
__________________


LÜTFEN TÜRKÇEMİZE SAHİP ÇIKALIM.

MEVZU-U BAHİS VATANSA GERİSİ TEFERRUATTIR

Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz
zafer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-04-2007, 16:09   #7
zafer
Super Moderator
 
zafer kullanıcısının avatarı
 
Giriş: 08/03/2005
Mesaj: 3,501
Excel Vers. ve Dili:
OFFICE 2003 TÜRKÇE OFFICE 2010 TÜRKÇE
Varsayılan

Merhaba

Cevabınızı yanlış yerde vermişsiniz.
Kandiliniz mübarek olsun

Alıntı:
takirti tarafından gönderildi Mesajı Görüntüle
bende cvp yazsam bence örneklerle verır ve bizim görmemızı saglardık ama sizin yaptıgınız kendınız yazdıgınız örneklere vermıssınız ama bence göstermelısınız


Afferdersiniz biraz daha konuyu açabilirmisiniz.
__________________


LÜTFEN TÜRKÇEMİZE SAHİP ÇIKALIM.

MEVZU-U BAHİS VATANSA GERİSİ TEFERRUATTIR

Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz
zafer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-05-2007, 16:00   #8
baranby
 
Giriş: 25/04/2007
Mesaj: 16
Excel Vers. ve Dili:
offıce 2007
Varsayılan

sagolun teşekkurler
baranby Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-05-2007, 08:23   #9
salih_81
 
Giriş: 10/05/2007
Mesaj: 15
Excel Vers. ve Dili:
Microsoft Excel
Varsayılan

güzel......................
__________________
:yardim: [CENTER][SIZE="3"][COLOR="Red"]Excel [/COLOR][/SIZE][/CENTER]:yardim:
salih_81 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-02-2008, 00:04   #10
pembepanter
 
Giriş: 08/01/2007
Mesaj: 3
Excel Vers. ve Dili:
office 2003
Varsayılan

Merhaba,
takıldığım bir nokta var ve bir türlü çözüm oluşturamadım. Amacım başlangıç ve bitiş tarihini verip bu tarih aralığındaki aylarda kaç gün var? örneğin 10/9/2007 başlangıç 10/2/2008 bitiş tarihleri arasında 9. ayda kaç gün 10. ayda, 11. ayda, 12, 1 ve 2 aylarda kaç gün olduğunu bulmak için hangi fonksiyon yada fonksiyonları kullanmalıyım. Yardımcı olursanız sevinirim.
Şimdiden teşekkürler.
pembepanter Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 18:28


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden