Sorgu için arama sonuçları: instr

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

Merhaba hocam, Allah razı olsun, emeğinize, yüreğinize ve bilginize sağlık, makro çalıştı ve işimi kolaylaştırdı. Allahta senin işlerini kolaylaştırsın varolasın selametle kal. Saygılarım.

2018 klasörüne uyguladığımda tüm aylar için listele dediğimde kod sorunsuz çalışmıştı. Fakat diğer klasörlerde denediğimde tüm ayları listele dediğimde automation error hatası alıyorum. İlginç bir şekilde 2019-2020-2021-2022 klasörülerinde ay seçmeden arama yaptığımda sol altta inceleniyor...

Dostum bu çalışma için çok teşekkürler hatasız verileri çekmeyi başardım. Kodlarda oynama yapmama gerek bile kalmadı hatta. İnisiyatifin için tekrar teşekkürler. Bence oldukça verimli bir çalışma oldu yararlanacak arkadaşlar da vardır. Belki ufak bir ekleme yapmak gerekirse dosya adlarını...