Sorgu için arama sonuçları: instr

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

Korhan hocam çok teşekkür ederim.

Deneyiniz. Sub Bold_First_Line() If InStr(Range("A1"), Chr(10)) > 0 Then Range("A1").Characters(1, InStr(Range("A1"), Chr(10)) - 1).Font.Bold = True End If End Sub

Hocam teşekkürler yardımlarınız için ancak 1- ad soyad kısmını birleşik girip sonra tabloda kesmek bazı hatalı girişlere neden olabiliyor. (örneğin 3 ve fazlası isimlerde sadece ilk iki kelimeyi alıyor. 2. A sütununa hep aynı sayıyı atıyor +1 yapması lazım

..."Uyarı" Exit Sub End If If Me.TextBox2 = "A" Then d = 12 ElseIf Me.TextBox2 = "B" Then d = 24 Else Exit Sub End If If InStr(1, Me.TextBox1, " ") > 0 Then ad = Split(Me.TextBox1, " ")(0) soyad = Split(Me.TextBox1, " ")(1) Else ad = Me.TextBox1 End If r = 1 For...

...Set DB = daoDBEngine.OpenDatabase(ListBox1.Tag, False, False, "Excel 8.0; HDR=Yes; IMEX=1;") MySheet = VBA.Replace(DB.TableDefs(0).Name, "'", "") MySheet = Application.Substitute(MySheet, "'", "") depoilksayfa = Left(MySheet, InStr(1, MySheet, "$", 1) - 1) End Sub