- Katılım
- 3 Aralık 2015
- Mesajlar
- 12
- Excel Vers. ve Dili
- 2016 Eng/TR
Merhaba,
Aşağıdaki kullandığım kod ile j kolonuna bakıp eğer ok ya da x var ise otomatik p kolonuna tarih attırıyorum. Kalın ve kırmızı olarak yazdığım kod satırında sadece j kolonuna değil de J, K, L, M, N kolonlarına baksın hepsi OK ise tarih atsın istiyorum. Bu mümkün değilse herhangi birisi OK ise tarih atsın istiyorum.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [J1:N65536]) Is Nothing Then
For i = 1 To 65536
If Cells(i, "P") = "" Then
Select Case Cells(i, "J")
Case "OK"
Cells(i, "P") = Format(Date, "dd/mm/yyyy")
Case "ok"
Cells(i, "P") = Format(Date, "dd/mm/yyyy")
Case "Ok"
Cells(i, "P") = Format(Date, "dd/mm/yyyy")
Case "x"
Cells(i, "P") = Format(Date, "dd/mm/yyyy")
Case "X"
Cells(i, "P") = Format(Date, "dd/mm/yyyy")
End Select
Else: If Cells(i, "J") = "" Then Cells(i, "P") = ""
End If
Next
End If
End Sub
Aşağıdaki kullandığım kod ile j kolonuna bakıp eğer ok ya da x var ise otomatik p kolonuna tarih attırıyorum. Kalın ve kırmızı olarak yazdığım kod satırında sadece j kolonuna değil de J, K, L, M, N kolonlarına baksın hepsi OK ise tarih atsın istiyorum. Bu mümkün değilse herhangi birisi OK ise tarih atsın istiyorum.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [J1:N65536]) Is Nothing Then
For i = 1 To 65536
If Cells(i, "P") = "" Then
Select Case Cells(i, "J")
Case "OK"
Cells(i, "P") = Format(Date, "dd/mm/yyyy")
Case "ok"
Cells(i, "P") = Format(Date, "dd/mm/yyyy")
Case "Ok"
Cells(i, "P") = Format(Date, "dd/mm/yyyy")
Case "x"
Cells(i, "P") = Format(Date, "dd/mm/yyyy")
Case "X"
Cells(i, "P") = Format(Date, "dd/mm/yyyy")
End Select
Else: If Cells(i, "J") = "" Then Cells(i, "P") = ""
End If
Next
End If
End Sub