excelde ENTER ' e bastığımda değer atama (makro)

[zamzam23]

selam

excel makro uygulamalarında henüz çok yeniyim.

A1 hücresine birşeyler yazıp enter'e bastığımda, B1 hücresine "OK" yazsın istiyorum. Bunu makro ile nasıl yapabilirim?

Teşekkürler.

 

[turist]

Çalışma Sayfanızın kod bölümüne:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Not Intersect(Target, [COLOR="Red"]Range("A1:A1")[/COLOR]) Is Nothing Then
        Target.Offset(0, 1) = "OK"
    End If
End Sub

şeklinde uygulayın.
Uygulama sadece A1 hücresi içindir, uzatmak isterseniz
Range("A1:A1") kısmını ; Range("A1:A100") gibi istediğiniz şekilde değiştirebilirsiniz.

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasının kod bölümü için kodlar:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    Target.Offset(0, 1) = "OK"
End Sub

. . .

 

[zamzam23]

teşekkürler.

 

[tncy1455]

merh. arkadaşlar
sizlerden bir ricam var.bir tablo hazırladım makrolu,c1 hücresine yazdığım kişiyi aşağıdaki tablodan bulup o kişinin bulunduğu satırı getiriyor.bir tane buton var o butona basınca f3 sütununa filitrreyi uygulayıp buluyor.
benim istediğim şu; yazdığım kişiyi enter tuşuna basınca bulup getirsin
entera o arama butonunu nasıl bağlayabilirim.

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayınız.

Kod içindeki Call Makronuz yazan bölüme kendi butna tanımlı olan makro adını yazınız.

C1 hücresine birşey yazıp enter tuşuna bastığınızda kod çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("C1")) Is Nothing Then
        Call Makronuz
    End If
End Sub