Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 24-05-2017, 14:52   #1
işsiz123
 
Giriş: 13/07/2016
Şehir: MARDİN
Mesaj: 306
Excel Vers. ve Dili:
Excel 2010 & 2016 Türkçe
Varsayılan Textbox Tarihe göre renklenmesi

Arkadaşlar merhabalar
Tektboxta günü tamamlananları bir türlü renklendiremedim
Sorum şu
Userform aktif olduğunda eğer Userform uzerindeki textbox1.value deki tarih üzerinden 7 - 27 geçmişse textbox1 yeşil 28- sonsuz gün ve sonrası içinde kırmızı olsun
örnek olarak
Texbox1.value= 26.04.2017 olsun değişkendir

03.05.2017 tarihinde 7 gün olduğu için TextBox1.BackColor yeşile boyansın ta 27 gün olana kadar 28 gün oldu mu veya daha sonrası "24.05.2017" ...... TextBox1.BackColor kırmızıya boyansın Saygılar
__________________
[B][COLOR="Navy"]#MEHMET EMİN ALKAN[/COLOR][/B][B][COLOR="DarkSlateGray"][CENTER][SIZE="1"]:hey:“ Kendi dilini bilmeyen başka dil öğrenemez ”[/SIZE][/CENTER][/COLOR][/B]
işsiz123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-05-2017, 16:00   #2
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,117
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Aşağıdaki kodu deneyiniz:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim fark As Long
fark = DateDiff("d", Format(CDate(TextBox1.Value), "dd/mm/yyyy"), Date)

If fark > 7 And fark <= 27 Then
    Me.TextBox1.BackColor = vbGreen
ElseIf fark > 27 Then
    Me.TextBox1.BackColor = vbRed
Else
    Me.TextBox1.BackColor = vbWhite
End If
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-05-2017, 18:05   #3
işsiz123
 
Giriş: 13/07/2016
Şehir: MARDİN
Mesaj: 306
Excel Vers. ve Dili:
Excel 2010 & 2016 Türkçe
Varsayılan

Teşekkürler
__________________
[B][COLOR="Navy"]#MEHMET EMİN ALKAN[/COLOR][/B][B][COLOR="DarkSlateGray"][CENTER][SIZE="1"]:hey:“ Kendi dilini bilmeyen başka dil öğrenemez ”[/SIZE][/CENTER][/COLOR][/B]

Bu mesaj en son " 24-05-2017 " tarihinde saat 19:54 itibariyle işsiz123 tarafından düzenlenmiştir....
işsiz123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-05-2017, 19:54   #4
işsiz123
 
Giriş: 13/07/2016
Şehir: MARDİN
Mesaj: 306
Excel Vers. ve Dili:
Excel 2010 & 2016 Türkçe
Varsayılan

Tekrar merhabalar
Bunu tek textbox'a değilde Textbox1,4,7,10,13,17,21,25 textboxların hepsine tek seferde uygulayabilmemiz mümkün mü?
__________________
[B][COLOR="Navy"]#MEHMET EMİN ALKAN[/COLOR][/B][B][COLOR="DarkSlateGray"][CENTER][SIZE="1"]:hey:“ Kendi dilini bilmeyen başka dil öğrenemez ”[/SIZE][/CENTER][/COLOR][/B]
işsiz123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-05-2017, 08:47   #5
işsiz123
 
Giriş: 13/07/2016
Şehir: MARDİN
Mesaj: 306
Excel Vers. ve Dili:
Excel 2010 & 2016 Türkçe
Varsayılan

Konu Güncel
__________________
[B][COLOR="Navy"]#MEHMET EMİN ALKAN[/COLOR][/B][B][COLOR="DarkSlateGray"][CENTER][SIZE="1"]:hey:“ Kendi dilini bilmeyen başka dil öğrenemez ”[/SIZE][/CENTER][/COLOR][/B]
işsiz123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-05-2017, 09:02   #6
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,117
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Mümkündür.
(Kodlar, belirttiğiniz textbox ları kontrol etmek için düzenlendi.)
Öncelikle Userform1 kod sayfasına aşağıdaki kodları yapıştırın:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call tarihi_denetle
End Sub

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call tarihi_denetle
End Sub

Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call tarihi_denetle
End Sub

Private Sub TextBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call tarihi_denetle
End Sub

Private Sub TextBox21_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call tarihi_denetle
End Sub

Private Sub TextBox25_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call tarihi_denetle
End Sub

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call tarihi_denetle
End Sub


Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call tarihi_denetle
End Sub
Daha sonra bir modülün kod penceresine aşağıdaki kodları yapıştırınız:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub tarihi_denetle()
Dim fark As Long, nesne As Object, denetle(), i As Long
    denetle = Array("TextBox1", "TextBox4", "TextBox7", "TextBox10", "TextBox13", "TextBox17", "TextBox21", "TextBox25")

    'denetlenecek olanlar: Textbox1,4,7,10,13,17,21,25
For i = 0 To 7
    Set nesne = UserForm1.Controls(denetle(i))
    If nesne.Value <> "" Then
       fark = DateDiff("d", Format(CDate(nesne.Value), "dd/mm/yyyy"), Date)
            If fark > 7 And fark <= 27 Then
                nesne.BackColor = vbGreen
            ElseIf fark > 27 Then
                nesne.BackColor = vbRed
            Else
                nesne.BackColor = vbWhite
            End If
    End If
Next i
End Sub
Örnek dosyanız ektedir.
Eklenmiş Dosyalar
Dosya Türü: xls textbox ile tarih denetimi-antonio.xls (63.0 KB, 4 Görüntülenme)
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-05-2017, 10:10   #7
işsiz123
 
Giriş: 13/07/2016
Şehir: MARDİN
Mesaj: 306
Excel Vers. ve Dili:
Excel 2010 & 2016 Türkçe
Varsayılan

Teşekkürler
__________________
[B][COLOR="Navy"]#MEHMET EMİN ALKAN[/COLOR][/B][B][COLOR="DarkSlateGray"][CENTER][SIZE="1"]:hey:“ Kendi dilini bilmeyen başka dil öğrenemez ”[/SIZE][/CENTER][/COLOR][/B]
işsiz123 Ç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 11:03


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör- İstanbul İnşaat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden