Sorgu için arama sonuçları: instr

...xBit = LBound(dzPersonel): BaSon = -1 For xP = xBas To xBit Step BaSon 'UBound(dzPersonel) If (InStr(1, Evaluate("=lower(""" & dzPersonel(xP, 2) & """)"), Evaluate("=lower(""" & Gun(xMod) & """)")) > 0 Or _ InStr(1...

...7 If xMod > 1 Then xPerSr = 0: xMin = 100 For xP = 1 To UBound(dzPersonel) If (InStr(1, dzPersonel(xP, 2), Gun(xMod)) > 0 Or InStr(1, dzPersonel(xP, 2), "HAFTA") > 0) And dzPersonel(xP, 3) < xMin Then xPerSr...

...kadar olan kısmı al segment = Mid(inputText, currentPosition, maxLength) ' Son kelimeyi bul spacePosition = InStrRev(segment, " ") If spacePosition > 0 Then ' Kelimeleri son kelimeden önce kes Range("B" &...

...As String formatString = cell.NumberFormatLocal Dim firstDotPosition As Long Dim secondDotPosition As Long firstDotPosition = InStr(1, formatString, ".") secondDotPosition = InStr(firstDotPosition + 1, formatString, ".") Dim beforeDotCharacter As String If...

...boş. Lütfen hücreyi doldurun." Exit Sub End If ' E-posta adresinin geçerli formatta olup olmadığını kontrol et If InStr(1, emailTo, "@") = 0 Or InStrRev(emailTo, ".") < InStr(1, emailTo, "@") Then MsgBox "Geçersiz e-posta adresi. Lütfen geçerli bir adres...

...' Arama işlemi: G'den L'ye kadar olan sütunlarda arama yap For Each cell In rng For sutun = 1 To 6 If InStr(1, cell.Offset(0, sutun - 1).Value, arananDeger, vbTextCompare) > 0 Then ' Bulunan satır satirIndex = cell.Row...

...<> "" dosya = ThisWorkbook.Path & "\" & fileName ': Debug.Print dosya .LoadFromFile dosya xVeri = Left(fileName, InStrRev(fileName, ".") - 1) 'dosya adını al Do While Not oStreamUTF8.EOs csvData = oStreamUTF8.ReadText(-2)...

Denedim çok hızlı ve istenilen sonucu veriyor. Hocam teşekkür ederim çok makbule geçti.

Eyvallah hocam eline sağlık. Ben cevap gelmeyince umudu kesmiştim sonra çözümü başka taraftan halletmiştim. Bu koduda deneyeceğim. Emeğine sağlık

VelselEmre hocam çok çok teşekkür ederim istediğim tam olarak buydu hemde Türkçe karakterlerin hepsini alıyor. Fakat küçük 2 problem var. Birincisi birçok telefon numaralarını almıyor, galiba telefon no girerken Diğer telefon, Cep Telefonu seçeneklerinin en altındaki Özel seçeneğini seçerek o...

...14).Value = notes End With rowIndex = rowIndex + 1 Else ' Satırı işle If InStr(line, ":") > 0 Then propName = Trim(Left(line, InStr(line, ":") - 1)) propValue = Trim(Mid(line, InStr(line, ":") + 1))...

Emeğiniz ve ilginiz için çok teşekkür ederim. Denedim ama sadece 1. satıra başlıkları yazıyor diğer bilgilerin hiçbiri gelmiyor.

...= "Notlar" currentRow = 2 ' VCF verilerini işle Set dict = CreateObject("Scripting.Dictionary") For i = LBound(lines) To UBound(lines) If InStr(lines(i), "BEGIN:VCARD") > 0 Then dict.RemoveAll ElseIf InStr(lines(i), "END:VCARD") > 0 Then ' Verileri yaz For j = 1 To 14 If...

...For Each dosya In klasor.Files ' Dosya isimlerinde "Aday", "Aktif" veya "Pasif" olup olmadığını kontrol et If InStr(1, dosya.Name, "Aday", vbTextCompare) > 0 Or _ InStr(1, dosya.Name, "Aktif", vbTextCompare) > 0 Or _ InStr(1, dosya.Name...

...dz(1 To x) dz(x) = Cells(a, "A") & ayr & Cells(a, "C") & ayr & Cells(a, "D") & ayr & Cells(a, "B") ' & ayr & Cells(a, "F") ElseIf InStr(1, dz(x) & ayr, ayr & Cells(a, "F") & ayr) = 0 Then dz(x) = dz(x) & ayr & Cells(a, "F") End If Next Range("H2").Resize(x).Value =...

...& "*.csv") Do While csvFile <> "" ' Dosyayı aç Open folderPath & csvFile For Input As #1 xVeri = Left(csvFile, InStrRev(csvFile, ".") - 1) 'dosya adını al ' Dosya içeriğini oku Do While Not EOF(1) Line Input #1, csvData...

Korhan hocam üstte bulunan metni kalın harf yaptığımız gibi ayrıca alttaki metni de aşağıdaki gibi yapabilir miyiz? Yani alttaki metnin ilk 3 karakteri ve son 3 karakteri görünsün ama ortadaki karakterler ******** şeklinde görünsün. Bununla ilgili aşağıdaki T.C. gizleme fonksiyonunu buldum ama...

...' Sayfa adınızı buraya girin Dim cell As Range For Each cell In ws.Range("A1:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row) If InStr(cell.Value, "-") > 0 Then cell.Offset(0, 1).Value = Left(cell.Value, InStr(cell.Value, "-") - 1) cell.Offset(0, 2).Value = Mid(cell.Value, InStr(cell.Value...

Teşekkür ederim hocam kullanıcı tanımlı fonksiyon olarak yazabilir misiniz

...harfler = Range("C" & x).Value For p = 1 To Len(harfler) karakter = Mid(harfler, p, 1) If InStr(benzersizHarfler, karakter) = 0 Then benzersizHarfler = benzersizHarfler & karakter End If Next p Next x...