formül ve makro...

[sisozen]

sayın arkadaşlar..
formüllerin koda aktarılıp, alt satırlarda da formüllerin koddan uygulanması ile ilgili basit bir örnek varmı...saygılar

 

[Seyit Tiken]

Bu kodu bir deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
[D4] = WorksheetFunction.Sum([B4:C4])
End Sub

 

[Ali]

İlgili sayfanıza aşağıdaki kodları ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then
Target.Offset(0, 2) = Target.Offset(0, 1) + Target
End If
If Target.Column = 3 Then
Target.Offset(0, 1) = Target.Offset(0, -1) + Target
End If
End Sub

 

[kpolat]

Private Sub Worksheet_Change(ByVal Target As Range)
If [A4] = "x" Then [D4] = WorksheetFunction.Sum([B4:C4])
If [A4] <> "x" Then [D4] = ""
End Sub

 

[sisozen]

arkadaşlar
sn fructose formülü gayet güzel çalışıyor.. bu esnada bütün arkadaşlarımada teşekkür ederim..devamında küçük bir soru sormak istiyorum.
sn fructose .. toplam kısmında
=EĞER(A4="x";B4*C4;B4+C4) olursa, bu işlem doğrultusunda yazdığınız kodda nasıl düzenleme yapmamız gerekir???
saygılar...

 

[Ali]

Alttaki mesajda g&#252;ncellendi.

 

[sisozen]

Sn Fructose Zannedİyorum FormÜlde Bİr KariŞiklik Oldu SonuÇ YanliŞ..

 

[Ali]

Evet haklısınız. Aşağıdaki kodları ekleyin.

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

 

[sisozen]

toplama işleminde b sütununda rakam, c sütununda 0 olunca işlem yapmıyor..
tam tersi durumda toplama yapıyor....?????

 

[Ali]

Kodlar&#305; g&#252;ncelledim tekrar denermisiniz.

 

[sisozen]

ellerinize sağlık .. çok güzel..

peki kızmassanız ...

düşey ara örneğinide uygulama imkanınız varmı...
:roll:

 

[sisozen]

örnek dosyam ekte hocam...

 

[Ali]

Son ekledi&#287;iniz &#246;rnekte ne istedi&#287;inizi a&#231;&#305;kca yazmad&#305;&#287;&#305;n&#305;z i&#231;in bir&#351;ey anlamad&#305;m.

 

[sisozen]

Tablomda AÇiklamaya ÇaliŞtim..
Saygilar...