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 17-03-2017, 04:27   #1
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: ANKARA- Aslan ERASLAN
Mesaj: 1,301
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan Belirli saatlerde sesli uyarı mesajı

Merhaba hayırlı sabahlar.

Ekte gönderdiğim excel sayfamda, günün saati C sütunundaki
belirlenmiş olan saatlere denk geldiğinde, ses çıkartarak uyarı mesajı
vermesi ve koşullu biçimlendirme ile hücrenin renklendirilmesini istiyorum.

Kendimde bulunan formüllerle, koşullu biçimlendirme ve makro
örnekleri ile yapmaya çalıştım bir türlü yapamadım.

Ayrıca göndermiş olduğum dosyada çalışan saat var, bu saat sadece
bu dosyada çalışmasını istiyorum. Diğer açık olan excel sayfalarını etkilenmesin istemiyorum.

Yardımcı olur musunuz?
.
Eklenmiş Dosyalar
Dosya Türü: xlsm UYARI.xlsm (21.9 KB, 5 Görüntülenme)
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...

Bu mesaj en son " 18-03-2017 " tarihinde saat 22:14 itibariyle ASLAN7410 tarafından düzenlenmiştir....
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-03-2017, 08:54   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 592
Excel Vers. ve Dili:
2010-2016
Varsayılan

Module kodlarınızı aşağıdaki şekilde değiştirin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Dim stopit As Boolean
Private sAutoClosed As Boolean
Sub startclock()
stopit = False
clock
End Sub
Sub clock()
If stopit = True Then Exit Sub
ActiveWorkbook.Worksheets(1).Cells(1, 27).Value = _
Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
 [AB1] = WorksheetFunction.CountIf(Range("C2:C32"), Range("AA1"))
    If WorksheetFunction.CountIf(Range("C2:C32"), Range("AA1")) > 0 Then
        Command0_Click
        stopit = True
        startclock
    End If
End Sub
Sub stopclock()
stopit = True
End Sub

Sub Saat()
    With Range("E2")
    Formula = "=NOW()"
    .Value = .Value
    End With
End Sub

Private Sub Command0_Click()
Dim oSHL As Object
On Error Resume Next
Err.Clear
Set oSHL = CreateObject("WScript.Shell")
If Err <> 0 Then
  msgbox "Error:" & Err
Else
  oSHL.PopUp "Zaman uyarısı. . .", 2, "A S L A N ...", vbOKOnly + vbExclamation
End If
Set oSHL = Nothing
End Sub
__________________
excel 2002- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 17-03-2017, 10:55   #3
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: ANKARA- Aslan ERASLAN
Mesaj: 1,301
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın askm ilginiz için çok teşekkür ediyorum, ellerinize sağlık.

Yazmış olduğunuz kod göndermiş olduğum dosya ile birlikte başka açık olan excel dosyalarında da çalışıyor. Yani yeni açmış olduğum excel çalışma dosyasının AA1 hücresinde saat çıkıyor ve çalışmaya devam ediyor, AB1 hücresinde de 0 yazıyor.

Yazmış olduğunuz kod sadece göndermiş olduğum excel sayfası için uygulanır mı?

Ayrıca E14-L14 birleşik hücreye koşullu biçimlendirme uygulayıp, C sütunundaki saatler denk geldiğinde hücre kırmızıya dönse ekrana gelen mesaja tamam dedikten sonra, hücre tekrar normal rengine dönse, bu şekilde yapabilir misiniz?
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-03-2017, 11:10   #4
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 592
Excel Vers. ve Dili:
2010-2016
Varsayılan

Ekteki şekilde mi?
Eklenmiş Dosyalar
Dosya Türü: xlsm Zamanı Gelince UYARI.xlsm (25.5 KB, 14 Görüntülenme)
__________________
excel 2002- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 17-03-2017, 15:48   #5
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: ANKARA- Aslan ERASLAN
Mesaj: 1,301
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın askm ellerinize sağlık tam istediğim gibi olmuş çok teşekkür ederim.

Küçük bir sorun var bu da çözülürse süper olacak.
Başka bir programda veya başka bir excel dosyasında bulunduğum zaman saat C sütunundaki saatlerden herhangi birisine denk geldiği zaman hiç bir uyarı mesajı gelmeden devam ediyor.
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-03-2017, 16:48   #6
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: ANKARA- Aslan ERASLAN
Mesaj: 1,301
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın askm, makronun bulunduğu dosya ekranda duruyorsa uyarı mesajı geliyor, aynı anda birden çok excel sayfası ekranda iken ve başka bir excel dosyası ile uğraşırken, kod'daki saat arka tarafta çalışıyor, ancak saat denk geldiğinde uyarı mesajı ekrana gelmiyor.
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...

Bu mesaj en son " 18-03-2017 " tarihinde saat 16:16 itibariyle ASLAN7410 tarafından düzenlenmiştir....
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-03-2017, 16:16   #7
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: ANKARA- Aslan ERASLAN
Mesaj: 1,301
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın yönetici arkadaşlar konu günceldir.
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-03-2017, 18:03   #8
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 592
Excel Vers. ve Dili:
2010-2016
Varsayılan

Başka çalışma kitabında uyarı vermeyi başaramadım. Ama başka bir program ile meşgulken sıkıntı olmuyor. Ses veriyor. Ama başka program çalışırken uyarı vermiyor. Araştırıyorum. Sonuç alırsam paylaşacağım. Siz de sonuç alırsanız paylaşırsanız memnun olurum.
__________________
excel 2002- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 18-03-2017, 18:06   #9
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: ANKARA- Aslan ERASLAN
Mesaj: 1,301
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Çok teşekkür ederim sayın askm, valla olursa süper olacak.
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 12:02   #10
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 592
Excel Vers. ve Dili:
2010-2016
Varsayılan

Aşağıdaki şekilde deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub clock()
kitap = ThisWorkbook.Name
If stopit = True Then Exit Sub
Workbooks("Zamanı Gelince UYARI.xlsm").Worksheets(1).Cells(1, 27).Value = _
Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
    If WorksheetFunction.CountIf(ThisWorkbook.Sheets("Sayfa1").Range("C2:C32"), ThisWorkbook.Sheets("Sayfa1").Range("AA1")) > 0 Then
        ThisWorkbook.Sheets("Sayfa1").Activate
        Command0_Click
        stopit = True
        startclock
    End If
End Sub
__________________
excel 2002- türkçe
askm Çevrimiçi   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 02:17


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - Investing - Hurda - Kobi Danışmanlık - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu OSGB - Lingerie - Dyeing Machine - Çorlu Temizlik- Didim Çatı İnşaat
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden