if komutu sorunu

[Crazy Drake]

If Range("G7").Value >= 70 Then
Range("H7:K7").ClearContents
End If

G7 hücresinin değeri 70 veya büyük olunca çalışmasını istiyorum ancak g7 hücresinde girmedi, iptal gibi sözcüklerde yazabiliyor. bunlar yazdığı zamanda çalışıyor
sadece 70den büyükse çalışması gerekiyor.

 

[halit3]

If Range("G7").Value >= 70 Then
Range("H7:K7").ClearContents
End If

G7 hücresinin değeri 70 veya büyük olunca çalışmasını istiyorum ancak g7 hücresinde girmedi, iptal gibi sözcüklerde yazabiliyor. bunlar yazdığı zamanda çalışıyor
sadece 70den büyükse çalışması gerekiyor.

Böyle denermisiniz.

If IsNumeric(Range("G7").Value) = True Then
If Range("G7").Value >= 70 Then
Range("H7:K7").ClearContents
End If
End If

 

[Crazy Drake]

If (Range("G7").Value >= 70) And (IsNumeric(Range("G7"))) Then
Range("H7:K7").ClearContents
End If

Bu şekilde yaptım düzeldi. çok teşekkürler

 

[halit3]

If (Range("G7").Value >= 70) And (IsNumeric(Range("G7"))) Then
Range("H7:K7").ClearContents
End If

Bu şekilde yaptım düzeldi. çok teşekkürler

İyi çalışmalar