Düğmeye basınca düğme üzerinde otomatik o anki tarih saati yazdırma

[Suddedly]

Hepinize merhabalar. Excel dosyamızda bir makromuz var. Bir düğmeye atadım ve makronun çalıştığı tarih ve saati bir hücreye en son şu tarihte yenilenmiş mantığıyla yazdırıyorum. Ancak müdürümün benden ricası acaba bu tarih saati bastığımız düğme üzerinde gösterme imkanımız var mıdır? Sadece düğmeye basınca tarih saat yazması gerektiği için örnek dosya eklemedim. Değerli görüşleriniz için şimdiden teşekkür ederim.

 

[BAZGİRET]

Merhaba,
Buşekilde yazın

Private Sub CommandButton1_Click()
CommandButton1.Caption = Now

End Sub

 

[Korhan Ayhan]

Normal EKLE menüsünden eklenen düğmeler içinde aşağıdaki gibi kullanabilirsiniz.

Sub Test()
    ActiveSheet.Shapes("Rounded Rectangle 1").TextFrame.Characters.Text = Now
    ThisWorkbook.Save
    MsgBox "Makronuz tamamlanmıştır."
End Sub

 

[Suddedly]

Sub Yenile()
'
' Yenile Makro
'

'
Sheets("Sayfa1").Select
ActiveWindow.SmallScroll Down:=-36
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Sayfa2").Select
ActiveSheet.PivotTables("PivotTable1").PivotSelect "Firma", xlButton, True
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End Sub

Ustam bir yerden güncellediğimiz bir veriyi makro olarak bir butona atadım. Butona bastıkça veri güncelleniyor. Tarih ve saati de butonda gönünmesini bu yüzden istiyorum açıkcası. kodu yukarıda. sizden rica ettiğim şeyi tam neresine ekleyeceğimi bilmiyorum. Bu konuda acemiyim kusura bakmayın. Her ikinizin kodunu da ekleyip denedim ama sonuç alamadım.

Merhaba,
Buşekilde yazın

Private Sub CommandButton1_Click()
CommandButton1.Caption = Now

End Sub

Normal EKLE menüsünden eklenen düğmeler içinde aşağıdaki gibi kullanabilirsiniz.

Sub Test()
    ActiveSheet.Shapes("Rounded Rectangle 1").TextFrame.Characters.Text = Now
    ThisWorkbook.Save
    MsgBox "Makronuz tamamlanmıştır."
End Sub

 

[Korhan Ayhan]

Yenile makronuzu atadığınız butonu mouse ile seçip ekran görüntüsünü foruma ekleyiniz.

 

[Suddedly]

Yenile makronuzu atadığınız butonu mouse ile seçip ekran görüntüsünü foruma ekleyiniz.

Kodu görüntüle deyip ekleyeceğim doğrudur değil mi?

 

[Suddedly]

 

[Korhan Ayhan]

Hayır excel sayfanızda ilgili butonu seçip sayfanın görüntüsünü ekleyin.

 

[Suddedly]

sayfada butonu seçip ekran görüntüsü aldım ancak inş olmuştur. Zahmet veriyorum size de sağolun.

 

[Korhan Ayhan]

Anlaşamadık...

Resimde görünen YENİLE butonunu mouse ile seçin ki hangi tip butonu kullandığınızı anlayalım.

Benim önerdiğim kod EKLE-ŞEKİLLER menüsünden eklenen butonlar için uygun.

Bu sebeple kullandığınız butonun adı gerekiyor.

 

[Suddedly]

Anladım. Ben Geliştirici / Ekle / Form Denetimlerindeki Düğmeden ekledim.

 

[Suddedly]

Hocam Günaydın. Tekrar rahatsız ediyorum kusura bakmayın. Dünkü mesajımı tekrar hatıralatmak istedim. Geliştirici/Ekle menüsünden form düğmesi eklemiştim.

 

[Korhan Ayhan]

Önerdiğim kod içindeki nesne adını kendi kullandığınız nesne adı ile değiştirip deneyiniz.

"Button 1" yazan yeri değiştireceksiniz.

Sub Yenile()
    Sheets("Sayfa1").Select
    ActiveWindow.SmallScroll Down:=-36
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Sheets("Sayfa2").Select
    ActiveSheet.PivotTables("PivotTable1").PivotSelect "Firma", xlButton, True
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
    ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = Now
    ThisWorkbook.Save
End Sub

 

[Suddedly]

Önerdiğim kod içindeki nesne adını kendi kullandığınız nesne adı ile değiştirip deneyiniz.

"Button 1" yazan yeri değiştireceksiniz.

Sub Yenile()
    Sheets("Sayfa1").Select
    ActiveWindow.SmallScroll Down:=-36
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Sheets("Sayfa2").Select
    ActiveSheet.PivotTables("PivotTable1").PivotSelect "Firma", xlButton, True
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
    ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = Now
    ThisWorkbook.Save
End Sub

Hocam hiç bir değişiklik yapmadım ama hata vermeden çalışıyor. Çok teşekkür ederim.

 

[bektascansever]

Değerli arkadaşlar okulda kullandığım bir form var. kaydet butonu ekledim hücre içindeki okul adıyla farklı kaydediyorum. ancak formu doldurduğum tarihi bazen unutabiliyorum. bugün formülü formun açıldığı tarih olduğu için her formu açtığımda tarih güncelleniyor. ben farklı kaydet dediğimde kaydettiğim tarihin hücreye eklenmesini istiyorum. Yardımcı olursanız sevinirim.

 

[metin_0606]

Değerli arkadaşlar okulda kullandığım bir form var. kaydet butonu ekledim hücre içindeki okul adıyla farklı kaydediyorum. ancak formu doldurduğum tarihi bazen unutabiliyorum. bugün formülü formun açıldığı tarih olduğu için her formu açtığımda tarih güncelleniyor. ben farklı kaydet dediğimde kaydettiğim tarihin hücreye eklenmesini istiyorum. Yardımcı olursanız sevinirim.

Aslında 2 nolu mesajdaki kod işinizi görür

 

[bektascansever]

Aslında 2 nolu mesajdaki kod işinizi görür

teşekkür ederim

 

[bektascansever]

teşekkür ederim

ben farklı bir yöntemle çözdüm. hücreye bir ad verdim makroyu çalıştırıp önce o hücreyi çağırdım bugün formülünü ekledim. kopyalayıp değerleri yapıştırdım. makroyu durdurdum. sonuçta işim görüldü.