"ctrl+shift+:" formül şekli nedir?

[granit2424]

https://dosyam.org/X06/Araç_Giriş_m.xlsm makro içerebilen çalışma taslağı olarak tekrar paylaşıyorum.

 

[YUSUF44]

O kutucuk işaretlemesine bağlı bir kod bulamadım maalesef. Activex onay kutusu ya da onay kutusu olmadan hücreye X gibi bir ifade yazarak işlemin yapılması sağlanabilir. Örneğin aşağıdaki kodu kullanırsanız C ve G sütunlarında herhangi bir hücreyi seçtiğinizde hücre boşsa X yazar ve F/J sütununa zamanı kaydeder. Hücrede X varsa o hücreleri boşaltır:

Private Sub Worksheet_selectionChange(ByVal Target As Excel.Range)
If Intersect(Target, Range("C2:C1000, G2:G1000")) Is Nothing Then Exit Sub
Application.EnableEvents = False
' ActiveSheet.Unprotect
    If Target = "X" Then
        Target.ClearContents
        Target.Offset(0, 3).ClearContents
        Target.Offset(0, 1).Select
    Else
        Target = "X"
        Target.Offset(0, 3) = Date + Time
        Target.Offset(0, 1).Select
    End If
' ActiveSheet.protect
Application.EnableEvents = True
End Sub

 

[granit2424]

O kutucuk işaretlemesine bağlı bir kod bulamadım maalesef. Activex onay kutusu ya da onay kutusu olmadan hücreye X gibi bir ifade yazarak işlemin yapılması sağlanabilir. Örneğin aşağıdaki kodu kullanırsanız C ve G sütunlarında herhangi bir hücreyi seçtiğinizde hücre boşsa X yazar ve F/J sütununa zamanı kaydeder. Hücrede X varsa o hücreleri boşaltır:

Private Sub Worksheet_selectionChange(ByVal Target As Excel.Range)
If Intersect(Target, Range("C2:C1000, G2:G1000")) Is Nothing Then Exit Sub
Application.EnableEvents = False
' ActiveSheet.Unprotect
    If Target = "X" Then
        Target.ClearContents
        Target.Offset(0, 3).ClearContents
        Target.Offset(0, 1).Select
    Else
        Target = "X"
        Target.Offset(0, 3) = Date + Time
        Target.Offset(0, 1).Select
    End If
' ActiveSheet.protect
Application.EnableEvents = True
End Sub

çok teşekkürler, zahmet verdim.

 

[granit2424]

süper olmuş bu kod işimi görür, cidden çok makbule geçti teşekkürler