Hücreye tıklayarak değer yazdırmak

[SİBEL70]

Merhabalar

Çalışma Sayfasında B sütunundaki hücrelere tıkladığımda kayıt ifadesini otomatik yazdırmak için nasıl bir kod kullanmam gerekiyor yardımcı olabilirseniz sevinirim

 

[İhsan Tank]

Merhaba
Sorunuzu anlamadım biraz daha açık anlatabilir misiniz_?

 

[SİBEL70]

hatlar çok kötü mesaj göndermekte zorluk çekiyorum. Tekrar tekrar geliyor mesajlar kusura bakmayın

 

[SİBEL70]

İhsan Bey merhabalar,

Yapmak istediğim b1 hücresine tıklayınca yine b1 hücresine tamam yazacak b2 ye tıkladığımda b2 hücresine tamam yazacak

Saygılar

 

[İhsan Tank]

İhsan Bey merhabalar,

Yapmak istediğim b1 hücresine tıklayınca yine b1 hücresine tamam yazacak b2 ye tıkladığımda b2 hücresine tamam yazacak

Saygılar

Merhaba
Sayfanın kod bölümüne kopyalayın

Option Explicit
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
If Intersect(Target, Range("B1:B" & Rows.Count)) Is Nothing Then Exit Sub
Target = "Tamam"
ElseIf Target.Column = 11 Then
If Intersect(Target, Range("K1:K" & Rows.Count)) Is Nothing Then Exit Sub
Target = "Tamam"
End If
End Sub

 

[SİBEL70]

İhsan Bey teşekkür ediyorum çözümlendi konum

 

[İhsan Tank]

İhsan Bey teşekkür ediyorum çözümlendi konum

Rica ederim
:keyif:

 

[SİBEL70]

İhsan Bey

Bu koda K sütununuda aynı şekilde ilave etmeye çalışıyorum ancak sürekli hata veriyor. Kısacası beceremedim bir türlü. Bir kez daha destek verirseniz sevinirim

 

[İhsan Tank]

İhsan Bey

Bu koda K sütununuda aynı şekilde ilave etmeye çalışıyorum ancak sürekli hata veriyor. Kısacası beceremedim bir türlü. Bir kez daha destek verirseniz sevinirim

Üstteki kodu güncelleştirdim

 

[SİBEL70]

İhsan bey elinize emeğinize sağlık çok teşekkür ediyorum
saygılar