• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

kod yardım

O

otelci01

Katılım
29 Temmuz 2009
Mesajlar
103
Excel Vers. ve Dili
2003 turkçe
Merhaba, aşağıdaki gibi bir kod kullanıyorum bu kod "B" sütünundaki satırlara yazdığım rakamları "D" ve "F" üzerlerine gelen satırlara topluyor aynı işlemi "C" sutundaki satırlara yazdığım zaman "E" ve "G" sütündaki satırlara toplatmasını istiyorum teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [B3:B79]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) = True Then
Target.Offset(0, 2) = Target.Offset(0, 2) + Target
Target.Offset(0, 4) = Target.Offset(0, 4) + Target
End If
Son:
End Sub
 
otelci01' Alıntı:
Merhaba, aşağıdaki gibi bir kod kullanıyorum bu kod "B" sütünundaki satırlara yazdığım rakamları "D" ve "F" üzerlerine gelen satırlara topluyor aynı işlemi "C" sutundaki satırlara yazdığım zaman "E" ve "G" sütündaki satırlara toplatmasını istiyorum teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [B3:B79]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) = True Then
Target.Offset(0, 2) = Target.Offset(0, 2) + Target
Target.Offset(0, 4) = Target.Offset(0, 4) + Target
End If
Son:
End Sub
Genişletmek için tıkla ...

merhaba
kodu bununla değiştirir misiniz
Kod: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Target.Column = 2 Then
If Intersect(Target, [B3:B79]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) = True Then
Target.Offset(0, 2) = Target.Offset(0, 2) + Target
Target.Offset(0, 4) = Target.Offset(0, 4) + Target
End If
Son:
ElseIf Target.Column = 3 Then
If Intersect(Target, [C3:C79]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) = True Then
Target.Offset(0, 2) = Target.Offset(0, 2) + Target
Target.Offset(0, 4) = Target.Offset(0, 4) + Target
End If
Son1:
End If
End Sub
 
son yaptıgınız kodlara ek olarak [B100:B105] arasında b ye yazdığım rakamları c ve d hücrelerindeki satırlara ye toplatmak istiyorum . bu kodlara bunuda ekleyebilrmisiniz. teşekkürler
 
tam anlayamadım ne yapmak istediğinizi biraz daha açıklama yapar mısını
 
aşağıdaki bu kodda b3 den b 79 a kadar b kolonundaki satırlara girdiğim rakamları d ve f ye topluyor aynı işlemi b100 ile b105 arasındaki rakamlarıda c ve d ye toplatmak istedim


Aşağıdaki kodlar bir kısım son yaptığınızdan alıntıdır.son yaptığınız kodlara ek istiyorum.
If Target.Column = 2 Then
If Intersect(Target, [B3:B79]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) = True Then
Target.Offset(0, 2) = Target.Offset(0, 2) + Target
Target.Offset(0, 4) = Target.Offset(0, 4) + Target
End If
 
cari hesap kartı

selamün aleyküm.oto galeride işe girdim.bir önceki arkadaş formüllü program hazırlamış.sıra numarası vererek plakalar girmiş.plakanın üstüne mausla geldiğinizde tıklayarak o plakaya ait ödeme bilgilerini bulabiliyorsunuz.fakat 2013 yılını nasıl gireceğimi bilemiyorum.yardımcı olur musunuz?
 
imransinan' Alıntı:
selamün aleyküm.oto galeride işe girdim.bir önceki arkadaş formüllü program hazırlamış.sıra numarası vererek plakalar girmiş.plakanın üstüne mausla geldiğinizde tıklayarak o plakaya ait ödeme bilgilerini bulabiliyorsunuz.fakat 2013 yılını nasıl gireceğimi bilemiyorum.yardımcı olur musunuz?
Genişletmek için tıkla ...

syn : imsansinan
Aleyküm Selam
konuları birbirine karıştırmayın kendinize yeni bir konu açın ve sorunuzu örnek dosya ile destekleyin cevap mutlaka verilecektir.
 
Hocam bu kodlarda ek olarak b100 ile b105 arasında sütünlara denk gelen satırlara rakam girdiğimde c sütünuna ve d sütünuna denk gelen satırlara toplasın istemiştim..teşekkürler

yani bu şekilde olmasını istiyorum kodlara eklemeye çalışıyorum ama yapamadım.
-----------------------------------------------------------
If Intersect(Target, [B100:B105]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) = True Then
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
Target.Offset(0, 2) = Target.Offset(0, 2) + Target
------------------------------------------------------------










Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Target.Column = 2 Then
If Intersect(Target, [B3:B79]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) = True Then
Target.Offset(0, 2) = Target.Offset(0, 2) + Target
Target.Offset(0, 4) = Target.Offset(0, 4) + Target
End If
Son:
ElseIf Target.Column = 3 Then
If Intersect(Target, [C3:C79]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) = True Then
Target.Offset(0, 2) = Target.Offset(0, 2) + Target
Target.Offset(0, 4) = Target.Offset(0, 4) + Target
End If
Son1:
End If
End Sub
 
merhaba
bunu dener misiniz
Kod: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Target.Column = 2 Then
If Intersect(Target, [B3:B79,B100:B105]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) = True Then
Target.Offset(0, 2) = Target.Offset(0, 2) + Target
Target.Offset(0, 4) = Target.Offset(0, 4) + Target
End If
Son:
ElseIf Target.Column = 3 Then
If Intersect(Target, [C3:C79]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) = True Then
Target.Offset(0, 2) = Target.Offset(0, 2) + Target
Target.Offset(0, 4) = Target.Offset(0, 4) + Target
End If
Son1:
End If
End Sub
 
Merhaba , bu olmaz sanırım çunku burda
B100:B105]) arasında yanındaki 1. ve 2. satırlara toplaması gerekiyor.
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
Target.Offset(0, 2) = Target.Offset(0, 2) + Target
bu şekilde yapabilirmiyiz.
 
arkadaş sen sorunu çözdürmek istiyor musun yoksa bizi uğraştırmak mı istiyorsun
ekle bir dosya bakalım ne istiyorsun ona göre yanıt verelim ne bu defalarca aynı şeyleri yazdırıyorsun bize dosya eklemezsen bir daha bu konuda yardım etmiyeceğim
 
hocam aşağıdaki kod b3 ile b51 arasında işlem yapıyor ben bu kodlara ek olarak örnek: b58 b60 arasında ise bu şekilde olmasını istiyorum
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
Target.Offset(0, 2) = Target.Offset(0, 2) + Target


-----
If Intersect(Target, [B3:B51]) Is Nothing Then Exit Sub
Target.Offset(0, 2) = Target.Offset(0, 2) + Target
Target.Offset(0, 4) = Target.Offset(0, 4) + Target
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst