Hücreye girilen değeri sabit bir değerle toplatmak

[albatros55]

A1 de sabit bir sayı var. 4,95 mesela.
A2 de bir başlık var.
A3 ve aşağısında değerler girilecek.

İstediğim: A3'e örneğin 10 yazıp entere bastığımda otomatik olarak 4,95 ile toplayıp hücrede 14,95 çıkakacak. sonraki satıra ne yazarsam yazayım entere basınca 4,95 ile yani A1 ile toplayıp sonucunu hücereye yazması.

Not: Makro nedir bilmiyorum, sadece excelde basit formülleri yapabiliyorum.

 

[Barons]

böyle bir şeymi istediğiniz

 

[albatros55]

böyle bir şeymi istediğiniz

Hocam bir şey göremedim mesajda? Ayrıca dosya indiremiyorum, sanırım bir dosya yolladınız örnek olarak.

 

[EmrExcel16]

Makrosuz bu işlem zor ..

 

[albatros55]

Makrosuz bu işlem zor ..

Aşama aşama izah ederseniz yapmaya çalışırım.

 

[burhancavus61]

bende pek anlamadım ama böyle bişeymi bilemedim

 

[EmrExcel16]

Aşama aşama izah ederseniz yapmaya çalışırım.

Bu kodları sayfanın kod bölümüne yapıştırın.

Sayfanın kod bölümü = sayfa ismi üzerinde sağ tıkla => kod görüntüle => gelen ekranda sayfa ismi yazan yere çift tıkla gelen beyaz ekrana kodları yapıştır bu sayfayı kapat. Dosyayı kaydederken farklı kaydet makro içerebilen dosya olarak kaydet *xlsm uzantılı.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A3:A10000]) Is Nothing Then Exit Sub
    On Error Resume Next
    Application.EnableEvents = False
    Target = Target + [A1]
    Application.EnableEvents = True
End Sub

 

[albatros55]

Bu kodları sayfanın kod bölümüne yapıştırın.

Sayfanın kod bölümü = sayfa ismi üzerinde sağ tıkla => kod görüntüle => gelen ekranda sayfa ismi yazan yere çift tıkla gelen beyaz ekrana kodları yapıştır bu sayfayı kapat. Dosyayı kaydederken farklı kaydet makro içerebilen dosya olarak kaydet *xlsm uzantılı.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A3:A10000]) Is Nothing Then Exit Sub
    On Error Resume Next
    Application.EnableEvents = False
    Target = Target + [A1]
    Application.EnableEvents = True
End Sub

Çok teşekkür ederim, sihir gibi geldi

Fakat şöyle bir durum var; ben istediğim kolay anlaşılsın dye tek sütun örneği üzerinden sordum. Yan yana örneğin 10 sütunda bu işlemi yapmasını istesem makroyu nasıl düzenlemek gerekiyor?

Benim gerçek dosyamda bu işleme AA'sonra AL'ye kadar ihtiyacım var.Verdiğiniz kodda A yerine AA yazıp istediğim sütunda ilgili işlemi yaptırdım ama dediğim gibi AL ye kadar yapmasını istesem ne gibi bir değişiklik yapmak gerekecek?

 

[albatros55]

bende pek anlamadım ama böyle bişeymi bilemedim

Hocam sanırım altın üye olmadığımdan göremiyorum dosyayı. Yine de teşekkür ederim.

 

[EmrExcel16]

Çok teşekkür ederim, sihir gibi geldi

Fakat şöyle bir durum var; ben istediğim kolay anlaşılsın dye tek sütun örneği üzerinden sordum. Yan yana örneğin 10 sütunda bu işlemi yapmasını istesem makroyu nasıl düzenlemek gerekiyor?

Benim gerçek dosyamda bu işleme AA'sonra AL'ye kadar ihtiyacım var.Verdiğiniz kodda A yerine AA yazıp istediğim sütunda ilgili işlemi yaptırdım ama dediğim gibi AL ye kadar yapmasını istesem ne gibi bir değişiklik yapmak gerekecek?

Kodları şu şekilde değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [AA3:AL10000]) Is Nothing Then Exit Sub
    On Error Resume Next
    Application.EnableEvents = False
    Target = Target + Cells(1, Target.Column)
    Application.EnableEvents = True
End Sub

 

[albatros55]

Kodları şu şekilde değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [AA3:AL10000]) Is Nothing Then Exit Sub
    On Error Resume Next
    Application.EnableEvents = False
    Target = Target + Cells(1, Target.Column)
    Application.EnableEvents = True
End Sub

Emeğiniz ve ayırdığınız vaktiniz için çok teşekkür ederim. Çok güzel oldu.

 

[EmrExcel16]

Emeğiniz ve ayırdığınız vaktiniz için çok teşekkür ederim. Çok güzel oldu.

Rica ederim , iyi çalışmalar.