Sorgu için arama sonuçları: instr

...1).End(3).Row Range("B1:B" & son).Value = "="","" & RC[-1]& "",""" bak = Split(Range("F1"), ",") For i = 1 To son For x = 0 To UBound(bak) If InStr(Cells(i, 2), "," & bak(x) & ",") > 1 Then Columns(1).Replace "," & bak(x), "" ElseIf InStr(Cells(i, 2), "," & bak(x) & ",") = 1 Then...

...Set HTTP = CreateObject("MSXML2.XMLHTTP") HTTP.Open "GET", URL, False HTTP.send If HTTP.Status = 200 Then If InStr(1, HTTP.responseText, "Alfreds Futterkiste") > 0 Then MsgBox "Alfreds Futterkiste .... bulundu" Else MsgBox "Alfreds...

Korhan hocam size de çok teşekkür ederim. İyi ki varsınız

Farklı alternatifler... Option Explicit Sub ActiveWorkbook_Path() MsgBox Mid(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, Chr(47)) + 1, 255) MsgBox Replace(Mid(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, Chr(47)), 255), Chr(47), "") MsgBox...

...s <> "" Then Call sayfaGosterGizle(s, aK) End If End Sub Sub sayfaGosterGizle(s As String, aK As Boolean) If s <> "" Then If InStr(s, "*") Then Dim i For i = 1 To Worksheets.Count If Sheets(i).Name Like s Then Sheets(i).Visible = aK...

...ObjWind.Name If sName = "Internet Explorer" Then Set IEObject = ObjWind adres1 = InStr(ObjWind.LocationURL, "e-okul.meb.gov.tr") adres2 = InStr(ObjWind.LocationURL, "eokul.meb.gov.tr")...

...1) <> "" Then Split_Data = Split(Data(X, 1), " ") For Y = LBound(Split_Data) To UBound(Split_Data) If InStr(1, Kod, " " & Split_Data(Y) & " ") > 0 Then Liste(X, 1) = Split_Data(Y) Exit For End If...

...s2 = Sheets("Sayfa2") s2.Cells.Delete say = s1.Cells(Rows.Count, 1).End(3).Row bol = NSayısı e = 1 sat = 1 For i = 2 To say ' değişen yer If InStr(nob, s1.Cells(i, 2)) = 0 And s1.Cells(i, 2) <> "" Then s1.Range("A1:B" & say).AutoFilter Field:=2, Criteria1:=s1.Cells(i, 2)...

If InStr(nob, s1.Cells(i, 2)) = 0 Then yukarıdaki satırı aşağıdaki kod ile değiştirin. If InStr(nob, s1.Cells(i, 2)) = 0 And s1.Cells(i, 2) <> "" Then

...Set s2 = Sheets("Sayfa2") s2.Cells.Delete say = s1.Cells(Rows.Count, 1).End(3).Row bol = NSayısı e = 1 sat = 1 For i = 2 To say If InStr(nob, s1.Cells(i, 2)) = 0 Then s1.Range("A1:B" & say).AutoFilter Field:=2, Criteria1:=s1.Cells(i, 2) s1.Range("A2:A" & say).Copy s2.Cells(sat + 1...

...= s1.Cells(Rows.Count, 1).End(3).Row For i = 2 To say If i = 2 Then sut = 1 Else sut = s2.Cells(1, Columns.Count).End(1).Column + 1 End If If InStr(nob, s1.Cells(i, 2)) = 0 Then s1.Range("A1:B" & say).AutoFilter Field:=2, Criteria1:=s1.Cells(i, 2) s1.Range("A2:A" & say).Copy...

...UBound(arr, 2)) For i = lngMin + baslikVar To lngMax - 1 For j = i + 1 To lngMax hat1 = Replace(Left(arr(i, sutunNo), InStr(1, arr(i, sutunNo), "*") - 1), "Hat", "") +0 hat2 = Replace(Left(arr(j, sutunNo), InStr(1, arr(j, sutunNo), "*") - 1), "Hat", "") +...

...& ThisWorkbook.Worksheets("PivotDB").Range("Ax65530").End(1).Row) For t = LBound(List) To UBound(List) If InStr(1, List(t, 1), Trim(TextBox1), vbTextCompare) Then ListBox1.AddItem ListBox1.List(ListBox1.ListCount - 1, 0) = List(t, 1)...

...& ThisWorkbook.Worksheets("PivotDB").Range("AV65530").End(1).Row) For t = LBound(List) To UBound(List) If InStr(1, List(t, 1), Trim(TextBox1), vbTextCompare) Then ListBox1.AddItem List(t, 1) End If Next End Sub Ama bu seferde sadece mesela ismi getiriyor yanındaki bilgileri...

...For Each oteladi In ThisWorkbook.Worksheets("PivotDB").Range("AV2:AV" & ThisWorkbook.Worksheets("PivotDB").Range("AV65530").End(1).Row) If InStr(1, oteladi, TextBox1.Text, vbTextCompare) > 0 Then ListBox1.AddItem ListBox1.List(ListBox1.ListCount - 1, 0) = oteladi...

..."Kutu başlığı bulunamadı." End If Dim acilisVeri As String Dim sonGuncellemeVeri As String acilisVeri = Mid(HTML.body.innerHTML, InStr(HTML.body.innerHTML, "Açılış:") + Len("Açılış:") + 1, InStr(InStr(HTML.body.innerHTML, "Açılış:"), HTML.body.innerHTML, "</div>") -...

...S1.Range("A2:A" & S1.Cells(S1.Rows.Count, 1).End(3).Row) If Rng.Value <> "" Then If Rng.HasFormula Then If InStr(Rng.Formula, "HYPERLINK") > 0 Then DoEvents Count_File = Count_File + 1 File_Path =...

Merhaba, bir örnek dosya ekledim en alta. O örnek üzerinden yardımcı olabilir misiniz rica etsem? Teşekkürler.

...ws.Select son = [A10000].End(3).Row For i = 1 To son yorum = ws.Cells(i, "A").Value If InStr(1, yorum, aran, vbTextCompare) > 0 Then sonn = Sheets("ARAMA").[A10000].End(3).Row + 1 ws.Cells(i, "A").Copy...

...For Each ws In Worksheets If ws.Name <> "ARAMA" Then ws.Select son = [A10000].End(3).Row For i = 1 To son yorum = ws.Cells(i, "A").Value If InStr(1, yorum, aran, vbTextCompare) > 0 Then sonn = Sheets("ARAMA").[A10000].End(3).Row + 1 ws.Cells(i, "A").Copy...