hücreyi tıklayınca içindeki değerin değişmesi

[umax**]

Excel'de bir hücrenin içini tıklayınca hücre içinde farklı bir değer alması için ne tür bir işlem yapılabilir. Örnek vermek gerekirse K sütununda herhangi bir hücreyi tıklayınca ARANDI yazsın. Tekrar tıklayınca ise ARANMADI olarak değişsin. Macro ile yapmaya çalıştım ancak bir türlü olmadı. Yardımlarınız için şimdiden teşekkür ederim.

 

[hamitcan]

Aşağıdaki kodu, ilgili sayfanın kod kısmına ekleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 11 Then Exit Sub
    If Target = "ARANDI" Then
    Target = "ARANMADI"
    ElseIf Target = "ARANMADI" Then
    Target = "ARANDI"
    End If
End Sub

 

[Seyit Tiken]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Target.Column = 11 Then Exit Sub
If ActiveCell = "Arandı" Then
Target = "Aranmadı"
ActiveCell.Offset(1).Select
Else
Target = "Arandı"
ActiveCell.Offset(1).Select
End If
End Sub

 

[umax**]

sayın Hamitcan
yardımınız için gerçekten çok teşekkür ederim ancak göndermiş olduğunuz kodlar çalışmadı. ilgili hücreleri tıklayınca herhangi bir değişiklik olmuyor.

 

[umax**]

arkadaşlar ben mi bir yerde yanlış yapıyorum diye düşünüyorum. yaptığım iş gönderilen kodları yeni bir modül açarak bu modüle yapıştırmak ve kaydetmek. sonrada çalışıp çalışmadığını kontrol ediyorum. yapılması gereken farklı bir işlem varmıdır.

 

[Orion1]

Çalışma sayfasının kod bölümüne yazınız.
Verileri K sütununa giriniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 11 Then Exit Sub
    On Error GoTo son
    If Target.Value = "" Then
            Target.Value = "ARANDI"
            Exit Sub
    End If
    If Target = "ARANDI" Then
    Target = "ARANMADI"
    ElseIf Target = "ARANMADI" Then
    Target = "ARANDI"
    End If
son:
End Sub

 

[umax**]

arkadaşlar hepinize çok teşekkür ederim. sonunda oldu.