Sorgu için arama sonuçları: instr

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

...yy = Len(yy) xx = zz - yy For x = 1 To xx + 1 al = Cells(i, 1).Value If InStr(al, ";") Then bol = Split(al, ";") Cells(i, x + 1).Value = Trim(bol(x - 1)) End...

...bol As Variant, al$ Range("B:C").ClearContents For i = 1 To Cells(Rows.Count, 1).End(3).Row al = Cells(i, 1).Value If InStr(al, ";") Then bol = Split(al, ";") Cells(i, 2).Value = bol(0) Cells(i, 3).Value = Trim(bol(1)) Else...

Üstadım Allah ne muradınız varsa versin ayağınıza taş değdirmesin. Bundan sonraki birleştirmeleri ben ilave etmeye gayret edeceğim. Çok ama çok teşekkürler

...rnk = Array(m1, m3, m5) 'Renklendirilecek değişkenler With Sheets("Sayfa5").Range("A13") .Font.Color = vbBlack .Value = m1 & m2 & m3 & m4 & m5 For Each r In rnk If InStr(1, .Value, r) > 0 Then .Characters(InStr(1, .Value, r), Len(r)).Font.Color = vbRed Next End With

...B2'den başlattım ' Veri sayfasındaki K sütununda arama yapın For Each veriHucresi In veriSayfa.Range("K1:K5") If InStr(1, veriHucresi.Value, hedefHucresi.Value, vbTextCompare) > 0 Then ' Eşleşme bulunduysa B sütununa ekleme yapın If...

..."C")) > 0 Then Set s2 = Sheets(WorksheetFunction.VLookup(s1.Cells(a, "C"), Sheets("BankaSabit").Range("B:C"), 2, 0)) ElseIf InStr(1, s1.Cells(a, "C"), "BORÇ ÇEKİ", vbTextCompare) > 0 Then Set s2 = Sheets("BorçÇeki") ElseIf InStr(1, s1.Cells(a, "C"), "ÇEK TAHSİL"...

teşekkürler, bu şekilde bir fonksiyon varmış Function GetBtnType(ctrl As Control, Index As Integer) If InStr(1, ctrl.Tag, "-") <> 0 Then GetBtnType = Split(ctrl.Tag, "-")(Index) Else GetBtnType = ctrl.Tag End If End Function

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

Çok teşekkür ederim. Oldu. Sağolun

...ReDim dz(1 To sn, 1 To 10) For a = 2 To sn If s.exists(s1.Cells(a, "B").Value) Then x = s(s1.Cells(a, "B").Value) If InStr(1, dz(x, 5) & ayr, s1.Cells(a, "E") & ayr) = 0 Then dz(x, 5) = dz(x, 5) & ayr & s1.Cells(a, "E") dz(x, 6) = dz(x, 6) & ayr &...

...sutun) Like "*" & Aranan_Deger & "*" Then sonuc_Gecici = getirilecekDegerler(satir, sutun) If InStr(1, sonuclarListesi, ayrac & sonuc_Gecici & ayrac) = 0 Then sonuc = sonuc & sonuc_Gecici & ayrac...