Sorgu için arama sonuçları: instr

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

...son iki karakterini kontrol et ve eki ekle Dim sonIkiKarakter1 As String sonIkiKarakter1 = Mid(sehir1, Len(sehir1) - 1, 2) If InStr(kalın_sesli_harfler, Mid(sonIkiKarakter1, 1, 1)) > 0 Then sehir1 = sehir1 & "'dan" ElseIf InStr(ince_sesli_harfler, Mid(sonIkiKarakter1...

@Haluk göndermiş olduğunuz koda bakacağım., ancak bu kodu şu altta vermiş olduğum satıra eklememiz gerekiyor... formul = Replace(Replace(Replace(Replace(Replace(Replace(Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0), "m³", ""), "m²", ""), "m", ""), "ort", ""), " ", ""), ",", ".")

...name = UCase(Replace(Replace(SH.Cells(i, "I").Value, "ı", "I"), "i", "İ")) ' İsim TextBox1'deki değeri içeriyorsa If InStr(name, UCase(TextBox1.Value)) > 0 Then ' İsim benzersizse On Error Resume Next uniqueNames.Add name, CStr(name)...

...Renkata End Sub Public Sub myExcelActivate() On Error Resume Next Dim i As Integer i = 1 myAppActivate activecell Do If InStr(1, Windows(i).Caption, activecell, vbTextCompare) > 0 Then Exit Do i = i + 1 Loop Until i > Windows.Count If i <= Windows.Count...

...For ii = 2 To .Cells(Rows.Count, "H").End(3).Row If .Cells(ii, "G").Value = "" Then If InStr(.Cells(ii, "H").Value, s(i, 1)) > 0 Then .Cells(ii, "G").Value = s(i, 2) End If Next ii Next i End With MsgBox "İşlem...

...4).End(3).Row).Value For i = 1 To UBound(s) For ii = 2 To Cells(Rows.Count, 1).End(3).Row If Cells(ii, "B").Value = "" Then If InStr(Cells(ii, "A").Value, s(i, 1)) > 0 Then Cells(ii, "B").Value = s(i, 2) End If Next ii Next i End Sub

...Trim(ilacaralist.Value) <> "" Then ilaclst = Sheets("ilaclar").Range("A2:A" & sonsatir).Value For i = LBound(ilaclst) To UBound(ilaclst) If InStr(1, ilaclst(i, 1), Trim(ilacaralist.Value), vbTextCompare) Then ilaclistefrm.AddItem ilaclst(i, 1) For a = i To i + 1...

...Set ieWindows = ieShell.Windows For Each ieTab In ieWindows If TypeName(ieTab.document) = "HTMLDocument" Then If InStr(1, ieTab.LocationURL, targetURL, vbTextCompare) > 0 Then jsCode = "var tabs = window.open('" & targetURL & "')...

...= IE.Document.getElementsByTagName("div") For i = 1 To elementONE.Length elementTWO = elementONE.Item(i).innerText If InStr(1, elementONE.Item(i + 1).innerText, "ctl03_ctlKayitliDilekceler", vbTextCompare) > 0 Then Range("A" & 1).Value = (elementONE.Item(i +...

Alternatif başlangıç tarihi A1de bitiş tarihi B1 de ise Sub bul() For i = Range("A1") To Range("B1") gun = gun + 1 If InStr(ay, Format(i, "mmmm")) = 0 Then ay = ay & "," & Format(i, "mmmm") gunler = gunler & "," & gun gun = 0 End If Next ay = Split(Mid(ay, 2), ",") gunler = Split(Mid(gunler &...