Toplama işlemi

[sward175]

Herkese merhabalar,

Ekte iki kolondaki rakamları toplamak istiyorum, Araştırmalarımı yazıyı sayıya çevirme, noktalı rakamları virgüle çevirme formülleri ile yapmaya uğraştım fakat beceremedim. iki kolondaki rakamların toplanması için yardımlarınızı açıklayıcı olarak rica ederim.
Saygılarımla,
sward175

 

[Asri]

C4 de iken F2 yapın. Sayının başından bir tane boşluk kopyalayın.
Kopyalarken Shift basılı tutup Sağ ok bir defa sonra ctrl yi basılı tutup c yapın.

C ve D kolonlarını seçin. Ctrl yi basılı tutup H ye basın.

Aranan a Ctrl yi basılı tutup V deyin.

Yeni değere birşey yazmayın. Tümünü değiştir deyin.

Artık toplam alabilirsiniz.

Not: Sayıların başında ve sonunda boşluk karakterine benzer bir karakter var. Ama boşluk değil.
Düşük seviyeli anlatım için kusura bakmayın.

 

[memo'o]

Ben de bi soru sormak istiyorum c sutununda 5 yazdıgında a hücresindeki sayıyla 10 u toplayıp c hücresiyle çarpmak istiyorum vba ile nasıl yazabilirim tüm sütün boyunca.. Benzer işlemi tarih olayında yaptım ama iş toplama cıkarmaya gelince tıkandım yardımlarınız için şimdiden teşekkürler

 

[anemis]

shift e basılı tutup kopyalama fikri çok zekice sayın asri. bende farkettim başındaki boşluğu ancak ben boşluk olarak düşündüm. farklı bir karakter olması çok ilginç. elinize sağlık.

 

[Asri]

Ben de bi soru sormak istiyorum c sutununda 5 yazdıgında a hücresindeki sayıyla 10 u toplayıp c hücresiyle çarpmak istiyorum vba ile nasıl yazabilirim tüm sütün boyunca.. Benzer işlemi tarih olayında yaptım ama iş toplama cıkarmaya gelince tıkandım yardımlarınız için şimdiden teşekkürler

Öncelikle 5 i C kolonu boyunca mı yazıyorsunuz.

(A1+10)*C nin sonucu D ye mi yazmak istiyorsunuz.

Bu formül aşağıdaki doğru A2,A3..A100 gibi mi ilerleyecek. Bu aşağı iniş sırasında C de hep 5 mi olacak.

 

[Asri]

shift e basılı tutup kopyalama fikri çok zekice sayın asri. bende farkettim başındaki boşluğu ancak ben boşluk olarak düşündüm. farklı bir karakter olması çok ilginç. elinize sağlık.

Ben de ilk aşamada boşluk sanarak, bul değiştir yaptım. Ancak değişmediğini görünce onu bul değiştir demek gerekti

 

[sward175]

Asri Bey,

Teşekkür ederim,
sward175

 

[memo'o]

şöyle özetleyeyim c de 5 yazarsam 10 la 6 yazarsam 11 le toplamasını istiyorum bu işlem bütün sütün boyunca işlesin yazmaz isem boş kalsın istiyorum

 

[Asri]

şöyle özetleyeyim c de 5 yazarsam 10 la 6 yazarsam 11 le toplamasını istiyorum bu işlem bütün sütün boyunca işlesin yazmaz isem boş kalsın istiyorum

Benim kafam almadı, belki yorgunluktan.

dosya.tc yada dosya.co ya örnek excel dosyanızı yükleyip link verebilir misiniz?
formülsüz el ile yapılmış bir kaç örnek ekleyin.

 

[anemis]

şöyle özetleyeyim c de 5 yazarsam 10 la 6 yazarsam 11 le toplamasını istiyorum bu işlem bütün sütün boyunca işlesin yazmaz isem boş kalsın istiyorum

Örnek bir dosya ekleyebilir misiniz? Yardımcı olmaya çalışalım

 

[memo'o]

http://s3.dosya.tc/server12/8rwqw6/Deneme.rar.html


Umarım anlasılır olmustur teşekkürler

 

[memo'o]

http://s3.dosya.tc/server12/8rwqw6/Deneme.rar.html

Umarım anlaşılır olmuştur teşekkürler..

 

[zulfuernek]

=(C1*2)+1

basit bir matematiksel formül

C! hücresini kendinize göre uyarlayın

 

[Asri]

http://s3.dosya.tc/server12/8rwqw6/Deneme.rar.html

Umarım anlaşılır olmuştur teşekkürler..

Doğru anladıysam, G2 ye bu formülü yapıştırıp aşağı çekin.

=EĞER(C2="";;E2-(F2+(C2+5))*D2)

 

[memo'o]

formul olarak yazmakta sıkıntı yok makro olarak yazmak istiyorum gondermis oldugum ek sadece yapmak istedgimi ozetlemek için yapmıs oldugum bi örnek 7 sayfadan olusuyor ve içerisinde bolca formul var
veri girişi arttıkça donmalar ve kasmalar yasıyorum buna onlem olarak boyle bişey yapmak istiyorum mumkun mudur?

 

[Asri]

formul olarak yazmakta sıkıntı yok makro olarak yazmak istiyorum gondermis oldugum ek sadece yapmak istedgimi ozetlemek için yapmıs oldugum bi örnek 7 sayfadan olusuyor ve içerisinde bolca formul var
veri girişi arttıkça donmalar ve kasmalar yasıyorum buna onlem olarak boyle bişey yapmak istiyorum mumkun mudur?

VBA ayrıntısı gözden kaçmış.

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, [C:F]) Is Nothing Then
     satir = Target.Row
     If Cells(satir, "C") = "" Then
        Cells(satir, "G") = 0
     Else
        Cells(satir, "G").Value = Cells(satir, "E").Value - (Cells(satir, "F").Value + (Cells(satir, "C").Value + 5)) * Cells(satir, "D").Value
     End If
   End If
End Sub

 

[memo'o]

teşekkür ederim istediğim gibi oldu yalnız c de deger tanımlamasını nasıl yapacagız 5 6 olayı ?

 

[Asri]

teşekkür ederim istediğim gibi oldu yalnız c de deger tanımlamasını nasıl yapacagız 5 6 olayı ?

Anlamadım.

siz diğer bilgileri girerken c ye de 5,6,7 ne ise onu gireceksiniz.

C nin sıralı bir şekilde artmasını mı istiyorsunuz. Yada bilgi girerken C yi bir arttırırsınız

 

[memo'o]

ben biraz ugrasayım olmazsa yine yazarım asri bey cok tesekkurler beni buyuk bi sıkıntıdan kurtardınız ne zamandır ugrasıyorum

 

[memo'o]

If Not Intersect(Target, [C:F]) Is Nothing Then
     satir = Target.Row
     If Cells(satir, "C") = "5" Then
     Cells(satir, "G").Value = (Cells(satir, "E") - ((Cells(satir, "F") + "10") * Cells(satir, "D")) * Cells(satir, "A")) / Cells(satir, "A")
     Else
     Cells(satir, "G") = 0
    End If
    If Cells(satir, "C") = "6" Then
     Cells(satir, "G").Value = (Cells(satir, "E") - ((Cells(satir, "F") + "5") * Cells(satir, "D")) * Cells(satir, "A")) / Cells(satir, "A")
     Else
     Cells(satir, "G") = 0
    End If
   End If
End Sub

bu formulde ilk once c ye desger yazdıgım zaman division by zero hatası alıyorum neden olur ?