Aktif Sütuna Göre Diğer Sütunda İşlem
06 Haziran 2021
1054
Aktif Sütuna Göre Diğer Sütunda İşlem isimli kod, örneğin B sütununda bir şey yazılınca A sütununa otomatik ve sabit bir metin eklemenizi sağlar.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ara As Range, Adres
If Target.Column = 2 Then
ActiveCell.Offset(-1, -1).Value = "ExcelDepo"
End If
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve hangi sayfada deneme yapacaksanız, o sayfanın adının üstüne çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Bir sütunda işlem yapıldıkça, başka bir sütuna sabit bir metin ya da herhangi bir şey yazdırmak gerekli olabilir. Bu gibi bir durumda üstteki kodu kullanabilirsiniz.
Örnek kodumuz, B sütununda ne yazılırsa yazılsın, ilgili sütunun bir önceki sütununa yani A sütununa "ExcelDepo" yazılmasını sağlar.
Özellikle veri girişlerini kimin yaptığı, hangi saatte yapıldığı gibi hususların kaydını tutmak için bu kodu ya da benzerini kullanabilirsiniz.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Son İşlemi Tekrar Etme | F4 |
| Kaydet / Alternatif | Shift F12 |
| Üstteki Veriyi Kopyalama | Ctrl D |
| Hücreyi Yüzde Oranı Olarak Biçimlendirme | Ctrl Shift % |
| Emoji Ekleme | Pencere Tuşu . |