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

[ATEMİ]

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.

 

[muhasebeciyiz]

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.

 

[ATEMİ]

Ü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.

 

[ATEMİ]

Bir de bu hata yı verdi "Block If without End If"

 

[byfika]

Merhabalar, End sub dan önce End if yazmalısınız

 

[ATEMİ]

Sayın Byfika teşekkür ederim çalıştı

 

[ATEMİ]

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

 

[ATEMİ]

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.

 

[ATEMİ]

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

 

[Korhan Ayhan]

Linkteki konular belki faydalı olabilir.

Benzer Konular

 

[ATEMİ]

Korhan Bey merhaba link açılmıyor

 

[Korhan Ayhan]

Ş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

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

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

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

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

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

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

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

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

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

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

 

[ATEMİ]

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

 

[Korhan Ayhan]

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

 

[ATEMİ]

Korhan bey doğru yere yerleştirmeyi doğru yapmak nasıl olacak? Anlayamadım

 

[yusuf1284]

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

 

[ATEMİ]

Sayın yusuf1284 denedim hata veriyor

 

[ATEMİ]

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

 

[Korhan Ayhan]

Alttaki satırların olmaması gerekir.

Private Sub CommandButton2_Click()
Mail_Range_Outlook_Body

 

[ATEMİ]

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