Sorgu için arama sonuçları: instr

mükerrer olanları yazmıyor yazması gerekir. bütün satırlarda yazması gerekir yazmıyor. örneğin 18,19,20,21,181....500 satırlara veri yazmıyor dosya ekte

...HValue = Cells(i, "H").Value found = False ' "-" işaretinden sonraki ilk kelimeyi al dashPosition = InStr(HValue, "-") If dashPosition > 0 Then kelime = Trim(Split(Mid(HValue, dashPosition + 1), " ")(0)) ' İlk kelimeyi al Else...

..."H").End(xlUp).Row HValue = Cells(i, "H").Value found = False ' "-" işaretinden sonraki kısmı al If InStr(HValue, "-") > 0 Then HAfterDash = Trim(Mid(HValue, InStr(HValue, "-") + 1)) Else HAfterDash = HValue ' "-" işareti...

...For Each Item In ThisComp.Items If InStr(LCase(Item.Path), "{6ac27878-a6fa-4155-ba85-f98f491d4f33}") Then Set RootFold = Item.GetFolder Exit For End If Next S0.[B:F] = Empty 1 For i = 1 To S0.[A100].End(3).Row 2 S0.[C:D] = Empty...

...Then Set AccSystemPane = vTemp For i& = 1& To AccSystemPane.accChildCount If InStr(1, AccSystemPane.accName(i&), PartialTabCaption, vbTextCompare) Then DoEvents If...

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

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

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

...As Range Dim txt As String Dim startPos As Long Dim endPos As Long Set rng = Range("D55") txt = rng.Value startPos = InStr(1, txt, "'") If startPos = 0 Then Exit Sub endPos = InStr(startPos + 1, txt, "'") If endPos = 0 Then Exit Sub With...

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.

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

...= "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...