iki hücre doluysa makro çalışsın

[bmutlu966]

E ve F kolonlarına giriş yapıyorum.

Private Sub Worksheet_Change(ByVal Target As Range)

özelliğini kullanarak E ve F kolonlarındaki son boş hücreye giriş yaptığımda data isimli makrom çalışsın istiyorum. Nasıl bir kod yazmalıyım. Denediğim kodlarda hep E kolonuna giriş yaptığımda makro çalıştı.

 

[askm]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E1:F65536")) Is Nothing Then Exit Sub
Dim SonSat As Long
SonSat = Range("E" & Rows.Count).End(xlUp).Row + 1
If Target.Row = SonSat Then
    Call Selam
End If
End Sub


Sub Selam()
MsgBox "SELAM"
End Sub

 

[bmutlu966]

Kod istediğim gibi çalışmadı. Örnek dosya ekledim. Yeşil alanları doldurduğumda data makrosu çalışsın ve ürünler sayfasından ilgili ürünün birim fiyatını getirsin istiyorum. (Bu dosya yanlış dosya, doğrusunu bir altta ekledim.)

 

[bmutlu966]

Yanlış dosya eklemişim. Doğru dosya bu.

 

[askm]

Data kodununu kontrol eder misiniz.

 

[bmutlu966]

Dosyaya sizin kodları girdim. E ve F kolonuna giriş yaptığımda makro çalışmıyor. Ancak E veya F kolonunda girdiğim değeri sildiğimde makro çalışıyor. Ben ikinci değeri girdiğimde makro çalışsın istiyorum. İki değeri kontrol ederek makronun çalışması uğraştıracak ise sadece ürün ismi girildiğinde de makro çalışırsa işimi görür.

 

[askm]

Aşağıdaki kodları kullanabilirsiniz. Test etmek için Data makronuzun sonuna MsgBox ekleyip deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D4:E65536")) Is Nothing Then Exit Sub
Dim SonSat As Long
SonSat = Range("E" & Rows.Count).End(xlUp).Row
If Target.Row = SonSat And Cells(Target.Row, "D") <> Empty And Cells(Target.Row, "E") <> Empty Then
    Call data
End If

End Sub

 

[bmutlu966]

Çok teşekkür ederim. Emeğinize sağlık.

 

[askm]

Rica ederim.Kolay gelsin.

 

[savsur]

ekte eklemiş olduğum dosya hakkında yardım edermisiniz dosyada a hücresine yazdığımda ve enter tuşuna bastığımda makro devreye giriyor barkoda çevrilecek verileri başka bir sayfadan kopyala yapıştır yaptığım için makro çalışmıyor ben a sutununa verileri yapıştırdığımda b sutunundaki makronun çalışmasını istiyorum yardım ederseniz çok sevinirim yukarıda yazılı kodu yaptım ama olmadı

 

[ÖmerFaruk]

Yeni sorunuzu yeni başlık altında sorarsanız daha hızlı cevap alabilirsiniz.