Soru "onay kutusu ekleme" acil yardım

[nurullah 16]

merhaba arkadaşalar. ekteki çalışma dosyamda "sistem onayı" sütununa "onay kutusu ekleyip" "sistem onayı alındı" veya "red" edildi gibi bir işlem yapılmasını istiyorum. bu konuda yardımcı olursanız sevinirim. şimdiden tşk ederim.
onay kutusu ekleme

 

[Muzaffer Ali]

Merhaba.

Rapor sayfasının kod kısmına aşağıdaki kodu kopyalayın.
Hücreye çift tıklama ile Red ve Onay yazılmaktadır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("H3:H" & Rows.Count)) Is Nothing Then
        Cancel = True
        If Target.Value = "Onay" Then
            Target.Value = "Red"
        Else
            Target.Value = "Onay"
        End If
    End If
End Sub

 

[nurullah 16]

çok teşekkür ederim aslında tam istediğim buydu lakın. sayfanın her hücresine tıkladığımda onay veya red çıkıyor. isteğim ise "H3" Başlayıp bu sütüne yazmasıdır.

 

[Korhan Ayhan]

Konu Başlığı:
- Konu başlıklarını konunun içeriğini ifade eden şekilde seçilmesi gerekmektedir. (yardım, lütfen, kişiye özel gibi başlıklar uyarı yapılmaksızın silinebilir veya düzeltilebilir)

 

[nurullah 16]

üstad var olasın hep uyarıyorsunuz bir günde bizi şaşırt ve yardımcı olsanız. selamlar

 

[Muzaffer Ali]

çok teşekkür ederim aslında tam istediğim buydu lakın. sayfanın her hücresine tıkladığımda onay veya red çıkıyor. isteğim ise "H3" Başlayıp bu sütüne yazmasıdır.

Kodu düzenledim yeniden deneyin.

 

[Korhan Ayhan]

üstad var olasın hep uyarıyorsunuz bir günde bizi şaşırt ve yardımcı olsanız. selamlar

Kullanıcılar forum kurallarına uymaya azami gayret gösterseler bizlerde bu işlerle vakit kaybetmezsek yardımcı olmaya zamanımız kalır.

Ama maalesef... Ofis versiyonu bölümünü düzgün bile yazamıyorlar...

 

[nurullah 16]

Merhaba.

Rapor sayfasının kod kısmına aşağıdaki kodu kopyalayın.
Hücreye çift tıklama ile Red ve Onay yazılmaktadır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("H3:H" & Rows.Count)) Is Nothing Then
        Cancel = True
        If Target.Value = "Onay" Then
            Target.Value = "Red"
        Else
            Target.Value = "Onay"
        End If
    End If
End Sub

çok sağ olun. şimdi oldu....

 

[nurullah 16]

Kullanıcılar forum kurallarına uymaya azami gayret gösterseler bizlerde bu işlerle vakit kaybetmezsek yardımcı olmaya zamanımız kalır.

Ama maalesef... Ofis versiyonu bölümünü düzgün bile yazamıyorlar...

kötü laf soktun hocam..

 

[Korhan Ayhan]

Derdim hiçbir zaman laf sokmak olmadı. Aksine forumun daha efektif kullanılmasını sağlamak amacındayım.