Sorgu için arama sonuçları: instr

..."A").End(xlUp).Row eskiText = ComboBox1.Text aranan = LCase(eskiText) ComboBox1.Clear For i = 2 To sonSatir If InStr(LCase(ws.Cells(i, "A").Value), aranan) > 0 Then ComboBox1.AddItem ws.Cells(i, "A").Value ComboBox1.List(ComboBox1.ListCount -...

dönüş yaptığınız için çok teşekkür ederim ancak baka bildim bu aralar eşimin rahatsızlığından dolayı girip bakamadım dosyayı paylaşıyorum akarsanız sevinirim birden fazla sıkıntı var baş harfi yazdınmı o harf içeren tüm liste açılıyor ve birdaha işlem yapmıyor birde listeden isim seçince...

...sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row aranan = LCase(ComboBox1.Text) ComboBox1.Clear For i = 2 To sonSatir If InStr(LCase(ws.Cells(i, "A").Value), aranan) > 0 Then ComboBox1.AddItem ws.Cells(i, "A").Value ComboBox1.List(ComboBox1.ListCount - 1, 1) = ws.Cells(i, "B").Value...

...ProsesBul(kod As String) As String kod = UCase(kod) If Left(kod, 4) = "1001" Then ProsesBul = "Enjeksiyon" ElseIf InStr(kod, "PF") > 0 Then ProsesBul = "Preform" ElseIf InStr(kod, "PK") > 0 Or InStr(kod, "CS") > 0 Or InStr(kod, "P") > 0 Then...

...outData(1 To UBound(srcData), 1 To 13) cnt = 0 For i = 2 To UBound(srcData) If (srcData(i, 2) Like "Pİ*" Or srcData(i, 2) Like "Tİ*") _ And InStr(1, srcData(i, 4), "YANLIŞ", vbTextCompare) = 0 Then cnt = cnt + 1 outData(cnt, 1) = srcData(i, 5)...

If (srcData(i, 2) Like "Pİ*" Or srcData(i, 2) Like "Tİ*") _ And InStr(1, srcData(i, 4), "YANLIŞ", vbTextCompare) = 0 Then doğru çalışan kod bu olmalı srcData(i, 2) Like "Pİ*" → B sütunu "Pİ" ile başlıyorsa srcData(i, 2) Like "Tİ*" → veya "Tİ" ile başlıyorsa InStr(...)=0 → D sütununda "YANLIŞ"...

...End If dosyaAdi = Dir(anaKlasor & "*.xls*") ' Excel dosyalarını tara (xlsx, xlsm, xlsbus) Do While dosyaAdi <> "" If InStr(1, dosyaAdi, aranacakKelime, vbTextCompare) > 0 Then ' Bulunan dosyayı taşı Name anaKlasor & dosyaAdi As yeniKlasor & "\"...

teşekkür ederim Hocam iyi Çalışmalar.

...Dim FieldName As String FieldName = rs(field).Name If InStr(1, FieldName, "Saat", vbTextCompare) > 0 Then FieldValue = Format(rs(field)...

..."Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0) If Not klasor Is Nothing Then Kaynak = klasor.self.Path If InStr(1, Kaynak, "{") > 0 Then GoTo atla Dim fL As Object Set fL = CreateObject("Scripting.FileSystemObject") i = 0 'On Error Resume Next For Each Dosya In fL.getfolder(Kaynak).Files...

...isim değil üç farklı ayrı isim bulunmaktadır. G sutununa isabet eden hücrelerde 2, 3 veya 4 farklı ismde bulunabilir. Sayın Ömerfaruk; If InStr(isim, ",") > 0 Then parca = Split(isim, ",") wsEtiket.Range(kolonlar(k) & "13").Value = Trim(parca(0))...

...C15 hücresine 3 isim gelmekte, ancak "run-time '9': subscript out of range" hatası vermektedir. Hata nereden kaynaklanmaktadır. ... If InStr(isim, ",") > 0 Then parca = Split(isim, ",") wsEtiket.Range(kolonlar(k) & "13").Value = Trim(parca(0))...

...veri gelmemektedir. Örneğin: G7 hücresine 3. ismi yazdığımızda bu isim çıkmamakta makroyu aşağıdaki günceleme yaptığımızda, If InStr(isim, ",") > 0 Then parca = Split(isim, ",") wsEtiket.Range(kolonlar(k) & "13").Value = Trim(parca(0))...

...değiştirin sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' B sütununa domainleri yaz For i = 1 To sonSatir If InStr(ws.Cells(i, "A").Value, "@") > 0 Then ws.Cells(i, "B").Value = Mid(ws.Cells(i, "A").Value, InStr(ws.Cells(i, "A").Value, "@") + 1)...

...UBound(satirlar) satir = Trim(satirlar(i)) If satir = "" Then GoTo DevamEt If InStr(satir, "Sayın") > 0 Then ' "Sayın," ifadesinden sonra gelen kısmı unvan olarak al If Len(satir) > 6...

...Aradığım şey şu aslında kullanıcının yazmayı bitirdikten belirli bir süre sonra işlem yapmak ' Anahtar alanı için özel işlemler If InStr(1, txt.Tag, anahtar, vbTextCompare) > 0 Then ' Formdaki tüm textboxları temizle SureBekle 500, True...

Textbox olaylarını yönettiğim clas var txt_Change olayım sürekli yenileniyor benim istediğim kullanıcı 500 ms boyunca yazmayı bıraktıktan işlemleri yapması araştırmam da bulamadım yardımcı olur musunuz? dosya boyutu yüksek olduğundan örnek dosya atamadım kusuruma bakmayın.

...Then For Each hucre In kontrolAraligi If hucre.Address <> Target.Address Then If InStr(UCase(hucre.Value), yeniIsim) > 0 Then MsgBox yeniIsim & " daha önce " & hucre.Address & " hücresine kaydedilmiş!", vbExclamation...

ilginiz için teşekkür ederim Maalesef denedim olmadı

...firmaAdi = Sheets("FİRMA EKLE").Range("B" & i).Value ' Türkçe harfleri bozmadan, harf duyarsız karşılaştırma yap If InStr(1, firmaAdi, aramaMetni, vbTextCompare) > 0 Then sonsatgecici = Sheets("FRMSUZ").Range("A100000").End(xlUp).Row + 1...