Enter Tuşu ile makro çalıştırma

[japonbaba]

sitede buna benzer konular var hepsini araştırdım lakin dosyada aynı benzer vba kodları olduğu için kayıt makrosunu çalıştıramıyorum bütün kodlar hata veriyor. Yapmak istediğim D3 hücresine değer girildikten sonra ENTER tuşu ile yapmış olduğum ürünekle mokrosu çalışması şimdiden teşekkürler..

 

[antonio]

Merhaba,
Sayfadaki kodlarınızın arasına aşağıdaki satırı ekleyin:

If Target.Address(False, False) = "D3" Then Call URUNEKLE

 

[japonbaba]

Merhaba,
Sayfadaki kodlarınızın arasına aşağıdaki satırı ekleyin:

If Target.Address(False, False) = "D3" Then Call URUNEKLE

Malesef bir çok satır arasına denedim lakin çalışmadı

 

[antonio]

Malesef bir çok satır arasına denedim lakin çalışmadı

Kodlarınızın 3.satırında bulunan aşağıdaki kod satırını silmelisiniz.

If Intersect(Target, Range("c3")) Is Nothing Then Exit Sub

Bu satır, C3 hücresi dışındaki işlemlerin dikkate alınmamasını sağlar.

 

[japonbaba]

Kodlarınızın 3.satırında bulunan aşağıdaki kod satırını silmelisiniz.

If Intersect(Target, Range("c3")) Is Nothing Then Exit Sub

Bu satır, C3 hücresi dışındaki işlemlerin dikkate alınmamasını sağlar.

c3 hücresi bana ürünler sayfamdaki verileri form olarak yada eşleşen kelime olara getirmeyi sağlıyor o satırı sildim lakin bu sfer hangi hücrede işlem yaparsam yapayım kodlarımı çalıştırıyor yani hata veriyor c3 hücresi ürünleri d3 miktarları belirliyor

 

[antonio]

c3 hücresi bana ürünler sayfamdaki verileri form olarak yada eşleşen kelime olara getirmeyi sağlıyor o satırı sildim lakin bu sfer hangi hücrede işlem yaparsam yapayım kodlarımı çalıştırıyor yani hata veriyor c3 hücresi ürünleri d3 miktarları belirliyor

Aşağıda bu mantığı açıklayan örnek bir kod gösteriyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then ' c sütunundasınız demektir
    'sadece c3 hücresinde işlem yapması için:
    If Target.Row <> 3 Then Exit Sub 'C sütundaysan 3 satır dışında işlem yapma
ElseIf Target.Column = 4 Then ' D sütunundasınız.
    If Target.Row <> 3 Then Exit Sub
    If [C3] <> "" Then 'c3 hücresi de dolu ise miktarı yazabilir, yoksa yazmaz
        Call URUNEKLE
    End If
End If
End Sub

 

[japonbaba]

Aşağıda bu mantığı açıklayan örnek bir kod gösteriyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then ' c sütunundasınız demektir
    'sadece c3 hücresinde işlem yapması için:
    If Target.Row <> 3 Then Exit Sub 'C sütundaysan 3 satır dışında işlem yapma
ElseIf Target.Column = 4 Then ' D sütunundasınız.
    If Target.Row <> 3 Then Exit Sub
    If [C3] <> "" Then 'c3 hücresi de dolu ise miktarı yazabilir, yoksa yazmaz
        Call URUNEKLE
    End If
End If
End Sub

İlginiz için teşekkür ederim lakin c3 hücresine verigirebilmem için (Örnek "vanaları" bulmam için "v" yazıp enter demem veya hücreden sağ ok tuşu vs. çıkmam yeterli bu şekilde bana bir form açıyor ve sadece v harfi ile başlayan ürünleri karşıma getiriyor sizin vermiş olduğunuz kodları girdiğimde hata alıyorum ve çalışmıyor kodlar hakkında çok fazla bilgiye sahip değilim siteden aldığım kodları kendime uyarladım istediğim kısım d3 hücresine miktarı yazdığımda kayıt makromu butona basarak değil enter ile veya hücreden çıkışımda çalıştırmak teşekkür ederim..

 

[japonbaba]

Konu ile alakalı yardımcı olabilecek varmıdır ?

 

[japonbaba]

Yardım lütfen:yardim::yardim:

 

[PLİNT]

Merhaba
Dosyanızdan bir örnek de www.dosya.tc adresine ekleyip link verirmisiniz?

 

[japonbaba]

http://s6.dosya.tc/server11/prl0q7/Kesif_Ozeti_Fiyatlandirma.rar.html

 

[PLİNT]

Merhaba
Ek dosyayı denermisiniz?
http://s6.dosya.tc/server11/bbtdaa/Kesif_Ozeti_Fiyatlandirma2.zip.html

 

[japonbaba]

ÇOK TEŞEKKÜR EDİYORUM ELLERİNİZE SAĞLIK :hey: