Koşul Ekleme

[alptun20]

Aşağıdaki Kod ile sütundaki bir önceki hücre numerik ise seçilebiliyor, ancak ben hem numerik hemde / içeriyorsa seçilmesini istiyorum. Kodu ne şekilde düzeltmeliyim.

Private Sub CommandButton_Click()
On Error Resume Next
If IsNumeric(ActiveCell.Offset(-1, 0).Value) = True Then
ActiveCell.Offset(-1, 0).Select
Call VeriAl
Else
MsgBox "İlk Kayıt"
Exit Sub
End If
End Sub

 

[Ömer]

Merhaba,

If IsNumeric(ActiveCell.Offset(-1, 0).Value) = True Or _
ActiveCell.Offset(-1, 0).Value Like "*/*" Then

Bu şekilde kullanabilirsiniz..

.

 

[alptun20]

Ömer Bey maalesef bu şekilde çalışmadı. Bir üstteki hücre numeric ve \ içermiyorsa uyarı veriyor ancak yine bir üstteki hücre numeric ve \ içeren bir hücre olsa dahi o hücreyi seçmiyor.

 

[Ömer]

Soruyu doğru anladıysam bu kod istediğinizi yapıyor olması gerekir.

Ben aşağıdaki gibi denedim. İstediğinizi yapıyor. Aktiv hücrenin bir üst satırı sayı yada "/" karakterini içeriyorsa imleç o hücreye gidiyor içermiyorsa "yanlış" mesajını veriyor..

Set hucre = ActiveCell.Offset(-1, 0)
If IsNumeric(hucre) = True Or hucre Like "*/*" Then
    hucre.Select
Else
    MsgBox "yanlış"
End If

.

 

[alptun20]

Ömer Bey bu haliyle tamamdır. Yardımlarınız için teşekkür ederim. Saygılarımla....