Toplama işlemini nasıl yapabilirim.

[mekemaloglu]

Merhaba arkadaşlar;

A1 hücersine bir sayı girdiğimde B1 hücresine toplam alacak. Ancak A1 hücresini sildiğimde B1 hücresindeki bilgiler silinmeyecek. A1 hücresine her yeni bilgi girildiğinde bu bilgileri B1 hücresi sürekli toplayacak.
Yardımcı olursanız memnun olurum.
Sygılar.

 

[alpi]

Çalıştığınız sayfayı sağ tıklayın ve kod görüntüleyi seçin aşağıdaki kodları yapıştırın

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if target.address ("A1") then
range("B1")= range("B1") +range("A1")
end sub
End Sub

 

[serdar1925]

bu işlemi yaptığımızda aşağıdaki mesajı alıyoruz:

"compile error
block If without End If"

neyi yanlış yapıyoruz?

 

[zafer]

Merhaba

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("B1") = Range("B1") + Range("A1")
End If
End Sub

 

[serdar1925]

Merhaba Zafer Bey,

Su an verdiginiz durumda calısıyor ancak cok verimli degil, Þöyleki:

A1 hücresine deger girip enterladıgımda B1 hucresıne herhangı bır sey yazmıyor, daha sonra imleci A1 hucresine tıkladıgım anda o degerı gırıyor. Yani yeni bir deger girmek istedigimde daha önce girilmiş olan degeri mutlaka bir daha girmis oluyor .

Ve bu sekilde oluncada hic saglıklı calısılamıyor.

Baska bir cozum bulunabilir mi?

 

[serdar1925]

Tesekurler ama bu seferde A1 hucresının dısına cıkamıyorum? :?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki gibi deneyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("B1") = Range("B1") + Range("A1")
End If
End Sub

 

[serdar1925]

Alipi, Zafer ve Cost Control tesekurler, :icelim:

Bunu A2 den B2 ye, A3 den B3 e ve boyle asagıya dogru devam eden daha fazla sayıda hucreye nasıl uygulatabilirim?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki gibi deneyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Target.Offset(0, 1) = Target.Offset(0, 1) + Target.Value
End Sub

 

[serdar1925]

Bu da tamam elinize sağlık ama son iki sorum daha olacak:

* Ben bunlari ekteki dosyada kullanmak istiyorum. Orada biraz daha genis capli uygulatmak gerekiyor bunu nasil sagliyabiliriz? Yani su an sadece bir sutunda calisiyor birden fazla sutunda calisir mi?

* Bu işlemi aynı hucrede yaptırabilme gibi bir sansimız olabilir mi? Yani A1 hucresine bir deger girdik daha sonra ikinci bir deger girdigimizde daha oncekinin uzerine ekleme yapabilirmiyiz? Bu belki biraz ucuk oldu ama bu sitede gorduklerimden sonra olabilirligi agir basiyor

 

[serdar1925]

Gerek kalmadı ben manuel bir cozum daha gelistirdim Gerek kalmadi. Tesekurler her sey icin.