hmtstc
Altın Üye
- Katılım
- 20 Şubat 2014
- Mesajlar
- 313
- Excel Vers. ve Dili
- Excel 2016 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 10-04-2025
Merhaba arkadaşlar,
bir tablom var ve aşağıdaki formülle tablodaki seçili alandaki değişiklik durumunda 1. sütuna "eksik" yazdırmaya çalışıyorum. ancak değişimdeki 2 koşulu kontrol etmesini istiyorum.
1.si ilk değer ile son değeri kıyaslayacak ve aynı ise "eksik" yazmayacak !
2. si ise değişen satırın en son sütununa "eksik" yazacak. ( ben yaptığımda değişen satırın alt satırına yapıyor ( enter ile değiştirdiğim için, tab ile değiştirirsem sorun yok. )
yardımınızı rica ederim...
bir tablom var ve aşağıdaki formülle tablodaki seçili alandaki değişiklik durumunda 1. sütuna "eksik" yazdırmaya çalışıyorum. ancak değişimdeki 2 koşulu kontrol etmesini istiyorum.
1.si ilk değer ile son değeri kıyaslayacak ve aynı ise "eksik" yazmayacak !
2. si ise değişen satırın en son sütununa "eksik" yazacak. ( ben yaptığımda değişen satırın alt satırına yapıyor ( enter ile değiştirdiğim için, tab ile değiştirirsem sorun yok. )
yardımınızı rica ederim...
Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells7 As Range
On Error GoTo 100
'
'
Set KeyCells7 = Sheets("veritabanı").Range("F9:CH60000")
If Not Application.Intersect(KeyCells7, Range(Target.Address)) Is Nothing Then
i = ActiveCell.Row
Sheets("veritabanı").Select
Cells(i, 1) = "Eksik"
End If
100
Exit Sub
End Sub