Sorgu için arama sonuçları: instr

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

..."Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0) If Not Klasor Is Nothing Then Kaynak2 = Klasor.SELF.Path 'Klasor.Items.Item.Path If InStr(1, Kaynak, "{") > 0 Then GoTo atla On Error Resume Next WindowsMediaPlayer1.currentPlaylist.Clear ListBox1.Clear ListBox1.ColumnCount = 4...

Merhaba, Dener misiniz? Sub Test() Range("F1") = Mid(Range("A1"), InStr(Range("A1"), "[") + 3, 8) Range("E1") = Mid(Range("A1"), InStr(Range("A1"), "[") + 12, 8) End Sub

...turuncu zeminli olamayan veri girilmemiş satırların kalmasını istiyorsanız aşağıdaki deneyin. Sub sil() For i = Cells(Rows.Count, 1).End(3).Row To 3 Step -1 If InStr("SıraTalep ListesiSahipEvrak ID", Cells(i, 1)) = 0 And Not IsNumeric(Cells(i, 1)) Then Rows(i).Delete Shift:=xlUp End If Next...

Yedek alıp deneyin. Sub sil() For i = Cells(Rows.Count, 1).End(3).Row To 3 Step -1 If InStr("21SıraTalep ListesiSahipEvrak ID", Cells(i, 1)) = 0 Then Rows(i).Delete Shift:=xlUp End If Next End Sub

...0) RetVal = SearchTreeForFile("C:\", strFileName, tempStr) If RetVal <> 0 Then strFile = Left(tempStr, InStr(1, tempStr, Chr(0)) - 1) MsgBox "Dosya bu adreste bulundu: " & vbCrLf & vbCrLf & strFile ' Kill strFile ' MsgBox "Dosya silindi!"...

Çok teşekkür ederim hocam Allah razı olsun sizden formül ile yapabilirmisiniz

...- Len(WorksheetFunction.Substitute(Liste1, ",", "")) dd = WorksheetFunction.Search(Ayrac, Liste1, sira) ara = Mid(Liste1, sira, dd - sira) If InStr(Liste2, ara) > 0 Then sonuc = sonuc & ara & ", " End If sira = WorksheetFunction.Search(Ayrac, Liste1, sira) + 2 Next i AynilariBul = Left(sonuc...

Bu kod işime baya yarar. fakat ilk aşağıdaki görseldeki hatayı aldım. ve "File" ibaresini "My_File" olarak değiştirince düzeldi. Sonrasında çalıştı ve password yazmam istenilen ekran geldi. şifreyi girdim. ve kod çalıştı gitti belirtilen klasördeki ilk exceli açtı ve aşağıdaki hatayı verdi...

...tüm dosyaları döngüye alın For Each My_File In Fso.GetFolder(File_Path).Files ' Sadece Excel dosyalarını işleme alın If InStr(My_File.Name, ".xlsx") > 0 Or InStr(My_File.Name, ".xlsm") > 0 Then ' Excel dosyasını açın Workbooks.Open My_File.Path...