- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Sayın üstadlarım,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Alan As Range
Dim yeni As Integer
Dim A, son As Integer
Set Alan = Range("F2:F1045876")
If Not Intersect(Target, Alan) Is Nothing Then
Cancel = True
If IsEmpty(Target) Then
Target = "İZ OLDU"
son = Sheets("İz").Cells(Rows.Count, "B").End(3).Row
A = Target.Row
If WorksheetFunction.CountIfs(Sheets("İz").Range("B1:B" & son), Cells(A, "B"), Sheets("İz").Range("C1:C" & son), Cells(A, "C"), _
Sheets("İz").Range("D1:D" & son), Cells(A, "D"), Sheets("İz").Range("E1:E" & son), Cells(A, "E")) = 0 Then
Range("B" & A & ":E" & A).Copy Sheets("İz").Cells(son + 1, "B")
Sheets("İz").Cells(son + 1, "A") = son
Else
MsgBox "İz Sayfasında Aynı Veri Bulunmaktadır!!", 16, "Dikkat"
End If
Else
Target.ClearContents
End If
End If
Bu kodla sayfadaki F sütunuta çift tıkladığımda "İZ OLDU" yazıyar ve verileri İz sayfasına gönderiyor.
Yapmak istediğim ikinci defa çift tıkladığımda "İZ OLDU" ifadesi kalkıyor.
"İZ OLDU" ifadesinin kaldırılmasının ardından İz sayfasına gönderilen verinin silinmesidir.
Yardımlarınızı rica ediyorum.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Alan As Range
Dim yeni As Integer
Dim A, son As Integer
Set Alan = Range("F2:F1045876")
If Not Intersect(Target, Alan) Is Nothing Then
Cancel = True
If IsEmpty(Target) Then
Target = "İZ OLDU"
son = Sheets("İz").Cells(Rows.Count, "B").End(3).Row
A = Target.Row
If WorksheetFunction.CountIfs(Sheets("İz").Range("B1:B" & son), Cells(A, "B"), Sheets("İz").Range("C1:C" & son), Cells(A, "C"), _
Sheets("İz").Range("D1:D" & son), Cells(A, "D"), Sheets("İz").Range("E1:E" & son), Cells(A, "E")) = 0 Then
Range("B" & A & ":E" & A).Copy Sheets("İz").Cells(son + 1, "B")
Sheets("İz").Cells(son + 1, "A") = son
Else
MsgBox "İz Sayfasında Aynı Veri Bulunmaktadır!!", 16, "Dikkat"
End If
Else
Target.ClearContents
End If
End If
Bu kodla sayfadaki F sütunuta çift tıkladığımda "İZ OLDU" yazıyar ve verileri İz sayfasına gönderiyor.
Yapmak istediğim ikinci defa çift tıkladığımda "İZ OLDU" ifadesi kalkıyor.
"İZ OLDU" ifadesinin kaldırılmasının ardından İz sayfasına gönderilen verinin silinmesidir.
Yardımlarınızı rica ediyorum.