Sorgu için arama sonuçları: instr

  1. A

    Filtrele ve başka dosyaya aktar

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

    Soru Sıralı Rakamları Search Etmek

    Hocam çok sağolun..
  3. A

    Soru Sıralı Rakamları Search Etmek

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

    İsim Soyisim' i html dosyasında bulma

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

    Dosyanın yer aldığı klasörün adını MsgBox'da göster

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

    Dosyanın yer aldığı klasörün adını MsgBox'da göster

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

    Çift Tıklama ile makro tetikleme için destek

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

    (Selenium) Açık Olan Web Sitesini Nesne Olarak Tanımlama

    ...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")...
  9. Korhan Ayhan

    Bir listedeki kodları başka bir listede aratıp yazdırmak

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

    veri listesini yan sekmede başlıklar halinde açma

    ...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)...
  11. A

    veri listesini yan sekmede başlıklar halinde açma

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

    veri listesini yan sekmede başlıklar halinde açma

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

    veri listesini yan sekmede başlıklar halinde açma

    ...= 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...
  14. N

    blokları hizalama

    ...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", "") +...
  15. K

    Çözüldü Dinamik text aramalı ListBox

    ...& 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)...
  16. K

    Çözüldü Dinamik text aramalı ListBox

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

    Çözüldü Dinamik text aramalı ListBox

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

    Çözüldü 2021 Std. Versiyonda çalışan 2016 Pro versiyonda neden çalışmaz?

    ..."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>") -...
  19. Korhan Ayhan

    köprü yazdırma

    ...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 =...
  20. ttb

    Çözüldü EXCEL DOSYASINDA ARAMA MOTORU MANTIĞI İLE ARAMA YAPTIRMA

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