Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: w3ruslan - 09 Nisan 2014, 21:54:11

Başlık: Otomatik sayı verme ve carpma
Gönderen: w3ruslan - 09 Nisan 2014, 21:54:11

Merhabalar
Sayfa1 de c sütununa veri giriyorum.
İstediğim C sütununa veri girdikçe B sütununda artan şekilde sıra no vermesini yapan bir makro.
Örnek
C4 hücresine veri girdiğimde B4 hücresine 1 desin, daha sonra C sütnunu her ver girdiğimde aynı satırda B sütnunua 2-3-4 gibi sıra numarası verecek
2ci sorum ise D4 e ve E4 e sayi yazdigimda otomatik olarak bunlari carpib  F4 e cevabi yazsin.
simdiden tesekkurler

Başlık: Ynt: Otomatik sayı verme ve carpma
Gönderen: AliÖZ - 22 Eylül 2014, 15:37:58

Merhaba,
Ekli dosyayı inceleyin,sanırım istediğiniz böyle bir şey.

Kod: [Seç]

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Target.Column <> 3 Then Exit Sub
  If Target.Row = 1 Then Exit Sub
  If Left(Target.Offset(0, -1), 1) = "~" Then Exit Sub
  If Left(Target.Offset(0, -1), 1) = "~" Then Exit Sub
  If Left(Target.Offset(0, -1), 1) = "=Row()-1" Then Exit Sub
  Target.Offset(0, -1).Formula = "=Row()-1"
  Target.Offset(0, 3).FormulaR1C1 = "=+RC[-2]*RC[-1]"
End Sub