kod hata veriyor..

[karakayalı]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
' If Intersect(Target, [b2:b65536]) Is Nothing Then Exit Sub
If Intersect(Target, [b2:b65536, c:c]) Is Nothing Then Exit Sub

with target
if .Column = 2 then
say = WorksheetFunction.CountIf(Range("b1:b" & .Row - 1), Target)
If say > 0 Then
MsgBox "Numara Mevcuttur...Çift Girişe Onay Verilmez..."
.Select
.value = empty
End If

elseif .Column = 3 then
' If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
satır = "h" & .Row & ":a" & .Row
Select Case Target
Case "BEKLEMEDE": Range(satır).Font.ColorIndex = 5
End Select
end if
end with
End Sub


aşağıdaki kodu yukarıdaki koda nasıl entegre edebilirim...her ikisini birden yazdığımda hata veriyor...

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Aralik As Range, ilk As Range
Set Aralik = Range("b1:b100")
Application.EnableEvents = False
For Each ilk In Range(Target.Address)
If Not Intersect(ilk, Aralik) Is Nothing Then ilk.Offset(0, -1) = Date
Next ilk
Application.EnableEvents = True
Set Aralik = Nothing
End Sub

 

[Recep İpek]

2.kod ile b1:b100 arasında herhangi bir değer yazdığınız zaman A kolonuna tarih mi yazdırıyorsunuz?

 

[karakayalı]

evet doğrudur...

 

[Recep İpek]

Aşağıdaki şekilde işinize yarar mı?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
' If Intersect(Target, [b2:b65536]) Is Nothing Then Exit Sub
If Intersect(Target, [b2:b65536, c:c]) Is Nothing Then Exit Sub
With Target
If .Column = 2 Then
[B]If .Row <= 100 Then .Offset(0, -1).Value = Date
[/B]say = WorksheetFunction.CountIf(Range("b1:b" & .Row - 1), Target)
If say > 0 Then
MsgBox "Numara Mevcuttur...Çift Girişe Onay Verilmez..."
.Select
.Value = Empty
[B]If .Row <= 100 Then .Offset(0, -1).Value = Empty
[/B]End If
ElseIf .Column = 3 Then
' If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
satır = "h" & .Row & ":a" & .Row
Select Case Target
Case "BEKLEMEDE": Range(satır).Font.ColorIndex = 5
End Select
End If
End With
End Sub

 

[karakayalı]

syn recep bey..teşekkür ederim... elinize sağlık..

 

[karakayalı]

syn recep kardeşim...buna birde B-C-D-E sutununa veri girilmesini mecburi tutabilirmiyiz...
yani B-C-D sutunlarına veriyi girdik ancak E sutununa girmedik...uyarı mesajı ile E SUTUNUNA VERİ GİRİNİZ meSAJI almak...gibi..kolay gelsin..