Sorgu için arama sonuçları: instr

...outData(1 To UBound(srcData), 1 To 13) cnt = 0 For i = 2 To UBound(srcData) If (srcData(i, 2) Like "Pİ*" Or srcData(i, 2) Like "Tİ*") _ And InStr(1, srcData(i, 4), "YANLIŞ", vbTextCompare) = 0 Then cnt = cnt + 1 outData(cnt, 1) = srcData(i, 5)...

If (srcData(i, 2) Like "Pİ*" Or srcData(i, 2) Like "Tİ*") _ And InStr(1, srcData(i, 4), "YANLIŞ", vbTextCompare) = 0 Then doğru çalışan kod bu olmalı srcData(i, 2) Like "Pİ*" → B sütunu "Pİ" ile başlıyorsa srcData(i, 2) Like "Tİ*" → veya "Tİ" ile başlıyorsa InStr(...)=0 → D sütununda "YANLIŞ"...

...End If dosyaAdi = Dir(anaKlasor & "*.xls*") ' Excel dosyalarını tara (xlsx, xlsm, xlsbus) Do While dosyaAdi <> "" If InStr(1, dosyaAdi, aranacakKelime, vbTextCompare) > 0 Then ' Bulunan dosyayı taşı Name anaKlasor & dosyaAdi As yeniKlasor & "\"...

teşekkür ederim Hocam iyi Çalışmalar.

...Dim FieldName As String FieldName = rs(field).Name If InStr(1, FieldName, "Saat", vbTextCompare) > 0 Then FieldValue = Format(rs(field)...

..."Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0) If Not klasor Is Nothing Then Kaynak = klasor.self.Path If InStr(1, Kaynak, "{") > 0 Then GoTo atla Dim fL As Object Set fL = CreateObject("Scripting.FileSystemObject") i = 0 'On Error Resume Next For Each Dosya In fL.getfolder(Kaynak).Files...

...isim değil üç farklı ayrı isim bulunmaktadır. G sutununa isabet eden hücrelerde 2, 3 veya 4 farklı ismde bulunabilir. Sayın Ömerfaruk; If InStr(isim, ",") > 0 Then parca = Split(isim, ",") wsEtiket.Range(kolonlar(k) & "13").Value = Trim(parca(0))...

...C15 hücresine 3 isim gelmekte, ancak "run-time '9': subscript out of range" hatası vermektedir. Hata nereden kaynaklanmaktadır. ... If InStr(isim, ",") > 0 Then parca = Split(isim, ",") wsEtiket.Range(kolonlar(k) & "13").Value = Trim(parca(0))...

...veri gelmemektedir. Örneğin: G7 hücresine 3. ismi yazdığımızda bu isim çıkmamakta makroyu aşağıdaki günceleme yaptığımızda, If InStr(isim, ",") > 0 Then parca = Split(isim, ",") wsEtiket.Range(kolonlar(k) & "13").Value = Trim(parca(0))...

...değiştirin sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' B sütununa domainleri yaz For i = 1 To sonSatir If InStr(ws.Cells(i, "A").Value, "@") > 0 Then ws.Cells(i, "B").Value = Mid(ws.Cells(i, "A").Value, InStr(ws.Cells(i, "A").Value, "@") + 1)...

...UBound(satirlar) satir = Trim(satirlar(i)) If satir = "" Then GoTo DevamEt If InStr(satir, "Sayın") > 0 Then ' "Sayın," ifadesinden sonra gelen kısmı unvan olarak al If Len(satir) > 6...

...Aradığım şey şu aslında kullanıcının yazmayı bitirdikten belirli bir süre sonra işlem yapmak ' Anahtar alanı için özel işlemler If InStr(1, txt.Tag, anahtar, vbTextCompare) > 0 Then ' Formdaki tüm textboxları temizle SureBekle 500, True...

Textbox olaylarını yönettiğim clas var txt_Change olayım sürekli yenileniyor benim istediğim kullanıcı 500 ms boyunca yazmayı bıraktıktan işlemleri yapması araştırmam da bulamadım yardımcı olur musunuz? dosya boyutu yüksek olduğundan örnek dosya atamadım kusuruma bakmayın.

...Then For Each hucre In kontrolAraligi If hucre.Address <> Target.Address Then If InStr(UCase(hucre.Value), yeniIsim) > 0 Then MsgBox yeniIsim & " daha önce " & hucre.Address & " hücresine kaydedilmiş!", vbExclamation...

ilginiz için teşekkür ederim Maalesef denedim olmadı

...firmaAdi = Sheets("FİRMA EKLE").Range("B" & i).Value ' Türkçe harfleri bozmadan, harf duyarsız karşılaştırma yap If InStr(1, firmaAdi, aramaMetni, vbTextCompare) > 0 Then sonsatgecici = Sheets("FRMSUZ").Range("A100000").End(xlUp).Row + 1...

Hocam çok teşekkür ederim. Bu kod işe yaradı. Emeğinize sağlık

...i = 3 To sonSatir bDeger = Cells(i, "B").Value If bDeger <> "" And Cells(i, "H").Value <> "" Then noktaPozisyonu = InStr(bDeger, ".") If noktaPozisyonu > 0 Then satirSeviye = Trim(Left(bDeger, noktaPozisyonu - 1)) If...

...= 1 To sonSatir degerA = Trim(CStr(Cells(i, "A").Value)) degerB = CStr(Cells(i, "B").Value) If degerA <> "" And InStr(degerB, degerA) > 0 Then Cells(i, "C").Value = degerB Else Cells(i, "C").Value = "" End If Next i...

harika bir şekilde çalıştı yine de sağlama yapacağım bir sorun olursa dönüş yaparım ama tam olarak yapmaya çalıştığım buydu çok teşekkürler ilginiz için