• DİKKAT

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

Çözüldü Yapılan kayıt zamanını kaydeden koda işlemi yapan kişi eklenebilir mi?

A

ATEMİ

Altın Üye
Katılım
9 Ocak 2006
Mesajlar
457
Excel Vers. ve Dili
Office 2021 Türkçe
Merhaba Arkadaşlar,
Belirlenen satır ve hücrelerde yapılan son değişikliğin zamanını kaydeden aşağıdaki kod kullanıyorum buna değişikliği yapan kişi eklenebilir mi?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B8:R10645]) Is Nothing Then Cells(Target.Row, "T") = Now
End Sub

"20.06.2024 15:11" formata ofis kullanıcısı olan kişi eklenerek "20.06.2024 15:11 Ahmet" formatı eklememiz mümkün mü?
Teşekkürler.
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B8:R10645]) Is Nothing Then
Cells(Target.Row, "T") = Environ("UserName") & " - " & Now
End Sub

Açıklama:
Environ("UserName"): Bu, geçerli kullanıcının adını döndüren bir VBA fonksiyonudur.
& operatörü: Bu operatör, iki metin dizesini birleştirmek için kullanılır.
Now: Bu, mevcut tarihi ve saati döndüren bir VBA fonksiyonudur.

Notlar:
Bu kod, B8:R10645 aralığındaki hücrelerde yapılan değişiklikleri izler. Bu aralığı, izlemek istediğiniz hücre aralığıyla değiştirebilirsiniz.
Kullanıcı adının hücreye nasıl biçimlendirileceğini özelleştirmek isterseniz, Cells(Target.Row, "T") satırını Cells(Target.Row, "T").NumberFormat = "@YYYY-mm-dd hh:mm;@\n""Ahmet""" gibi bir biçimlendirme kodu ile değiştirebilirsiniz. Bu, tarihi ve saati "2024-06-20 15:11;Ahmet" formatında gösterecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim UserName As String
UserName = Environ("USERNAME")

If Not Intersect(Target, [B8:R10645]) Is Nothing Then
Cells(Target.Row, "T") = Now
Cells(Target.Row, "U") = UserName
End If
End Sub

Bu kodda, Environ("USERNAME") fonksiyonu kullanılarak kullanıcı adı alınıyor ve değişiklik yapılan satırın U sütununa kaydediliyor. T sütununda değişiklik zamanını, U sütununda ise değişikliği yapan kullanıcıyı göreceksiniz.

Bu kodu Excel VBA modülüne ekledikten sonra, belirlediğiniz aralıktaki hücrelerde herhangi bir değişiklik yapıldığında, o satırdaki T ve U sütunları otomatik olarak güncellenecektir.
 
Üstadım ilginize açıklayıcı ve öğretici cevabınıza teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B8:R10645]) Is Nothing Then
Cells(Target.Row, "T") = Environ("UserName") & " - " & Now
End Sub
Aynen kod kısmına kopyaladım yalnız "This command will stop the debugger" şeklinde hata veriyor.
 
Bir de bu hata yı verdi "Block If without End If"
 
Merhabalar, End sub dan önce End if yazmalısınız
 
Hücrenin içine kullanıcı adı eklendiğinde metin olarak kabul ettiği için doğal olarak kendisini referans alarak hesaplama yapan diğer hücrelerde hata verdi.
Bende kullanıcı adı kısmını yanındaki sütuna almak suretiyle küçük bir değişiklik yapmak zorunda kaldım.
Forumdaki ilgilenen diğer arkadaşlara faydası olabilir belki diye son hali şu şekilde;

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B8:R10645]) Is Nothing Then
Cells(Target.Row, "T") = Now
Cells(Target.Row, "U") = Environ("UserName")
End If
End Sub
 
Environ("UserName") bu oturum sahibini veriyor benim istediğimde buydu ancak office kullanıcısını getirmek isteyen olursa nasıl değiştirmesi gerekirdi.
 
Arkadaşlar "T" ve "U" sütunlarında zaman ve kullanıcı kaydına müdahale edilememesi için hücreyi kilitleyerek sayfayı korumalı yaptığımda hata veriyor
Bunu yapmazsam elle değiştirileceği için çok anlamlı olmayacak ne yapmam gerekir
 
Şimdi tekrar denedim. Bende açılıyor.

Yine de aşağıdaki açık linkleri inceleyebilirsiniz.

Korumalı sayfada makro çalıştırma

Üstadlarım; Aşağıdaki kodları makroların ilk satırından sonra ve son satırından önce yazınca,makro sayfa kilidini açıyor işlemi yapıp sayfayı tekrar koruyor.Sayfa korumasını yaptığında tam korumaya alıyor.Sayfa içinde filtreleme,sıralama gibi bazı şeylere izin vermesi mümkün mü...
www.excel.web.tr www.excel.web.tr

Soru - Sayfa Korumalı iken Macro Devreye girmiyor

Merhabe Sayfaya bu kodu yazıyorum Çalışıyor. 1. Sorun: Sayfa açıldığında direkt kod çalışmıyor Sayfa 2 ye geçip sonra tekrar sayfa 1 e geçtiğimde çalışıyor. Ben İstiyorum ki Excel açıldığında direkt çalışsın _Open denedim olmadı 2 : Sorun: Sayfanın belirli Hücrelerini korumak istiyorum ama...
www.excel.web.tr www.excel.web.tr

sayfayı koruduğumda makro çalışmıyor

