kemal turan
Altın Üye
- Katılım
- 10 Haziran 2011
- Mesajlar
- 1,528
- Excel Vers. ve Dili
- Excel 2010 32 bit
- Altın Üyelik Bitiş Tarihi
- 06-10-2032
merhaba,
Aşağıdaki change olayında
1 nci change olayı çalışıyor, (j3 hücresine değer girdiğimde iskonto oranınca hesaplama yapıyor.)
Fakat bold olan 2 nci change olayı çalışmıyor. (h11:h38) arasında değer girdiğimde j3 hücresine (h11:h38) arasını topluyor.
fakat bu bold olan ikinci kodu hesapla adlı kodu bağımsız çalıştırdığıma çalışyor
Worksheet_Change olayında bu 2 kodu nasıl birlikte kullanabilirm.
Teşekkür ederim.
Aşağıdaki change olayında
1 nci change olayı çalışıyor, (j3 hücresine değer girdiğimde iskonto oranınca hesaplama yapıyor.)
Fakat bold olan 2 nci change olayı çalışmıyor. (h11:h38) arasında değer girdiğimde j3 hücresine (h11:h38) arasını topluyor.
fakat bu bold olan ikinci kodu hesapla adlı kodu bağımsız çalıştırdığıma çalışyor
Worksheet_Change olayında bu 2 kodu nasıl birlikte kullanabilirm.
Teşekkür ederim.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error GoTo son
If Intersect(Target, [j3]) Is Nothing Then Exit Sub
Range("H11").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-4]<>"""",RC[-1]-(RC[-1]*R8C10),"""")"
Range("H11").Select
Selection.AutoFill Destination:=Range("H11:H38"), Type:=xlFillDefault
Range("H11:H38").Select
ActiveWindow.SmallScroll Down:=-9
Range("J11").Select
Range("H11:H38").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J11").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("J12").Select
If Not Intersect(Target, [h11:h38]) Is Nothing Then
Range("j3").Value = Application.WorksheetFunction.Sum(Range("h11:h38"))
End If
son:
Application.ScreenUpdating = True
End Sub
Sub hesapla()
Range("j3").Value = Application.WorksheetFunction.Sum(Range("h11:h38"))
End Sub