hücreye bilgi girince işlem yapsın

[reelabuzer]

iyi akşamlar arkadaşlar
bir konuda yardıma ihtiyacım var
örnek bir textbox ın yordamına
"Private Sub TextBox1_Enter()" girince veya
"Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)" çıkınca verilen işlemi yap diyebiliyoruz acaba bunu belirlediğimiz hücrelere ( A1:A25 gibi ) bilgi girişi olunca belirledğim işlemi yaptırabilirmiyiz forumda araştırdım bulabildiğim kodlar ile şöyle bir kod yazdım

"Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
[a1] = [a1] / [2,5]
End Sub"

bu a1 hücresi için çalışıyor ama a2 a3 a... için yapamadım gerçi doğrumu yapmışım bilemiyorum ama en azından bir satır için çalışıyor
yardımcı olursanız sevinirim ilgilenecek arkadaşlara şimdiden teşekkürler.

 

[İhsan Tank]

iyi akşamlar arkadaşlar
bir konuda yardıma ihtiyacım var
örnek bir textbox ın yordamına
"Private Sub TextBox1_Enter()" girince veya
"Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)" çıkınca verilen işlemi yap diyebiliyoruz acaba bunu belirlediğimiz hücrelere ( A1:A25 gibi ) bilgi girişi olunca belirledğim işlemi yaptırabilirmiyiz forumda araştırdım bulabildiğim kodlar ile şöyle bir kod yazdım

"Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub[a1] = [a1] / [2,5]
End Sub"

bu a1 hücresi için çalışıyor ama a2 a3 a... için yapamadım gerçi doğrumu yapmışım bilemiyorum ama en azından bir satır için çalışıyor
yardımcı olursanız sevinirim ilgilenecek arkadaşlara şimdiden teşekkürler.

üstte kırmızıya boyadığım yere

If Intersect(Target, Range("[COLOR="red"]B1:B2[/COLOR]")) Is Nothing Then Exit Sub

bu kodu ayzarak aralığı genişletebilirsiniz kırmızı olan yeri kendinize göre ayarlayınız

 

[reelabuzer]

sayın TANK uğraşlarınız için ALLAH razı olsun ama verdiğiniz kod işimi görmedi sonradan farkettim ki benim yapmak istediğim şeyi yapmaya çalışınca kısır döngü oluyor ben şunu yapmak istiyordum diyelim ki ben A1 hücresine 150 rakamını girdim hücreden ayrıldığımda veya entere bastığımda önceden belirlediğim bir sayıya örnek 2,5 e bölsün ve değeri yine A1 hücresine yazsın sanırım bu istediğimi yapamayacağım başka bir yol bulmalıyım
yinede sağolun

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A25")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target <> "" Then
        Application.EnableEvents = False
        Target = Target / 2.5
        Application.EnableEvents = True
    End If
End Sub

 

[reelabuzer]

sayın Ayhan tam istediğim gibi oldu ALLAH razı olsun