şartlı makro

[thugangel]

Merhabalar, aşağıdaki makronun p7 sıfırdan büyük olduğunda çalışmasını istiyorum. "If Target.Range(P7) >= 1 Then" bu kodu nasıl ekleyebilirm.Yardımcı olursanız çok sevinirim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [q7]) Is Nothing Then Exit Sub
ActiveCell.FormulaR1C1 = ""
Call ekle
Range("g7").Value = ""
Range("f7").Value = ""
Range("e7").Value = ""
Range("c7").Value = ""
Range("b7").Value = ""
Range("p7").Value = ""
Range("b7").Select
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [p7]) Is Nothing Then Exit Sub
    If [p7] > 0 Then
        'kodlarınız
    End If
End Sub

 

[thugangel]

Ziya Bey denedim ama bu seferde makro hiç çalışmadı

 

[N.Ziya Hiçdurmaz]

Örnek dosya ekleyin üzerinde bakalım.

 

[thugangel]

dosyayı ekledim.

 

[N.Ziya Hiçdurmaz]

yanıt

P7 Hücresine sayı girip deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [p7]) Is Nothing Then Exit Sub
If [p7] >= 1 Then
ActiveCell.FormulaR1C1 = ""
Call ekle
Range("g7").Value = ""
Range("f7").Value = ""
Range("e7").Value = ""
Range("c7").Value = ""
Range("b7").Value = ""
Range("p7").Value = ""
Range("b7").Select
End If
End Sub

 

[thugangel]

Üstadım son bir soru "aktif hücre p7 iken" hiçbir değer girmeden entere basınca hücre yine p7 olarak seçilebilir mi? (yalnız sadece aktif hücre p7 olduğunda entere basınca geçerli olacak)

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [p8]) Is Nothing Then Exit Sub
If [p7] = "" Then
    [p7].Activate
End If
End Sub

 

[thugangel]

Üstadım denedim ama makro hiç çalışmadı