buton belirli gün ve saatte çalışsın

[sevensuleyman]

excelde kullandıgım buton var. hep pazartesi belirleyeceğim saate çalışmasını istiyorum.. nasıl yapabilirim yardımcı olursanız sevinir.m

 

[muygun]

Merhaba;

Butona;

Sub kullanılan_buton()
çlşgün = "Pazartesi": saatbaş = 13: saatbit = 14: sonuçç = ""
bugünn = Format(Date, "dddd")
busaat = Format(Time, "hh"): busaat = busaat * 1
If bugünn = çlşgün And busaat >= saatbaş And busaat <= saatbit Then sonuçç = "aktif"
If sonuçç = "aktif" Then
'kodlarınız
'...
MsgBox ("buton çalıştı"), vbInformation
End If
If sonuçç = "" Then MsgBox ("Gün ve zaman uygun değil"), vbCritical
End Sub

Kodlarını atayarak deneyin.

İyi çalışmalar.

 

[sevensuleyman]

Merhaba;

Butona;

Sub kullanılan_buton()
çlşgün = "Pazartesi": saatbaş = 13: saatbit = 14: sonuçç = ""
bugünn = Format(Date, "dddd")
busaat = Format(Time, "hh"): busaat = busaat * 1
If bugünn = çlşgün And busaat >= saatbaş And busaat <= saatbit Then sonuçç = "aktif"
If sonuçç = "aktif" Then
'kodlarınız
'...
MsgBox ("buton çalıştı"), vbInformation
End If
If sonuçç = "" Then MsgBox ("Gün ve zaman uygun değil"), vbCritical
End Sub

Kodlarını atayarak deneyin.

İyi çalışmalar.

kodu ekledim ama maalesef çalışmadı saat formatını saat dakika saniye olarak değiştirseniz anlık deneme şansım olur..

 

[muygun]

Merhaba;
Örnek uygualamayı 2 nolu mesaja ekledim.
Yapmanız gereken kodlardaki;

çlşgün = "Pazartesi": saatbaş = 13: saatbit = 14
verileri değiştirerek deneme yapın.
Örn: çlşgün = "Pazartesi" verisini;
çlşgün = "Pazartesi1" yapın ve deneyin.
Pc nizdeki saat hangi saati gösteriyorsa;
saatbaş = 13: saatbit = 14
verilerini değiştirin ve deneyin.

İyi çalışmalar.

 

[sevensuleyman]

olya farklı anlışılmış çok özür dilerim... belirleyeceğim gün saatte butonun kendi kendine çalışmasını istiyorum. ben butona basmadan kendi kendine çalışacak.

 

[Mahmut Bayram]

Private Sub Worksheet_Activate()
c = 0
Do
DoEvents
b = Format(Now(), "dd/mm/yyyy hh:mm")
If c = 1 Then Exit Sub
If b = "25.11.2019 16:44" Then
c = 1
Call calis
End If
Loop
End Sub

Sub calis()
MsgBox ("MAKRONUN ÇALIŞMA ZAMANI GELDİ")
End Sub

Kod: Levent Menteşoğlu'na aittir.
Not: O tarih ve zamanda dosyanız açık olmaz ise çalışmaz. Ayrıca sayfa aktif olursa çalışır.

 

[sevensuleyman]

Private Sub Worksheet_Activate()
c = 0
Do
DoEvents
b = Format(Now(), "dd/mm/yyyy hh:mm")
If c = 1 Then Exit Sub
If b = "25.11.2019 16:44" Then
c = 1
Call calis
End If
Loop
End Sub

Sub calis()
MsgBox ("MAKRONUN ÇALIŞMA ZAMANI GELDİ")
End Sub

Kod: Levent Menteşoğlu'na aittir.
Not: O tarih ve zamanda dosyanız açık olmaz ise çalışmaz. Ayrıca sayfa aktif olursa çalışır.

çok fazla excell bilgim yok. her pazartesi saat 15:00 da çalışması için kodu düzenlerseniz çok sevinirim.

 

[Mahmut Bayram]

Şöyle bir şey mi acaba aradığınız.

Sub test()
If Weekday(Now, vbMonday) = 1 Then
Application.OnTime TimeValue("15:00:00"), "makro"
End If
End Sub

Sub makro()
MsgBox "Çalıştı"
End Sub