Sorgu için arama sonuçları: instr

...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...

Hocam çok teşekkür ederim çok işimi gördü sağolun. Emeğinize sağlık.

Allah senden razı olsun üstad.

..."A").End(3).Row m = Cells(a, "A").Text ReDim dz(1 To Len(m), 1 To 2) For b = 1 To Len(m) dz(b, 1) = Mid(m, b, 1) If InStr(1, bul, Mid(m, b, 1)) = 0 Then dz(b, 2) = Mid(m, b, 1) Else dz(b, 2) = Mid(deg, InStr(1, bul, Mid(m, b, 1)), 1) Next ReDim dz2(1 To...

...iki ayrı textbox kullanmanızı öneririm. Mutlaka tek textbox kullanacağım derseniz kontrolleri textboxun exit olayına ya da bu koordinatları kullanacağınız kodların en başına yazın. Aradaki boşluk ya da virgül kontrolü için instr, koordinatları almak içinde split fonksiyonlarını kullanabilirsiniz.

Teşekkürler Hocam, iyi akşamlar

prg = Split(wddoc.Range.Text, Chr(13)) For Each klm In prg If InStr(1, klm, "Saygılarımızla") > 0 Then say = say + 1 wddoc.Paragraphs(say - 1).Range.Paste wddoc.Range.InsertParagraphAfter Exit For Else say = say + 1 End If Next Yeri gelmişken...

Çok teşekkürler Hocam, iyi ki varsınız son olarak bir şey sormak istiyorum, burada "Saygılarımızla" kelimesinin altına boş bir satır nasıl açabiliriz? kosaca "Saygılarımızla" kelimesinden sonra bir "enter" yapacak. iyi günler.

prg = Split(wddoc.Range.Text, Chr(13)) For Each klm In prg If InStr(1, klm, "Saygılarımızla") > 0 Then say = say + 1 wddoc.Paragraphs(say - 1).Range.Paste Exit For Else say = say + 1 End If Next

...ifadesini girebilirsiniz. Örnek: "Deneme\A" gibi. Sub Kopruisimlerinidegistir2() Dim h As Hyperlink For Each h In ActiveSheet.Hyperlinks If InStr(1, h.TextToDisplay, "Örnek Metin Girin", vbTextCompare) > 0 Then h.TextToDisplay = "A Klasörü" End If Next h End Sub Umarım işinize yarar.

...Dim KayıtSayısı As Variant ListBox1.Clear KayıtSayısı = Sheets("Urunler").Cells(Rows.Count, "C").End(xlUp).Row For Satır = 3 To KayıtSayısı If InStr(UCase(Sheets("Urunler").Range("C" & Satır)), TextBox1.Value) > 0 Then ListBox1.AddItem Sheets("Urunler").Range("C" & Satır) End If Next...

Çok Değerli Korhan Hocam sizinkide olmadı malesef. Excel versiyonmu 2013 Türkçe Çıkan hata için linkteki dosyayı kullanabilirsiniz.. https://dosya.co/h7hrrt7opmfz/Fişler_ile_başlayan_dosyayı_çalıştır..zip.html

...HKCU, rPath, subKeys For Each subKey In subKeys objReg.getStringValue HKCU, rPath & subKey, "UrlNamespace", urlNamespace If InStr(Path, urlNamespace) > 0 Then objReg.getStringValue HKCU, rPath & subKey, "MountPoint", mountPoint secPart =...

VİP üyelik aldım ama bahsettiğim gibi bişey bulamadım