Hücreye veri girildiğinde makro otomatik çalışsın

[manyakbiri]

Arkadaşlar merhaba,

Makrolar yazılı bir excel dosyam var.

Hücrelerden birine şube kodunu yazıp tuşa basıldığında tahsil edilen komisyonları getiriyor makro.

Benim amacım hücreye şube kodu girildiğinde (mesela 130 yazdın.) tuşun otomatik olarak ben basmadan devreye girmesi.

Bunu şu şekilde yazmak istedim, olmadı.

Sub getir

If Range("B4") <> "" Then

Call Komisyon

End If 
End Sub

Yardımcı olabilir misiniz ?

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [B4]) Is Nothing Or Range("B4") = "" Then Exit Sub
    Call Komisyonthen
    
End Sub

 

[manyakbiri]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [B4]) Is Nothing Or Range("B4") = "" Then Exit Sub
    Call Komisyonthen
    
End Sub

Merhaba

Sub or function not defined hatası aldım. Ayrıca excel'in içinde Sil makrosu oluşturmuştum, onun üzerine tıklayınca o da hata vermeye başladı sizin kodunuzu yapıştırdığımda.

Ekleme: Kod başlangıcındaki Worksheet_Change'i silip, excel sheet'ine verdiğim ismi yazarak da denedim, olmadı.

 

[byfika]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B4]) Is Nothing Or Range("B4") = "" Then Exit Sub
Call Komisyon
End Sub
veya alttaki gibi yazarsanız
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("b4")) Is Nothing Then
Call Komisyon
End If
End Sub

kod çalışacaktır.
İyi çalışmalar.

 

[Necdet]

Neyi nasıl yaptığınızı ya da sayfadaki değişiklikler olunca kullandığınız diğer kodlarla uyuşmazlık olursa biz nereden bilelim?

çalışmayan dosyanızı paylaşım sitelerinden birine yükleyin, inceleyen ve çözüm önerecek arkadaşlar çıkacaktır.

Benim verdiğim kodlar sizin anlattığınızı yapan kodlar. Tabi her şeyi anlattıysanız.

 

[manyakbiri]

Sayın byfika dediğiniz gibi çalıştı çok teşekkür ederim.

Sayın Necdet, size de çok teşekkür ederim ve söyledikleriniz konusunda yerden göğe kadar haklı buluyorum sizi.

 

[Umut21]

Tablo içinde arama, otomatik makro çalıştırma

Yanlış mesaj yazdım. özür diliyorum

 

[xklxzet]

Neyi nasıl yaptığınızı ya da sayfadaki değişiklikler olunca kullandığınız diğer kodlarla uyuşmazlık olursa biz nereden bilelim?

çalışmayan dosyanızı paylaşım sitelerinden birine yükleyin, inceleyen ve çözüm önerecek arkadaşlar çıkacaktır.

Benim verdiğim kodlar sizin anlattığınızı yapan kodlar. Tabi her şeyi anlattıysanız.

Formada böyle atarlı msjlar denk geliyordu, "ya hu adamlar biliyorlar ama çok gerginler" diyordum, meğerse tüm atarları aynı kullanıcı yapıyormuş

 

[Grknpkdzn]

Herkese Merhaba.
Öncelikle yeni yılınız hayırlı olsun.
Bende bir şey öğrenmek isterim.
B107 hücresi ve sonrasında gelen hücrelere ad soyad girildiğinde bazen gereksiz boşluk bırakabiliyorlar.
Misal Ahmet_Hilmi__Özyüce gibi yada Ahmet_Hilmi_Özyüce_ gibi. Sadece aralarında boşluk olacak şekilde nasıl bir kod girilebilir?