Satırda Yapılan Son Değişikliğin Bilgileri Gerekiyor

[konas06]

Herkese Selam!
Satırda yapılan son değişiklik bilgisini (Tarih,saat ve bilgisayar açılışında girilen kullanıcı adı) nasıl görebililrim,
Saygılarımla.

 

[mustafaine1]

review menusunde track changes secenegi var, onu kullanabilirsiniz..

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayın. A2:A100 arasına veri girince B2:B100 arasına istediğiniz bilgileri yazar. İstediğiniz bu değilse daha detaylı açıklama yapınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing Then
Cells(Target.Row, "B") = Format(Now, "dd/mmmm/yyyy - hh:mm:ss") _
& " - " & Application.UserName
End If
End Sub

.

 

[konas06]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayın. A2:A100 arasına veri girince B2:B100 arasına istediğiniz bilgileri yazar. İstediğiniz bu değilse daha detaylı açıklama yapınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing Then
Cells(Target.Row, "B") = Format(Now, "dd/mmmm/yyyy - hh:mm:ss") _
& " - " & Application.UserName
End If
End Sub

.

Hocam teşekkür ederim ilginiz için.
Bu işimi görür ama birşey daha soracam.
Acaba kullanıcının adı da (Bilgisayar açılırken girilen isim oturum açılış ismi) yazılabilir mi?

 

[Ömer]

Hocam teşekkür ederim ilginiz için.
Bu işimi görür ama birşey daha soracam.
Acaba kullanıcının adı da (Bilgisayar açılırken girilen isim oturum açılış ismi) yazılabilir mi?

Application.UserName

yerine,

Environ("UserName")

yazarak deneyin.

.

 

[konas06]

Ömer Bey teşekkürler.

 

[konas06]

Bu kodu çalışma kitabının tüm sayfalarına uygulayıp, şifrede koyabilir miyiz?
Gecenin bu saatinde umarım uğraştırmıyorumdur sizleri.
Selamlar

 

[Ömer]

Sadece belli çalışma sayfalarında bu kodun çalışmasını istiyorsanız ayrı ayrı istediklerinizin kod sayfalarına kopyalayabilirsiniz. Eğer tüm sayfalarda çalışsın istiyorsanız.

Sadece ThisWorbook sayfasına aşağıdaki kodları kopyalamanız yeterli olacaktır.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, [A2:A100]) Is Nothing Then
Cells(Target.Row, "B") = Format(Now, "dd/mmmm/yyyy - hh:mm:ss") _
& " - " & Environ("UserName")
End If
End Sub

Şifre için,

VBA ekranından Tools / VBAProject Properties menüsüne girin Protection kısmından Lock project .... seçeneğini işaretleyin ve alt ksımlara şifrenizi girin.

.

 

[konas06]

Ömer bey teşekkürler.
Ancak konunun en başında söylediğim şeyi formülü uygulamaya başlayınca fark ettim, sorun şu efendim, satır boyunca yapılan değişikliği görmek istiyoruz yani A2:L2 arası veriler değişiklik bilgisi M2 de gösterilsin, A3:L3 arası veriler değişiklik bilgisi M3 de gösterilsin bu böyle aşağı doğru devam etsin gitsin istiyoruz.
Bunun için hangi formül kullanabilirim.

 

[Ömer]

Linki inceleyin.

http://www.excel.web.tr/f48/log-tutmak-t27791.html

.

 

[konas06]

Ömer bey verdiğiniz link ile çok özel bir koda ulaştığımı düşünüyorum, Ancak benim aradığım çok daha basit bir konu olduğunu zannediyorum, yapmak istediğim şu

TARİH elma armut muz şeftali son değişiklik bilgisi
01.01.2010 1 1 1 kim ne zaman değiştirdi.
01.01.2010 2 3 2 kim ne zaman değiştirdi.
01.01.2010 2 1 1 kim ne zaman değiştirdi.

Selamlar.

 

[Ömer]

Değişikliği her seferinde yana doğryu boş hücrede yazarsanız sütun sayısı az olduğu için problem yaşarsınız. Bu yüzden verdiğim link size uygundur diye düşünüyorum.

.

 

[konas06]

Hocam şöyle izah etmeye çalışayım bu listenin çıktısı alınıyor, son değişiklik bilgisinin sadece bir hücrede olmasında fayda var. Aslında sütun sayısı buradakinden daha fazla ben kısaca yazdım.

 

[Ömer]

Örnek dosya ekleyerek detaylı açıklayınız.

.

 

[konas06]

Buyurun hocam ektedir.
Saygılarımla,

 

[Ömer]

2003 formatında eklemizi rica ederim.

.

 

[konas06]

Ekledim hocam.

 

[Ömer]

Bunun çözümünü size vermiştim. Hangi sütunda yada sütünlarda değişiklik yapılırsa makro çalışacak ?

.

 

[konas06]

Bunun çözümünü size vermiştim. Hangi sütunda yada sütünlarda değişiklik yapılırsa makro çalışacak ?

.

Ömer bey bu konu ile ilgili bir kod ve bir link aldım sizden.
Kod A2:den A100 e kadar bir değişiklik olduğunda B sütununda yazacaktı.
Ancak benim konum şu: A2 ile I2 arasında (Yani 2. satırda değişiklik olduğunda yada veri girildiğinde) J2 ye yazması ve her satır için bunun ayrı ayrı devam etmesini yapmaya çalışıyorum.
Link de sizin bildiğiniz gibi tüm sayfa içerisinde olan bütün değişiklikleri tek tek "yedek" isimli sayfada gösteriyordu.
Saygılarımla

 

[Ömer]

Ömer bey bu konu ile ilgili bir kod ve bir link aldım sizden.
Kod A2:den A100 e kadar bir değişiklik olduğunda B sütununda yazacaktı.
Ancak benim konum şu: A2 ile I2 arasında (Yani 2. satırda değişiklik olduğunda yada veri girildiğinde) J2 ye yazması ve her satır için bunun ayrı ayrı devam etmesini yapmaya çalışıyorum.
Link de sizin bildiğiniz gibi tüm sayfa içerisinde olan bütün değişiklikleri tek tek "yedek" isimli sayfada gösteriyordu.
Saygılarımla

Aralıkları değiştirmeniz yeterli olacaktı.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [[COLOR=red]A2:I100[/COLOR]]) Is Nothing Then
Cells(Target.Row, "[COLOR=red]J[/COLOR]") = Format(Now, "dd/mmmm/yyyy - hh:mm:ss") _
& " - " & Environ("UserName")
End If
End Sub

.