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
-
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
-
Merhaba,
Ekli dosyayı inceleyin,sanırım istediğiniz böyle bir şey.
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