Tablodaki Sonuçların Makro ile Gerçekleşmesi

[1Al2Ver]

Merhaba,

H32:H43 aralığındaki (formül ile elde edilen) sonuçların, makro ile ve mümkünse buton kullanmadan gerçekleşmesini arzuluyorum,

Teşekkür ederim.

 

[İhsan Tank]

Merhaba,

H32:H43 aralığındaki (formül ile elde edilen) sonuçların, makro ile ve mümkünse buton kullanmadan gerçekleşmesini arzuluyorum,

Teşekkür ederim.

merhaba
CİRO-KAR sayfasının kod bölümüne

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D32:D43")) Is Nothing Then Exit Sub
Dim ts
For ts = 32 To 43
If Range("D" & ts) = "" Then
Cells(ts, "H") = ""
ElseIf Range("F" & ts) > Range("G" & ts) Then
Cells(ts, "H") = Range("F" & ts) - Range("G" & ts)
Else
Cells(ts, "H") = "Hedef Tutmadı"
End If
Next
End Sub

bu kodu kopyalayınız. ve deneyin.
Not : D32 D43 aralığında veri girişi yapıldığında kod tetiklenir

 

[Huseyinkis]

Merhaba,

H32:H43 aralığındaki (formül ile elde edilen) sonuçların, makro ile ve mümkünse buton kullanmadan gerçekleşmesini arzuluyorum,

Teşekkür ederim.

Alternatif olsun

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C32:D43]) Is Nothing Then Exit Sub
If Cells(Target.Row, "D").Value = "" And Cells(Target.Row, "C").Value = "" Then
Cells(Target.Row, "H").Value = ""
ElseIf Cells(Target.Row, "F").Value > Cells(Target.Row, "G").Value Then
Cells(Target.Row, "H").Value = Cells(Target.Row, "F").Value - Cells(Target.Row, "G").Value
Else
Cells(Target.Row, "H").Value = "Hedef Tutmadı"
End If
Son:
End Sub

 

[1Al2Ver]

merhaba
CİRO-KAR sayfasının kod bölümüne

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D32:D43")) Is Nothing Then Exit Sub
Dim ts
For ts = 32 To 43
If Range("D" & ts) = "" Then
Cells(ts, "H") = ""
ElseIf Range("F" & ts) > Range("G" & ts) Then
Cells(ts, "H") = Range("F" & ts) - Range("G" & ts)
Else
Cells(ts, "H") = "Hedef Tutmadı"
End If
Next
End Sub

bu kodu kopyalayınız. ve deneyin.
Not : D32 D43 aralığında veri girişi yapıldığında kod tetiklenir

Sayın İhsan Tank merhaba,

Çözüm için teşekkür ederim.

 

[İhsan Tank]

Sayın İhsan Tank merhaba,

Çözüm için teşekkür ederim.

rica ederim
:yazici:

 

[1Al2Ver]

Alternatif olsun

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C32:D43]) Is Nothing Then Exit Sub
If Cells(Target.Row, "D").Value = "" And Cells(Target.Row, "C").Value = "" Then
Cells(Target.Row, "H").Value = ""
ElseIf Cells(Target.Row, "F").Value > Cells(Target.Row, "G").Value Then
Cells(Target.Row, "H").Value = Cells(Target.Row, "F").Value - Cells(Target.Row, "G").Value
Else
Cells(Target.Row, "H").Value = "Hedef Tutmadı"
End If
Son:
End Sub

Sayın Huseyinkis merhaba,

Alternatif kod için teşekkür ederim.