düşeyara ve makro..

[sisozen]

Arkadaşlar merhaba..
Sn fructose formüllerin makro üzerinden otomatik takibi için( toplam hanesindeki eğer formülü ile ilgili" =eğer(a4="x";b4*c4;b4+c4)")yaptırdığı işlem .. Gayet de güzel çalışıyordu.. sn fructose yapmış olduğu Aşağıdaki işlemi, eklentimdeki örneğe nasıl uyarlarız
saygılar..

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 And Target.Offset(0, -1) = "x" Then
Target.Offset(0, 2) = Target.Offset(0, 1) * Target
End If
If Target.Column = 3 And Target.Offset(0, -2) = "x" Then
Target.Offset(0, 1) = Target.Offset(0, -1) * Target
Else:
If Target.Column = 2 And Target.Offset(0, -1) <> "x" Then
Target.Offset(0, 2) = Target.Offset(0, 1) + Target
End If
If Target.Column = 3 And Target.Offset(0, -2) <> "x" Then
Target.Offset(0, 1) = Target.Offset(0, -1) + Target
End If
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

&#214;rnek dosyan&#305;zda tam olarak ne yapmak istedi&#287;inizi a&#231;&#305;klamam&#305;&#351;s&#305;n&#305;z?

 

[sisozen]

Pardon.. İlgİlİ Dosyayi GÜncelledİm...

 

[cqners]

Konu ile iligli link.

http://www.excel.web.tr/showthread.php?t=21193