Sorgu için arama sonuçları: instr

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

...sutun).Value Like "*" & Aranan_Deger & "*" Then sonuc_Gecici = Getirilecek_Aralik.Offset(satir - 1, sutun - 1).Cells(1, 1).Value If InStr(1, sonuc, bslAyrac & sonuc_Gecici & bslAyrac) = 0 Then sonuc = sonuc & sonuc_Gecici & bslAyrac End If Next sonuc = Replace(sonuc, bslAyrac, ayrac) If...

...As String Dim Klasor As String, uzanti As String, dosya As String Klasor = "c:\Yedekler" uzanti = Right(ThisWorkbook.Name, InStr(1, StrReverse(ThisWorkbook.Name), ".", vbTextCompare) - 1) dosya = Mid(ThisWorkbook.Name, 1, Len(ThisWorkbook.Name) - Len(uzanti) - 1)...

Merhaba. Diğer bilgisayarda da klasör yolu aynı değilse hata verir. Aşağıdaki klasör yolunu kontrol edin laptop'ta. Klasor = "c:\Yedekler" ds.CreateFolder "E:\MUHASEBE PROĞRAMI"

...String, Kayıt_Yeri As String Dim Klasor As String, uzanti As String, dosya As String Klasor = "c:\Yedekler" uzanti = Right(ThisWorkbook.name, InStr(1, StrReverse(ThisWorkbook.name), ".", vbTextCompare) - 1) dosya = Mid(ThisWorkbook.name, 1, Len(ThisWorkbook.name) - Len(uzanti) - 1)...

...& isbn, False http.send responseText = http.responseText startIndex = InStr(responseText, """thumbnail"": """) + Len("""thumbnail"": """) endIndex = InStr(startIndex, responseText, """") thumbnailURL =...

Bu formül kusursuz olmuş ben formülün eksik kısımlarını tamamlamak istiyordum siz yapmışsınız tüm ekleri kusursuz ekliyor çok teşekkür ederim.

...metin = Trim(metin) Dim sonKar$, i%, ek$ For i = 1 To Len(metin) sonKar = Mid(StrReverse(metin), i, 1) If InStr("aıoueiöü", sonKar) Then If i = 1 Then ek = "y" Exit For End If Next i yonelmeEkiEkle = metin & "'" & ek &...