ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[omurg]

Merhaba,

J sütununda "BİTTİ" kelimesini aratacağım. J sütununda hangi satırda "BİTTİ" yazıyor ise o satırdaki A sütununda yazan kelimeyi mesaj boxta kullanacağım.

Mesaj boxta ise şu yazacak.


"...... numaralı testiniz bitmiştir."

Yardımcı olabilirseniz sevinirim

[ahmetilhan282]

Şu kodları deneyin;

Kod: Tümünü seç

Sub deneme()
    Application.ScreenUpdating = False
    Dim bul As Range, mesaj As String
    Set bul = Sheets("Sayfa1").Columns("J").Find("BİTTİ", Lookat:=xlWhole)
    If Not bul Is Nothing Then
        mesaj = Sheets("Sayfa1").Cells(bul.Row, 1) & " numaralı testiniz bitmiştir."
    Else
        mesaj = "Biten test yok."
    End If
    Set bul = Nothing
    Application.ScreenUpdating = True
    MsgBox mesaj, vbInformation, "BİLGİ"
    mesaj = Empty
End Sub

[omurg]

Şu kodları deneyin;

Kod: Tümünü seç

Sub deneme()
    Application.ScreenUpdating = False
    Dim bul As Range, mesaj As String
    Set bul = Sheets("Sayfa1").Columns("J").Find("BİTTİ", Lookat:=xlWhole)
    If Not bul Is Nothing Then
        mesaj = Sheets("Sayfa1").Cells(bul.Row, 1) & " numaralı testiniz bitmiştir."
    Else
        mesaj = "Biten test yok."
    End If
    Set bul = Nothing
    Application.ScreenUpdating = True
    MsgBox mesaj, vbInformation, "BİLGİ"
    mesaj = Empty
End Sub

Teşekkürler büyük ölçüde sorunumu çözdü fakat bitmiş test yokken uyarı çıkmasını istemiyorum. Sürekli uyarı alıyorum. Else satırını sildim bu seferde boş kutucuk çıkıyor

[omurg]

ayrıca ben bitti kelimesini makro ile yazıyorum yani bunu görecek midir bu kod ?

[Tarkan VURAL]

Kod: Tümünü seç

Sub BittiBul()
Dim bul As Range
For each bul in Sheets("Sayfa1").range("j2:j" & sheets("Sayfa1").range("j65536").end(3).row)
    If cstr(bul.value)="BİTTİ" Then
        msgbox Sheets("Sayfa1").Cells(bul.Row, 1) & " numaralı testiniz bitmiştir.",,"Www.ExcelVBA.Net"
     End If
next
    Set bul = Nothing
End Sub

Birden çok Bitti olan bir listede deneyiniz.

[ahmetilhan282]

ayrıca ben bitti kelimesini makro ile yazıyorum yani bunu görecek midir bu kod ?

Makroyla yazılan BİTTİ' leri de görür. Aşağıdaki kodlarda bitmiş test yoksa mesaj almazsınız;

Kod: Tümünü seç

Sub deneme2()
    Dim bul As Range
    Set bul = Sheets("Sayfa1").Columns("J").Find("BİTTİ", Lookat:=xlWhole)
    If Not bul Is Nothing Then
        MsgBox Sheets("Sayfa1").Cells(bul.Row, 1) & " numaralı testiniz bitmiştir.", vbInformation, "BİLGİ"
        Set bul = Nothing
    End If
End Sub

[elmango]

Kod: Tümünü seç

Sub BittiBul()
Dim bul As Range
For each bul in Sheets("Sayfa1").range("j2:j" & sheets("Sayfa1").range("j65536").end(3).row)
    If cstr(bul.value)="BİTTİ" Then
        msgbox Sheets("Sayfa1").Cells(bul.Row, 1) & " numaralı testiniz bitmiştir.",,"Www.ExcelVBA.Net"
     End If
next
    Set bul = Nothing
End Sub

Birden çok Bitti olan bir listede deneyiniz.

Merhaba
üsteki kodu "-" karakteri için güncelleyip kullanmak istiyorum . hücre içeriği sadece "-" olduğunda calısıyor . "-1 , 20- " gibi değerler yazıldığında görmüyor . kodu hücrenin herhangi bir yerinde "-" karakteri olduğunda nasıl aktifleştirebiliriz yardımcı olurmusunuz

[ahmetilhan282]

If cstr(bul.value)="BİTTİ" Then
satırı yerine
If CStr(bul.value) Like "*-*" Then
satırını yazın

[işsiz123]

Kod: Tümünü seç

Sub BittiBul()
Dim bul As Range
For each bul in Sheets("Sayfa1").range("j2:j" & sheets("Sayfa1").range("j65536").end(3).row)
    If cstr(bul.value)="BİTTİ" Then
        msgbox Sheets("Sayfa1").Cells(bul.Row, 1) & " numaralı testiniz bitmiştir.",,"Www.ExcelVBA.Net"
     End If
next
    Set bul = Nothing
End Sub

Birden çok Bitti olan bir listede deneyiniz.

Merhaba hocam kod tam eşleme ile buluyor galiba bunu içeriyorsa olarak nasl değiştirebiliriz. mesela ali1252 1252 yazınca bulsun olannı bulsun

[Ömer BARAN]

@işsiz123

Şöyle deneyin.

Kod: Tümünü seç

Sub BittiBul()
Dim bul As Range
With Sheets("Sayfa1")
For Each bul In .Range("J2:J" & .Cells(Rows.Count, 10).End(3).Row)
    If InStr(UCase(Replace(bul.Value, "i", "İ")), "BİTTİ") > 0 Then
        MsgBox .Cells(bul.Row, 1) & " numaralı testiniz bitmiştir." & vbLf & "SATIR NO: " & bul.Row
     End If
Next
End With
End Sub