Tek hücreye yazdığım sayısal veriyi başka sayfada toplama ve ya çıkartma

[ser_kan01]

Merhabalar,

Excele çok hakim değilim, biraz araştırma yaptım fakat bir sonuç elde edemedim. son çare olarak sizlere yazmak istedim.

Bir hücreye +90 , +100, +140, -300 gibi değerleri yazmak istiyorum. ama hep aynı hücreye. bu sayıların toplamı ise başka hücrede görmek istiyorum. şimdiden çok teşekkür ederim.

 

[Ömer BARAN]

Merhaba, foruma hoşgeldiniz.

Belgeniz açıkken alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin.
Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
Belgeyi MAKRO İÇEREBİLEN EXCEL BELGESİ olarak kaydedin.
(Belgeyi ilk kez açtığınızda MAKROLARI ETKİNLEŞTİRİN)

Artık A1 hücresine yazdığınz değerler B1 hücresinde toplanır.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B][COLOR="Red"][A1][/COLOR][/B]) Is Nothing Then Exit Sub
If Not IsNumeric(Target) = True Then
MsgBox "A1 hücresine sadece sayı yazmalısınız.": Target = ""
Exit Sub: End If
If Target = "" Then Exit Sub
[B][COLOR="blue"][B1][/COLOR][/B] = [B][COLOR="Blue"][B1][/COLOR][/B] + Target: Target = "": Target.Activate
End Sub[/FONT]

 

[ser_kan01]

Verdiğiniz hızlı cevap için öncelikle çok teşekkür ediyorum Ömer bey. Sizlerin sayesinde güzel şeyler öğreniyorum gerçekten çok sağ olun. Eğer haddimi aşmamış olursam küçük bir ricam daha olacaktı,

Oluşturulan B1 verisini diğer sayfada (Sayfa 2 de ) yapmak için ne yapmam gerekiyor, ayrıca bu kodlamayı A sütununda belkide 50 Sıra yapmam gerekecek.

Eğer sizi çok uğraştıracak isem boş verin gitsin

 

[Ömer BARAN]

Malesef bu şekilde sorun çözmekten çok yeni sorunlar yaşanacağı ve konunun gereksiz şekilde uzayacağı ortaya çıkıyor.

İsterseniz sorunuzu, (cevaplarımın altındaki İMZA bölümünde yer alan açıklamaları okuyarak)
bir örnek belge ile destekleyin ki hızlı ve net çözüme ulaşabilesiniz.
Ben veya başka bir üye mutlaka çözüm önerecektir.

 

[ser_kan01]

Malesef bu şekilde sorun çözmekten çok yeni sorunlar yaşanacağı ve konunun gereksiz şekilde uzayacağı ortaya çıkıyor.

İsterseniz sorunuzu, (cevaplarımın altındaki İMZA bölümünde yer alan açıklamaları okuyarak)
bir örnek belge ile destekleyin ki hızlı ve net çözüme ulaşabilesiniz.
Ben veya başka bir üye mutlaka çözüm önerecektir.

Destekleriniz için çok teşekkür ederim, biraz da ben kendim araştırayım. Buraya kadar öğrenmek bile çok zevkli. Tekrar teşekkür ederim.

 

[Ömer BARAN]

Önceki verdiğim cevaptaki kod'a ilave yaptım.

Böylece sayı dışında veri girildiğinde uyarı ve silme,
sayı girildiğinde, toplama sonrası A1 hücresinin boşaltılması ve
A1 hücresinin yeni veri girişi yapmak üzere seçili hale getirilmesi sağlandı.
Saşfayı yenileyerek önceki cevabıma tekrar bakın.

 

[ser_kan01]

Önceki verdiğim cevaptaki kod'a ilave yaptım.

Böylece sayı dışında veri girildiğinde uyarı ve silme,
sayı girildiğinde, toplama sonrası A1 hücresinin boşaltılması ve
A1 hücresinin yeni veri girişi yapmak üzere seçili hale getirilmesi sağlandı.
Saşfayı yenileyerek önceki cevabıma tekrar bakın.

Düzeltmeler için Çok Teşekkür ederim Ömer Bey, Şimdi Dosya Linkini atıyorum fakat sizin son gönderdiğiniz kodu henüz eklemedim ama ufak ufak mantığı anladım

 

[ser_kan01]

http://s9.dosya.tc/server/lg1ixf/Personel_Sure_Takip.rar.html

 

[Ömer BARAN]

Kod, ilgili sayfanın kod bölümüne uygulanmalıdır.

B sütununa veri yazılıp toplama işleminin ardından aynı hücrenin seçili olmasını istemiyorsanız mavi renklendirdiğim kısmı silin.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
alan = "B2:B" & [A65536].End(3).Row
If Intersect(Target, Range(alan)) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If Not IsNumeric(Target) = True Then
MsgBox "B sütununa sadece sayı yazmalısınız."
Target = "": Target.Activate: Exit Sub: End If
Cells(Target.Row, "C") = Cells(Target.Row, "C") + Target
Target = ""[COLOR="Blue"]: Target.Activate[/COLOR]
End Sub[/FONT]

 

[ser_kan01]

Kod, ilgili sayfanın kod bölümüne uygulanmalıdır.

B sütununa veri yazılıp toplama işleminin ardından aynı hücrenin seçili olmasını istemiyorsanız mavi renklendirdiğim kısmı silin.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
alan = "B2:B" & [A65536].End(3).Row
If Intersect(Target, Range(alan)) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If Not IsNumeric(Target) = True Then
MsgBox "B sütununa sadece sayı yazmalısınız."
Target = "": Target.Activate: Exit Sub: End If
Cells(Target.Row, "C") = Cells(Target.Row, "C") + Target
Target = ""[COLOR="Blue"]: Target.Activate[/COLOR]
End Sub[/FONT]

İlginiz için çok teşekkür ediyorum Ömer bey. Gecenin bu saatinde uğraştınız. Ne dileğiniz varsa gerçekleşir umarım. İyi geceler.

 

[Ömer BARAN]

Eyvallah, kolay gelsin.
Çorum'a selam olsun.