Arkadaşlar merhaba ekteki dosyamda email gonder butonun makrosu sayfayı koru yaptıgım zaman calısmıyor hata verıyor ama sayfa korumasını actıgım zaman normal calısıyor işyerınde kullandıgımdan formullerın bozulmaması acısından mutlaka sayfayı koruyarak kullanmak zorundayım acaba nasıl bır kod...
www.excel.web.tr www.excel.web.tr

sayfayı korumaya alınca makro çalışmıyor

Selam Arkadaşlar ; Dosyayı her açtığımda otomatik çalışan bir makrom var. Sayfayı korumaya almam gerekiyor malesef bu sefer de makro çalışmıyor. Yardımınızı rica ederim, dosya ektedir.
www.excel.web.tr www.excel.web.tr

Korumalı Sayfada Makro Çalıştırmak.

Herkese hayırlı ramazanlar. Çalışma dosyam var 2 sayfa bir tanesi gizli sadece orayı baskı önizle için kullanıyorum aşağıdaki kod gizli sayfayı baskıözileme yapar. benim istediğim şu sayfa yapısını koru dediğimde makro çalışmıyor bu zaten klasik bir sorundur ki sayfada çok örnek var denememe...
www.excel.web.tr www.excel.web.tr

Korumalı sayfalarda makro kullanımı

Selam arkadaşlar.Ben birbirine bağlı yani formüllerle bağlı birkaç sayfalık bir çalışma yaptım.Bu çalışma içinde makrolar var yalnız bu sayfaların çok kullanıcılı olduğu için sayfa koruma ile korunması gerekiyor.Ama böyle oluncada makrolar çalışmıyor hata veriyor.Korumalı sayfaya erişemiyor diye...
www.excel.web.tr www.excel.web.tr

sayfayı korumada makro çalışmıyor

arkadaşlar.formüller silinmesin diye şifre koymak istiyorum.şifre koyduğum zaman makrolar hata veriyor.ne yapmalıyım.
www.excel.web.tr www.excel.web.tr

Sayfayı korumaya alınca Makro Hata veriyor

iyi çalışmalar hazırladığım çalışmada çalışma sayfasını korumaya aldığımda oluşturmuş olduğum sayfayı kopyala butonuna tıkladığımda makro önce çalışıyor ensonda makro hatası veriyor(runtime 1004) dosyama bir bakarsanız sevinirim.
www.excel.web.tr www.excel.web.tr

Sayfa korumada makro çalşmama sorunu

Merhabalar. Makro içeren bir dosyada bazı hücreleri kilitleyip çalışma sayfasını koru desiğimde makrolar çalışmıyor. Korumalı sayfada Makronun çalışması için ne yapabilirim. Teşekkürler.
www.excel.web.tr www.excel.web.tr

sayfa koruması olunca makrolarım çalışmıyor

arkadaşlar tablomdaki formüllerim bozulmasın diye sayfa koruması ekliyorum ozamanda makrolar çalışmıyor ne yapmam lazım çok önemli yardımlarınızı bekliyorum arkadaşlar alakanız ve paylaşımınız için çok sağolun büyüksünüz. yalnız ben anlayamadım dediğim gibi acemiyim derdimide anlatamadım...
www.excel.web.tr www.excel.web.tr

Korumalı sayfada kod veya makro çalıştırma

Merhabalar, Ben herhangi bir makro veya kodu sayfa korumalı bi yerde çalıştırmak istiyorum.. Örnek dosyam ektedir.. Yardımlarını esirgemeyen arkadaşlara şimdiden teşekkürler...
www.excel.web.tr www.excel.web.tr
 
Korhan Bey sizin bir çözümünüzü buldum bendeki kodun altına iliştirdim hata veriyor nerde hata yapmış olabilirim

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B8:R10645]) Is Nothing Then
Cells(Target.Row, "T") = Now
Cells(Target.Row, "U") = Environ("UserName")
Private Sub CommandButton2_Click()
ActiveSheet.Unprotect 1
Mail_Range_Outlook_Body
ActiveSheet.Protect 1
End If
End Sub
 
Korumalı bir sayfada işlem yapmak için önce korumayı kaldırmak gerekir..

Alttaki satır korumayı kaldıran kod satırıdır. Ama siz bundan önce bazı işlemler yaptırmaya çalışıyorsunuz. Sayfa korumalı olduğu için hata alıyorsunuz. Doğal olarak alttaki satırı kullandığınız kod bloğunda uygun yere yerleştirmeniz gerekiyor. Eğer bu işlemi doğru yaparsanız sorun çıkmaması gerekir.

ActiveSheet.Unprotect 1
 
Korhan bey doğru yere yerleştirmeyi doğru yapmak nasıl olacak? Anlayamadım
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B8:R10645]) Is Nothing Then​
ActiveSheet.Unprotect 1​
Cells(Target.Row, "T") = Now​
Cells(Target.Row, "U") = Environ("UserName")​
Private Sub CommandButton2_Click()​
Mail_Range_Outlook_Body​
ActiveSheet.Protect 1​
End If​
End Sub
 
Bu kod çok güzel çalışıyordu aslında tek problem sayfanın korunarak ilgili hücrelerin kilitlenmesi

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B8:R10645]) Is Nothing Then
Cells(Target.Row, "T") = Now
Cells(Target.Row, "U") = Environ("UserName")
End If
End Sub
 
Alttaki satırların olmaması gerekir.

Private Sub CommandButton2_Click()
Mail_Range_Outlook_Body
 
Korhan bey harikasınız teşekkür ederim tam istediğim gibi çalışıyor.
Emeği geçen diğer arkadaşlara da teşekkür ediyorum sağlıcakla kalın
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst