İki sütunu toplama

[AdemCan]

Ben, paylaşılan 3 kodu da denedim. Hepsi de aynı işlemi yapıyor.
Dosyanızı kayıt edip, kapatıp, tekrar açıp dener misiniz?

 

[sattar]

Hamit bey,
Ekteki dosyada G sütununda 55 yazan yere farklı birşey yazarsanız I sütununa eklemediğini görebilirsiniz. Tam bilgim olmadığı için detaylı anlatamıyorum galiba

 

[sattar]

Sorun sizde değil bende anlatamıyorum.
Sizin gönderdiğiniz kodlar diğer hücrelerde çalışıyor. ama benim ekteki dosyada 1 örneği olduğu gibi kopyala yapıştır yapınca çalışmıyor. Ekteki dosyada G sütununda 55 yazan yere başka bir miktar girince anlatmak istediğimi anlayacaksınız eminim

 

[AdemCan]

Paylaştığım kodların sonuç görüntüsü.

 

[sattar]

Kapatıp açtım yeniden denedim. Hatta Bilgisayarı kapatıp açtım. Yine aynı. Benim kopyala yapıştır yaptığım çalışmıyor. Diğerleri çalışıyor

 

[sattar]

Excell 2003 kullanıyorum. Ondan kaynaklı olabilir mi acaba

 

[hamitcan]

Verdiğiniz bilgilere göre kodu değiştirdim.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 7 Then Exit Sub
    Cells(Target.Row, "i") = Cells(Target.Row, "i") + Cells(Target.Row, "g")
End Sub

 

[AdemCan]

I sütununa yapıştırma işlemi yaptığınızda, değerler metin olarak ekleniyor olabilir.

Public dur
Private Sub Worksheet_Change(ByVal Target As Range)
If dur = 1 Then Exit Sub
If Target.Column = 7 Then
    If Target.Offset(0, 2).Value <> "" Then
        tl = WorksheetFunction.Find("TL", Target.Offset(0, 2).Value)
            If tl > 0 Then
                dur = 1
                fiyat = Left(Target.Offset(0, 2).Value, tl - 1) * 1
                Target.Offset(0, 2).Value = fiyat + Target.Value
            End If
    End If
End If
dur = 0
End Sub

 

[Korhan Ayhan]

Ben verdiğiniz son bilgilere göre #10 nolu mesajımda önerdiğim kodu revize ettim.

55 TL gibi vir veri yapıştırdığınızı varsaydım.

 

[sattar]

Şuan çalıştı. Sizleri yordum. Hepinize ayrı, ayrı çok tşk ediyorum.

 

[sattar]

İyi günler arkadaşlar
Aynı dosyada Veri sayfasındaki F sütunu ve H sütununu toplayarak toplamını I sütununa yazabilirmiyiz. I sütununda başka bir miktar yazılı onu silerek yada yok sayarak

Şimdiden çok tşk ederim. İyi çalışmalar diliyorum

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 7 Then Exit Sub
    Cells(Target.Row, "i") = Cells(Target.Row, "f") + Cells(Target.Row, "h")
End Sub

 

[sattar]

Hamit bey
Bu hatayı veriyor
Private Sub Worksheet_Change(ByVal Target As Range)

 

[hamitcan]

Sayfadaki kodları kontrol edin aynı başlıklı koddan başka varsa silin. Sadece bir tane Change olayına ait kod kalmalı.

 

[sattar]

Sizin gönderdiğiniz kodu eklemeden önceki kullandığım kod bu. Ama işim gereği bunu da kullanıyorum. İkisini birden kullanabileceğim bir kod olabilir mi ?

Private Sub Worksheet_Change(ByVal Target As Range)
If dur = 1 Then Exit Sub
If Target.Column = 7 Then
If Target.Offset(0, 2).Value <> "" And IsNumeric(Target.Offset(0, 2).Value) Then
dur = 1
Target.Offset(0, 2).Value = Target.Value + Target.Offset(0, 2).Value
End If
End If
dur = 0
End Sub

 

[sattar]

En son kullandığım dosya güncel hali bu