[Yardım]  Sütunda Kelime Arama ve Seçme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Sütunda Kelime Arama ve Seçme

İleti#1)  omurg » 15 Eyl 2014 12:52

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 :)
En son Murat OSMA tarafından, 15 Eyl 2014 14:43 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Ön ek seçildi.
Kullanıcı avatarı
omurg
Yeni Başlamış
 
Adı Soyadı:Ömür Güneş
Kayıt: 07 Ağu 2014 22:09
Konum: İzmir
Meslek: Diğer
Yaş: 31
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Sütunda kelime arama ve seçme

İleti#2)  ahmetilhan282 » 15 Eyl 2014 13:50

Ş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
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 02:04
Konum: Adana
Meslek: Güvenlik
Yaş: 32
İleti: 918
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Cevap: Cevap: Sütunda kelime arama ve seçme

İleti#3)  omurg » 15 Eyl 2014 14:28

ahmetilhan282 yazdı:Ş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
Kullanıcı avatarı
omurg
Yeni Başlamış
 
Adı Soyadı:Ömür Güneş
Kayıt: 07 Ağu 2014 22:09
Konum: İzmir
Meslek: Diğer
Yaş: 31
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Sütunda Kelime Arama ve Seçme

İleti#4)  omurg » 15 Eyl 2014 15:13

ayrıca ben bitti kelimesini makro ile yazıyorum yani bunu görecek midir bu kod ?
Kullanıcı avatarı
omurg
Yeni Başlamış
 
Adı Soyadı:Ömür Güneş
Kayıt: 07 Ağu 2014 22:09
Konum: İzmir
Meslek: Diğer
Yaş: 31
İleti: 30
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Sütunda Kelime Arama ve Seçme

İleti#5)  Tarkan VURAL » 15 Eyl 2014 15:59

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.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 48
İleti: 27526
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: Sütunda Kelime Arama ve Seçme

İleti#6)  ahmetilhan282 » 16 Eyl 2014 01:07

omurg yazdı: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
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 02:04
Konum: Adana
Meslek: Güvenlik
Yaş: 32
İleti: 918
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Sütunda Kelime Arama ve Seçme

İleti#7)  elmango » 23 Ekm 2019 12:53

Tarkan VURAL yazdı:
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
Kullanıcı avatarı
elmango
Yeni Başlamış
 
Kayıt: 02 Arl 2015 15:10
Meslek: finans
Yaş: 37
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara / ostim

Cevap: Sütunda Kelime Arama ve Seçme

İleti#8)  ahmetilhan282 » 24 Ekm 2019 02:20

If cstr(bul.value)="BİTTİ" Then
satırı yerine
If CStr(bul.value) Like "*-*" Then
satırını yazın
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 02:04
Konum: Adana
Meslek: Güvenlik
Yaş: 32
İleti: 918
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Cevap: Cevap: Sütunda Kelime Arama ve Seçme

İleti#9)  işsiz123 » 13 Haz 2022 23:50

Tarkan VURAL yazdı:
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
Blog Sayfam İnceleyebilirsiniz : https://excel-studio.blogspot.com/?m=1
Excel Kod Kütüphanesi Android Uygulaması: https://play.google.com/store/apps/details?id=com.emin.excelvbapro
Kullanıcı avatarı
işsiz123
Siteye Alışmış
 
Adı Soyadı:Mehmet Emin ALKAN
Kayıt: 16 Kas 2016 17:45
Meslek: YAPI DENETİM
Yaş: 28
İleti: 387
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mardin/Midyat

Cevap: Sütunda Kelime Arama ve Seçme

İleti#10)  Ömer BARAN » 15 Haz 2022 20:28

@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
☾✭ İnadına TÜRKÇE ✭☽



.



.
Kullanıcı avatarı
Ömer BARAN
Siteye Alışmış
 
Adı Soyadı:ÖMER BARAN
Kayıt: 29 Oca 2013 18:17
Konum: ANKARA
Meslek: EMEKLİ
Yaş: 58
İleti: 368
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA / ÇANKAYA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 5 misafir

Bumerang - Yazarkafe