Sorgu için arama sonuçları: instr

...myArr4(0 To UBound(y)) For k = LBound(y) To UBound(y) str = Application.Clean(Trim(y(k))) If InStr(1, str, ".") Then x = Split(y(k), ".") ElseIf InStr(1, str, " ") Then x = Split(y(k), " ")...

Teşekkür ederim, tam da istediğim gibi çalışıyor ama yukarıda da dediğim gibi alfa.romeo yerine romeo.alfa olunca farklı isimler sanıyor ve ALFAROMEO ile eşleştirmiyor. Ya da mesela ALFAROMEO1 olunca alfa.romeo (ya da romeo.alfa) ile farklı isimler olduğunu anlıyor.

...j = 0 To UBound(x) If Trim(myArr1(i, 1)) = Trim(Evaluate("=UPPER(""" & x(j) & """)")) Then Cells(i, 3) = y(j) If InStr(bas, y(j), Cells(i, 3)) Then bas = InStr(1, Cells(i, 2), y(j)) son = Len(y(j)) Cells(i...

...= GetObject("winmgmts:") Set Activate_App = My_Service.ExecQuery("Select * From Win32_Process") For Each My_App In Activate_App If InStr(1, My_App.Name, "PDF") > 0 Then My_App.Terminate Next Kill File_Name MsgBox "PDF dosyası yazıcıya gönderilmiştir." End Sub

Merhaba, Bu kod için linkte dosya bulunamadıysa mesaj verdirebilir miyiz? Destek için şimdiden teşekkür ederim

...= Len(aranan) For i = 1 To Cells(Rows.Count, "A").End(3).Row hedef = UCase(Replace(Replace(Cells(i, "A"), "ı", "I"), "i", "İ")) j = InStr(1, hedef, aranan, vbTextCompare) If j > 0 Then With Range("A" & i).Characters(j, uzunluk).Font .Bold = True...

Merhaba, Cümle içinde yok olarak gösteriyor, A ve D sutünunda Ahmet olursa buluyor.

...String, Alt_Klasorler_Dahilmi As Boolean) For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(Klasor).Files If InStr(1, Dosya, Aranan_Metin) > 0 Then Say = Say + 1 CreateObject("Scripting.FileSystemObject").DeleteFile Dosya, True...

Deneyiniz. Sub kelime_bul() kelime = [A1] cumle = [D1] If InStr(1, cumle, kelime, vbBinaryCompare) > 0 Then [E1] = kelime Else [E1] = "Yok" End If End Sub

Çok teşekkür ederim. İstediğim gibi oldu.

...If Not Fnd Is Nothing Then Set FirstFnd = Fnd Do If MatchPosition Then If InStr(1, Fnd.Value, What, vbTextCompare) = MatchPosition Then Exit Do Else Set Fnd =...

Merhaba Teşekkür ederim, Şöyle bir şey daha olur mu acaba ? A sutünunda Anahtar kelime var , D sutünunda cümle var eğer cümlenin içinde Anahtar kelime varsa E Sutününa Anahtar kelimesini yazsın

...+ 1 For Each dosyalar In klasor.Files 'Sadece XLSX leri almak için If UCase(Right(dosyalar.Name, Len(dosyalar.Name) - InStrRev(dosyalar.Name, "."))) = "XLSX" Then 'Sadece XLS leri almak için 'If UCase(Right(dosyalar.Name, Len(dosyalar.Name) - InStrRev(dosyalar.Name, "."))) = "XLS" Then...

...If Not Fnd Is Nothing Then Set FirstFnd = Fnd Do If MatchPosition Then If InStr(1, Fnd.value, What, vbTextCompare) = MatchPosition Then Exit Do Else Set Fnd =...

...Set a = .Execute(Trim(y(n - 1))) bl = Split(a(0), "-") s1 = Trim(bl(0)) If InStr(s1, ":") = 0 Then s1 = s1 & ":00" s2 = Trim(bl(1)) If InStr(s2, ":") = 0 Then s2 = s2 & ":00" bas = Hour(s1) * 2 +...

...OptionSay = Optionlar.Count For optn = 1 To OptionSay Debug.Print Optionlar(optn).Text If InStr(Optionlar(optn).Text, ThisWorkbook.Sheets("AL").Range("M" & X).Value) > 0 Then Optionlar(optn).Click Exit For End If Next optn 'takvimi girişi...

Çok teşekkür ederim, Haluk hocam, sayenizde daha detaylı inceleyip, kendim de başka uygulamalarını yapmaya çalışacağım. İyi günler dilerim.

..."EN DÜŞÜK", "KAPANIŞ") iRow = 1 For i = 1 To MyTable.Rows.Length - 1 temp = MyTable.Rows(i).Cells(0).innerText If InStr(1, temp, "Serbest Piyasa") > 0 Or _ InStr(1, temp, "Akbank") > 0 Or _ InStr(1, temp, "Enpara") > 0 Then...

...Kendinize uyarlarsınız. Private Sub CommandButton1_Click() Dim My_Control As Object For Each My_Control In Me.MultiPage1.Pages(0).Controls If InStr(My_Control.Name, "TextBox") = 1 Then Me.Controls.Remove My_Control.Name End If Next End Sub