Otomatik eğer makrosu

[Namık Kemal]

Merhabalar;
Bir excel sayfasında bazı kritelere göre otomatik makro yapmam gerek ama beceremedim. Dosya ektedir.
Yardımlarınızı bekliyorum.

 

[Namık Kemal]

Yardım edebilecek kimse yok mu?

 

[xxcell]

İlgili sayfaya aşağıdaki kodu ilave edersen işini çözer.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [j1] = "ALIŞ" Then
Range("h27:h300") = 0
If Not Intersect(Target, [h27:h300]) Is Nothing Then Cells(ActiveCell.Row, "g").Select
ElseIf [j1] = "SATIŞ" Then
Range("g27:g300") = 0
If Not Intersect(Target, [G27:G300]) Is Nothing Then Cells(ActiveCell.Row, "F").Select
End If
If Cells(ActiveCell.Row, "d") = "" And ActiveCell.Row >= 27 Then
Range("g" & ActiveCell.Row & ":h" & ActiveCell.Row) = 0
If ActiveCell.Column = 7 Or ActiveCell.Column = 8 Then Cells(ActiveCell.Row, "F").Select

End If

End Sub

 

[emrexcel123]

kod

arkadaşım aşağıdaki kodu denersin bir sorun çıkarsa yardımcı oluruz >>
Sub goster()
For i = 27 To 300
If Range("j1") = "ALIŞ" Then
Cells(i, "h") = 0
End If
If Range("j1") = "SATIŞ" Then
Cells(i, "g") = 0
End If
If Range("d27") = Empty Then
Cells(i, "g") = 0
End If
Next
End Sub
ii akşamlar

 

[kombo]

Sorunu ben çıkartayım

Kodlar şöyle bence daha mantıklı;

Sub goster()
[H27:G300].ClearContents
For i = 27 To 300
If [j1] = "ALIŞ" Then
Cells(i, "h") = 0
End If
If [j1] = "SATIŞ" Then
Cells(i, "g") = 0
End If
If [d27] = Empty Then
Cells(i, "g") = 0
Cells(i, "h") = 0
End If
Next
End Sub

 

[Namık Kemal]

Teşekkür

Sn. xxcell,
Sn. emrexcel123,
Sn. kombo,
Yardımlarınız ve ilginiz için çok teşekkür ederim...