Sorgu için arama sonuçları: instr

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

.../ içeren hücreyi formüle çevirmek. Yani hücre 1234/567 ise bunu makro ile =1234+567 çevirip normal toplama işlemini yapmak Sub Duzelt() Dim rng As Range Dim ayr As String ayr = "/" For Each rng In Selection If InStr(rng, ayr) > 0 Then rng = "=" & Replace(rng, ayr, "+") Next rng End Sub

...' Kriteri içerenleri filtrele sonuc = "" For Each cell In veriAraligi If cell.Value <> "" And InStr(1, cell.Value, kriter, vbTextCompare) > 0 Then sonuc = sonuc & cell.Value & "," End If Next cell...

kod bu tekrar bakabilir miyiz?

...If anahtarKelime <> "" Then ' İlk eşleşen anahtar kelimeyi bul If Not anahtarKelimeBulundu And InStr(1, veriHarfleri, anahtarKelime, vbTextCompare) > 0 Then kelimeBulundu = True...

Siz baktınız mı acaba ? Şimdi denedim. Aman yine aynı sadece anahtar kelime büyükse sadece büyük yazan verileri getiriyor. Excel örneğini atmıştım. Excel sürümünün farklı olması değiştirir mi bu durumu bilmiyorum. bendeki 2013 verisiyon office

...If anahtarKelime <> "" Then ' İlk eşleşen anahtar kelimeyi bul If Not anahtarKelimeBulundu And InStr(1, veriHarfleri, anahtarKelime, vbTextCompare) > 0 Then kelimeBulundu = True...

...If anahtarKelime <> "" Then ' İlk eşleşen anahtar kelimeyi bul If Not anahtarKelimeBulundu And InStr(1, veriHarfleri, anahtarKelime, vbTextCompare) > 0 Then kelimeBulundu = True...