giriş yapılan hücrede işlem yapsın

[elice]

ustalarıma şimdiden teşekkür ediyorum.

yapmak istediğim şey a1, a2, a3 ..... a*** hücrelerine örneğin 118 ytl veri (rakamlardan oluşan veri) girdiğimde aynı hücre içersinde 100 yapsın (yani 118 e bölüp, 100 le çarpsın, tabi altındaki diğer hücrelerde de) "hücrelere bilgi girildikçe yeni rakama aynı işlemi uygulasın"

 

[elice]

ilgilenen bir usta yokmu

 

[Orion1]

Çalışma sayfasının kod bölümüne.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Value = 100
Application.EnableEvents = True
End Sub

 

[Ayhan Ercan]

Merhaba

Sayın Evren Gizlen hocam kodları vermiş ancak,

Anladığım kadarıyla hücreye girilen rakamın %18 KDV hariç rakamını bulmak istiyorsunuz.

Eğer öyle ise Evren hocamın kodlarında aşağıdaki değişikliği yapın...

[LEFT]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Application.EnableEvents = False
[COLOR=red][B]Target.Value = Target.Value / 1.18
[/B][/COLOR]Application.EnableEvents = True
End Sub[/LEFT]

 

[elice]

sayın evren gizlen öncelikle teşekkür ediyorum,

istediğimiz ; her hücreyi giriş değeri üzerinde 118 bölüp 100 le çarpması,
örneğin a1' e 118 yazdığımızda 100 yapsın
a2'ye 500 yazdığımızda 423,72 yapsın

 

[Ayhan Ercan]

4 nolu mesajı inceleyiniz..

 

[elice]

sizlere ne kadar teşekkür etsem az, büyüksünüz

elleriniz dert görmesin, teşekkürler

 

[elice]

arkadaşlarım yeniden ihtiyacım oldu, şöyle ki, b stününa yazdıklarımı da % 8 e bölsün istiyorum.

örneğe bakarak yapmaya çalıştım ama malesef beceremedim.
a stünu aynen kalacak , b stununa da yazılanı 1,08 e bölsün, emeğinize şimdiden teşekkürler,

 

[elice]

cevap verebilecek bir ustadan yardım bekliyorum. şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:B]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Column = 1 Then
    Target.Value = Target.Value / 1.18
    ElseIf Target.Column = 2 Then
    Target.Value = Target.Value / 1.08
    End If
    Application.EnableEvents = True
End Sub

 

[elice]

korhan bey çok teşekkür ediyorum_sorun çözüldü sayenizde