Excel Çalışma Sayfası veya Çalışma Kitabındaki Kullanıcı Değişikliklerini İzleme ve Raporlama Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
Dim vOldVal 'Must be at top of module

Private Sub Worksheet_Change(ByVal Target As Range)

Dim bBold As Boolean

If Target.Cells.Count > 1 Then Exit Sub

On Error Resume Next

With Application

.ScreenUpdating = False

.EnableEvents = False

End With

If IsEmpty(vOldVal) Then vOldVal = "Empty Cell"

bBold = Target.HasFormula

With Sheet1

.Unprotect Password:="Secret"

If .Range("A1") = vbNullString Then

.Range("A1:E1") = Array("CELL CHANGED", "OLD VALUE", _
                        "NEW VALUE", "TIME OF CHANGE", "DATE OF CHANGE")

End If

With .Cells(.Rows.Count, 1).End(xlUp)(2, 1)

.Value = Target.Address

.Offset(0, 1) = vOldVal

With .Offset(0, 2)

If bBold = True Then

.ClearComments

.AddComment.Text Text:= _
                               "OzGrid.com:" & Chr(10) & "" & Chr(10) & _
                                  "Bold values are the results of formulas"

End If

.Value = Target

.Font.Bold = bBold

End With

.Offset(0, 3) = Time

.Offset(0, 4) = Date

End With

.Cells.Columns.AutoFit

.Protect Password:="Secret"

End With

vOldVal = vbNullString

With Application

.ScreenUpdating = True

.EnableEvents = True

End With

On Error GoTo 0

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

vOldVal = Target

End Sub

Benzer Sonuçlar
No	Makro Adı
1	Excel Çalışma Sayfası veya Çalışma Kitabındaki Kullanıcı Değişikliklerini İzleme ve Raporlama
2	makrolar kutusu ve makrolar görünsün
3	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
4	gizli sayfada makro çalışır mı
5	WorksheetBu makro kodları, çalışma sayfalarını kolay bir şekilde kontrol etmenize ve yönetmenize ve çok fazla zaman kazandırmanıza yardımcı olacaktır. Aktif Çalışma Sayfası dışındaki tüm gizle: Şimdi, eğer çalışma kitabınızdaki aktif çalışma sayfasından başka tüm çalışma sayfalarını gizlemek isterseniz şunu diyelim: . Bu makro kodu sizin için bunu yapar.
6	sayfa gizleme işlemleri
7	klasörden çalışma sayfası açma ve köprü kurma
8	Inputbox içine yazilan karakterler "*****" (password veya şifre karakterleri) şeklinde çikabilir mi?
9	klasör ve dosya makrolarındaki yolları kendine göre düzenle
10	Birden Çok Çalışma Sayfası Ekle: İş kitabınızda tek bir puntoda birden çok çalışma sayfası eklemek istiyorsanız bu kodu kullanabilirsiniz. Bu makro kodunu çalıştırdığınızda, girmek istediğiniz toplam sayfa sayısını girmek için bir giriş kutusu alırsınız.
11	Tüm boş çalışma sayfalarını silin: Bu kodu çalıştırın ve etkin çalışma kitabındaki tüm çalışma sayfalarını kontrol edecektir. Ve, bir çalışma sayfası boşsa silin.
12	sayfadan var ise sayfaadi'ni seçip sayfa üzerinde işleme devam edecek yok ise eğer sayfaadi altında yeni çalışma sayfası açacak
13	Üstbilgi / Altbilgi Tarihini Ekle: Çalışma sayfanızın üstbilgisine veya altbilgisine tarih eklemek için bu kodu kullanın. Bu kodu, başlığa altbilgiye geçmek için düzenleyebilirsiniz.
14	kes kopyalayi iptal et & aç
15	kes kopyalayı iptal etmek & aç
16	Seçilen bölgedeki tüm kelimelerin ilk harfini büyük ve diğer harflerini küçük yapmak
17	Aktif Çalışma Tablosu hariç hepsini silin: Etkin tabaka dışındaki tüm çalışma sayfalarını silmek isterseniz, bu makro sizin için kullanışlıdır. & Nbsp; Bu makroyu çalıştırdığınızda, etkin çalışma sayfasının adını diğer çalışma sayfalarıyla karşılaştırabilir ve ardından silebilirsiniz onlar.
18	İçerik Tablosu Yaratın: Çalışma kitabınızda 100ün üzerinde çalışma sayfanız olduğunu varsayalım. Ve şimdi gezinmek zor. Bu makro kodunun her şeyi kurtaracağından endişelenmeyin. Bu kodu çalıştırdığınızda, yeni bir çalışma sayfası oluşturacak ve onlara bir köprü içeren çalışma sayfalarının & nbsp; bir dizini oluşturacaktır.
19	Otomatik Sığdır Satırları: Bu kodu, bir çalışma sayfasındaki tüm satırları otomatik olarak sığdırmak için kullanabilirsiniz. Bu kodu çalıştırdığınızda, çalışma sayfanızdaki tüm hücreleri seçer ve hemen tüm satırları otomatik olarak sığar.
20	Çalışma Sayfasını Koru: Çalışma sayfanızı korumak istiyorsanız bu makro kodunu kullanabilirsiniz. Yapmanız gereken tek şey kodunuzda şifrenizi belirtmek.

Benzer Sonuçlar

Makro Adı

Excel Çalışma Sayfası veya Çalışma Kitabındaki Kullanıcı Değişikliklerini İzleme ve Raporlama

makrolar kutusu ve makrolar görünsün

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

gizli sayfada makro çalışır mı

WorksheetBu makro kodları, çalışma sayfalarını kolay bir şekilde kontrol etmenize ve yönetmenize ve çok fazla zaman kazandırmanıza yardımcı olacaktır. Aktif Çalışma Sayfası dışındaki tüm gizle: Şimdi, eğer çalışma kitabınızdaki aktif çalışma sayfasından başka tüm çalışma sayfalarını gizlemek isterseniz şunu diyelim: . Bu makro kodu sizin için bunu yapar.

sayfa gizleme işlemleri

klasörden çalışma sayfası açma ve köprü kurma

Inputbox içine yazilan karakterler "*****" (password veya şifre karakterleri) şeklinde çikabilir mi?

klasör ve dosya makrolarındaki yolları kendine göre düzenle

Birden Çok Çalışma Sayfası Ekle: İş kitabınızda tek bir puntoda birden çok çalışma sayfası eklemek istiyorsanız bu kodu kullanabilirsiniz. Bu makro kodunu çalıştırdığınızda, girmek istediğiniz toplam sayfa sayısını girmek için bir giriş kutusu alırsınız.