Sorgu için arama sonuçları: instr

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

...tbl As ListObject On Error Resume Next Set tbl = Range(TableName).ListObject If tbl Is Nothing Then Exit Sub With tbl If InStr(Test, .Range.Address) = 0 Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:=.Range.Worksheet.Name & "!" &...

...Hücre içinde işlemler; yani rakamlar ve işaretler olmalıdır. ************************************** formul = Replace(Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0), ",", ".") Range("M" & iSatir).Formula = "=" & (formul) Kodu değiştirince, oldu. Çok teşekkür ediyorum Ağabey.

formul = Replace(Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0), ",", ".") Range("M" & iSatir).Formula = Evaluate(formul) .

Worksheet_change kısmında 1 dediğimde; FormuzYaz isimli alt programı çağırıyorum. Bu kod satırı da orada -> : formul = Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0) https://s6.dosya.tc/server17/81d2ta/formul.mp4.html

Aşağıdaki ifade tam olarak ne sonuç veriyor. formul = Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0)

Merhaba arkadaşlar; --------------------------------------------------------------- formul = Split(Mid(metin, InStr(1, metin, ":") + 1), "=")(0) Range("M" & iSatir).Formula = " =" & Trim(formul) ----------------------------------------------------------------- formülüme " ="...

Ömer bey destekleriniz için teşekkür ederim kod çalışıyor ancak arama yaptıktan sonra veri doğrulama hücresini tekrar açtığımda sayfa1 de yer alan tüm verileri açılır kutuda gösteriyor. Onun dışında istediğim şekilde kodlar çalışıyor. Veri doğrulamanın sadece a sütunu için geçerli olması...

...As Variant For Each ListItem In Worksheets("Sayfa1").Range("A2").Resize(Worksheets("Sayfa1").Range("A1").End(xlDown).Row - 1, 1) If InStr(1, LCase(ListItem), LCase(Range("A1"))) > 0 Then If Len(Liste) = 0 Then Liste = Replace(ListItem, ",", Chr(130))...

Teşekkürler Ali Bey elinize sağlık

...oluşacak. Sub SuzAktar() 'NECDET ABİ Application.ScreenUpdating = False Set s1 = Sheets("ana") Son = s1.[B65536].End(3).Row For i = 2 To Son If InStr(ad, s1.Cells(i, 2)) = 0 Then Sheets.Add s1.Range("A1:G" & Son).AutoFilter s1.Range("A1:G" & Son).AutoFilter Field:=2...

Hocam çok sağolun..