T harfine bastığımda tamam yazması mümkünmüdür?

[adventurous26]

Arkadaşlar merhaba örneğin B sütununda herhangi bir yerde T harfine bastığımda otomatik olarak Tamam yazması mümkünmüdür? teşekkürler şimdiden

 

[ÖmerBey]

İlgili sayfanın kod bölümüne aşağıdaki kodu yazabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Target = "T" Or Target = "t" Then Target.Value = "Tamam"
End Sub

 

[adventurous26]

slm

bişey daha sorucam ilginize çok teşekkür ederim bu arada peki tamam yazınca aynı zamanda da o hücreyi sarı yapabilirmi?

 

[ulutanas]

Bu benimde işime yaradı adventurous26 arkadaşımızın aklına gelmiş mucit bey de mükemmel bilgisini paylaşmış ikinizede teşekkürler arkadaşlar

İyi çalışmalar

Saygılarımla...

 

[Emir Hüseyin Çoban]

bişey daha sorucam ilginize çok teşekkür ederim bu arada peki tamam yazınca aynı zamanda da o hücreyi sarı yapabilirmi?

. . .

Koşullu biçimlendirme tavsiye ederim. Verileri sildiğinizde eski biçimine dönmesi açısından.

Hücre aralığını seçin ( B sütunu )
Koşullu biçimlendirmeden aşağıdaki adımları takip edin.

. . .

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
If Target = "T" Or Target = "t" Then
Target.Value = "Tamam"
Target.Interior.Color = 65535
Else
Target.Interior.Color = xlNone
End If
End Sub

 

[adventurous26]

merhaba arkadaşım ilginize teşekkür ediyorum emeğinize sağlık ancak bu kodları ekteki dosyamdaki makro kodlarının içinde uyguladığımda hata veriyor dosyayı incelemeniz mümkünmüdür acaba?

 

[ÖmerBey]

Ne hatası aldığınızı da belirtseymişiniz. Dosyanızda bir problem gözükmüyor.
C sütununda t harfini yazıp enter tuşuna bastığınızda Tamam yazıyor.

 

[adventurous26]

evet ama raporlama butonuna basılıp makrolar çalıştığı zaman yeni eklediğim dosyadaki gibi hata veriyor ve makro duruyor.

 

[adventurous26]

??????????

 

[ÖmerBey]

Şu şekilde düzeltirseniz birbirlerinden etkilenmezler.

Private Sub Worksheet_hange(ByVal Target As Range)
If Intersect(Target, Range("[COLOR="Red"]C6:C65500[/COLOR]")) Is Nothing Then Exit Sub
If Target = "T" Or Target = "t" Then Target.Value = "Tamam"
End Sub

Ya da isterseniz C sütununa çift tıklama ile de "Tamam" yazdırabilirsiniz.
Aşağıdaki kodu yine sayfanın kod kısmına eklerseniz belirtilen aralıktaki hücrelere çift tıkladığınızda "Tamam" yazar. Böylece change olayı olmadığı için sayfada yapılan değişikliklerden de etkilenmez.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C6:C65500")) Is Nothing Then Exit Sub
Target.Value = "Tamam"
End Sub