• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

S

Suddedly

Altın Üye
Katılım
7 Ekim 2010
Mesajlar
222
Excel Vers. ve Dili
Excel 365
Excel 2019
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.
 
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.

Kod: 
Sub Test()
    ActiveSheet.Shapes("Rounded Rectangle 1").TextFrame.Characters.Text = Now
    ThisWorkbook.Save
    MsgBox "Makronuz tamamlanmıştır."
End Sub
 
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.




BAZGİRET' Alıntı:
Merhaba,
Buşekilde yazın

Private Sub CommandButton1_Click()
CommandButton1.Caption = Now

End Sub
Genişletmek için tıkla ...
Korhan Ayhan' Alıntı:
Normal EKLE menüsünden eklenen düğmeler içinde aşağıdaki gibi kullanabilirsiniz.

Kod: 
Sub Test()
    ActiveSheet.Shapes("Rounded Rectangle 1").TextFrame.Characters.Text = Now
    ThisWorkbook.Save
    MsgBox "Makronuz tamamlanmıştır."
End Sub
Genişletmek için tıkla ...
 
Yenile makronuzu atadığınız butonu mouse ile seçip ekran görüntüsünü foruma ekleyiniz.
 
Hayır excel sayfanızda ilgili butonu seçip sayfanın görüntüsünü ekleyin.
 
sayfada butonu seçip ekran görüntüsü aldım ancak inş olmuştur. Zahmet veriyorum size de sağolun.
rapor2.png
 
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.
 
Anladım. Ben Geliştirici / Ekle / Form Denetimlerindeki Düğmeden ekledim.
 
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.
 
Ö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.

Kod: 
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
 
Korhan Ayhan' Alıntı:
Ö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.

Kod: 
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
Genişletmek için tıkla ...
Hocam hiç bir değişiklik yapmadım ama hata vermeden çalışıyor. Çok teşekkür ederim.
 
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.
 
bektascansever' Alıntı:
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.
Genişletmek için tıkla ...
Aslında 2 nolu mesajdaki kod işinizi görür
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst