Call sorunu

[thugangel]

Merhabalar. Ekli dosyamdaki sorunum ekle butonuna bastığımda ilk bulduğu boş satıra ekliyor. Ancak ben P7 ye her yeni veri girişimde bunu otomatik olarak yapsın istiyorum. Call olarak denedim ama o zaman da hiç durmadan peşpeşe ekliyor.Yardım ederseniz çok sevinirim.

 

[accountant80]

Merhaba çalışmanıza şu kodu ekleyip dener misiniz? p7 her değiştiğinde ekle makrosu çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [p7]) Is Nothing Then Exit Sub
Call ekle

End Sub

 

[thugangel]

Çok teşekkür ederim.Ellerinize sağlık.Bir sorum daha olacak ekle den sonra P7,G7,F7,E7,C7,B7 deki verileri silip aktif hücre B7 olabilir mi?

 

[accountant80]

Tabi ki...
Kodu şu şekilde değiştirin, yalnız p7 satırını sildirirsek sonsuz döngüye girer o yüzden p7 yi sildirmedim.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [p7]) Is Nothing Then Exit Sub
Call ekle
Range("g7").Value = ""
Range("f7").Value = ""
Range("e7").Value = ""
Range("c7").Value = ""
Range("b7").Value = ""
Range("b7").Select
End Sub

 

[thugangel]

Çok teşekkür ederim.

 

[accountant80]

Rica ederim, güle güle kullanın

 

[thugangel]

Üstadım, son bir sorum olacak sonsuz döngüye girmemesi için Q hücresine gelince bu işlemi yaptırmaya çalıştım ama olmadı.Yani aktif hücre Q olduğu anda P7,G7,F7,E7,C7,B7 deki verileri silip aktif hücre B7 olsun istiyorum. Bir sürü kod denedim ama olmadı.Yardım ederseniz çok sevinirim.

 

[accountant80]

Maalesef, aklıma gelen her türlü kodla döngüye giriyor.