Sorgu için arama sonuçları: instr

...= True Application.StatusBar = "....İşleminiz yapılıyor...." Application.ScreenUpdating = False Do While file <> "" If Len(file) > 0 And InStr(1, file, "$") = 0 Then Set wDoc = wApp.Documents.Open(klasor & "/" & file) For i = 1 To sonsat With wDoc.Content.Find...

Kodlar için çok teşekkürler Korhan bey. Aşağıdaki mesajı verdi ama klasöre dosyaları taşımadı. MsgBox "Dosya taşıma işlemi tamamlanmıştır.", vbInformation

..." ") Last_Text = UCase(Replace(Replace(My_File_Name_Text(UBound(My_File_Name_Text)), "ı", "I"), "i", "İ")) If InStr(1, Last_Text, "İLKOKUL") > 0 Or InStr(1, Last_Text, "ORTAOKULU") > 0 Then My_File.Move Sub_Folder_1 & My_File.Name End If If...

...son kelimesini al lastWord = SonKelimeyiAl(filename) ' Son kelimeye göre klasör belirle ve dosyayı taşı If InStr(UCase(lastWord), "İLKOKULU") > 0 Or InStr(UCase(lastWord), "ORTAOKULU") > 0 Then newFilePath = ilkokullarPath & "\" & filename...

..."dokuz")(Right(coz, 1)) _ ) For i = 1 To Len(coz) sonKar = Mid(coz, i, 1) If i = 1 Then ek = IIf(InStr("fstkçşhp", sonKar), "t", "d") If InStr("aeıioöuü", sonKar) Then Exit For Next i saatlereDeDaEkle = ek &...

...= Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Oldvalue & ", " & Newvalue Else...

...Target.Value Application.Undo Oldvalue = Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Oldvalue & ", " & Newvalue Else: Target.Value = Oldvalue End If...

..."F").End(xlUp).Row Satirlar = Split(Cells(Bak, "F"), Chr(10)) For Satir = 0 To UBound(Satirlar) If Chr(10) & InStr(Cells(Bak, "H"), Satirlar(Satir)) = 0 Then Fark = Fark & Chr(10) & Satirlar(Satir) End If Next Cells(Bak...

...k), "ı", "I"), "i", "İ")) ndeg = UCase(Replace(Replace(Me.Controls(nsn & k), "ı", "I"), "i", "İ")) If InStr(vdeg, ndeg) > 0 Or Me.Controls(nsn & k) = "" Then say = say + 1 Next If say = 9 Then: s = s + 1: For u = 1 To 23: snc(s, u) = v(a, u): Next '...

...6 ' Benzersiz bir sayı üretmek için döngü Do num = Int((16 - 1 + 1) * Rnd + 1) Loop While InStr(usedNumbers, "," & num & ",") > 0 ' Kullanılan sayıları güncelliyoruz usedNumbers = usedNumbers & num & ","...

çok teşekkür ediyorum

...' Hedef sayfanın adını buraya yazın Dim p As Long For p = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row If InStr(1, Cells(p, 1) & Cells(p, 16) & Cells(p, 17) & Cells(p, 18), TextBox1.Value, vbTextCompare) > 0 Then ListBox1.AddItem ws.Cells(p, 1).Value...

...ne kadar uğraştıysam artık basmıyor. a = 0 Set Link = ie.Document.getElementsByTagName("a") For Each l In Link x = l.innerText y = "Başlat" If InStr(1, x, y, vbBinaryCompare) > 0 Then If a > 0 Then l.Click Exit For End If a = a + 2 End If Next l ya da Set Link =...

...3).Value ws.Cells(i, 1).NumberFormat = "00000" ' İlk yıldızın ve ikinci yıldızın indekslerini bulun ilkYildizIndex = InStr(1, metin, "*") ikinciYildizIndex = InStr(ilkYildizIndex + 1, metin, "*") artiIndex = InStr(1, metin, "+") If...

...3).Value ws.Cells(i, 1).NumberFormat = "00000" ' İlk yıldızın ve ikinci yıldızın indekslerini bulun ilkYildizIndex = InStr(1, metin, "*") ikinciYildizIndex = InStr(ilkYildizIndex + 1, metin, "*") artiIndex = InStr(1, metin, "+") If...

...Sheets("hsp").Cells(Sheets("hsp").Rows.Count, "B").End(xlUp).Row ' Arama değerini B sütununda ara For i = 1 To LastRow If InStr(1, LCase(Sheets("hsp").Cells(i, "B").Value), SearchValue, vbTextCompare) > 0 Then ' Eğer aranan değer bulunduysa A ve B sütunlarını...

...iyi pazarlar. Sub FindReplaceLimit() Dim metin As String Dim a As Long Dim n As Long metin = ActiveSheet.Range("A1") a = InStr(1, metin, "Tarihinde") With ActiveSheet For n = 1 To a - 2 metin = Replace(metin, Mid(metin, n, 1), "x") Next End With...

...Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False uzanti = Right(ThisWorkbook.Name, InStr(1, StrReverse(ThisWorkbook.Name), ".", vbTextCompare)) If uzanti = ".xlsx" Then FileFormatNum = 51 ElseIf uzanti = ".xlsm" Then FileFormatNum = 52...

...Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False uzanti = Right(ThisWorkbook.Name, InStr(1, StrReverse(ThisWorkbook.Name), ".", vbTextCompare)) If uzanti = ".xlsx" Then FileFormatNum = 51 ElseIf uzanti = ".xlsm" Then FileFormatNum = 52...

...Do If Not (fileData.dwFileAttributes And FA_DIRECTORY) = FA_DIRECTORY Then strFileName = Left$(fileData.cFileName, InStr(fileData.cFileName, vbNullChar) - 1) findResults.Add strPath & strFileName...