Sorgu için arama sonuçları: instr

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

SadeceDeğerleriGetir adında başka bir kodunuz daha olmalı. Kod isimleri çakışmış olmalı.

...hariçSayfalar = ";Toplam Reçete;Veriler;Deneme;" For Each ws In ThisWorkbook.Worksheets If InStr(1, hariçSayfalar, ";" & ws.Name & ";") = 0 Then sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row If sonSatir >= 5 Then ' 5. satırdan...

...Dim deger As String For Each hücre In Range("A1:A50000") If hücre.Value <> "" Then deger = hücre.Value If InStr(deger, ".") > 0 Then deger = Split(deger, ".")(0) End If hücre.Value = CLng(deger) End If...

merhaba merhaba denedim ustad şöyle ara kısmında j alanına kadar getiriyor toplam sutun 14 fakat 10 sutun geliyor aramada ayrıca bi hata veriyor aramada (hata could the set the list property.Invaled property value) data kısmındaki ilk alanı a: sutunu aktarıyor buna gerek yok sıra no olduğu...

bu doğru sonuç veriyor hocam. elinize sağlık

koddaki Return Kelime satırı kırmızı oluyor. İşe yaramadı.

yanlış ayırıyor hocam Volkan ismini Vo lkan diye ayırdı

...Onlar$(7) = "yetmiş" Birler$(8) = "sekiz": Onlar$(8) = "seksen": Birler$(9) = "dokuz": Onlar$(9) = "doksan" say = Str$(sayi#) virgul1 = InStr(1, say, ".") If virgul1 Then If Len(Mid(say, virgul1 + 1)) = 1 Then say = say + "0" say = Right$(say, Len(say) - virgul1) GoSub cevir If cevap =...

...If onc_nm = nm Next ii col.Add a f1 = "" f2 = "" If col.Count > 0 Then For iii = 1 To col.Count If IsNumeric(col(1)) And Len(col(1)) < 4 And InStr(col(1), ".") = 0 Then If .Exists(Val(col(1))) Then Z = .Item(Val(col(1))) Else Z(1) = 0 Z(2) = 0 End If f1 = f1 & Z(1) Else f1 = f1 & col(1) End...

...If col.Count > 0 Then For iii = 1 To col.Count If IsNumeric(col(1)) And Len(col(1)) < 4 And InStr(col(1), ".") = 0 Then If .Exists(Val(col(1))) Then z = .Item(Val(col(1)))...