veri içinde arama

[acar6783]

Merhabalar,

"150*869038594582"
verisinin içinde "*" işaretinin durumunu sorgulayan kodu,

Vba içerisinde worksheetfunction. ile birlikte kullanılan kodlar hariç
nasıl bulabilirim?

hücredeki gibi "Characters(Start:=x, Length:=1)" ile denedim olmadı

 

[Murat OSMA]

Sorunuz net anlaşılmıyor.

İstediğiniz çözüme bu şekilde erişebiliyor musunuz?

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    veri = "150*869038594582"
    ara = "*"
    MsgBox ara & " karakteri " & [COLOR="Red"]InStr[/COLOR](1, veri, ara) & ". karakter"
End Sub[/SIZE][/FONT]

 

[acar6783]

Sorunuz net anlaşılmıyor.

İstediğiniz çözüme bu şekilde erişebiliyor musunuz?

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    veri = "150*869038594582"
    ara = "*"
    MsgBox ara & " karakteri " & [COLOR="Red"]InStr[/COLOR](1, veri, ara) & ". karakter"
End Sub[/SIZE][/FONT]

Evet aynen budur
Fakat bu fonksiyonu daha önce görmüştüm fakat uyarlayamadım.
Fonksiyonun analamı nedir?
Ortanca formulu gibi birşey mi?

 

[Murat OSMA]

Ortanca formülü Matematiksel bir formüldür. Konumuzun bu formülle ilgisi yoktur.
InStr Metin formüllerinden Bul ile aşağı yukarı aynı şekilde çalışır. ​

Aşağıda anlayacağınız biçimde belirtmeye çalışayım.

InStr(1, veri, ara)
InStr(1.karakterden aramaya başla, burada ara, bunu ara)

Bu fonksiyon bize neyi sağlar?

Aranan bir karakter veya metnin, dizi içerisinde var olup olmadığını, aynı zamanda da var ise kaçıncı karakterde olduğunu bize verir.


İyi günler.​

 

[acar6783]

Teşekkürler.

CreateObject("scripting.dictionary")

Yazılmış bir makaleniz ya da paylaşımınız var mıdır?

 

[Murat OSMA]

Rica ederim.

Henüz o konu ile ilgili bir yazım yok.
Bu kaynak size yardımcı olacaktır. http://www.snb-vba.eu/VBA_Dictionary_en.html​

 

[acar6783]

Bunu görmüştüm ama ben ona baktım o bana baktı

Chromedan Türkçeye çevirdim daha kötü oldu.
Az çok ingilizce bilgim var fakat gerçekten birşey anlamadım.
Ayı yazıyı bizim anlyacağımız dile çevirseler(niz) süper olurdu

 

[Murat OSMA]

Tahmin edebiliyorum.
O kadar vaktim olsa, yazmaya başladığım Excel & VBA (Makro) Kitabını bitirirdim.
Forumda bu konuda güzel çözümleri olan arkadaşlardan destek alabilirsiniz.

İyi akşamlar.​

 

[acar6783]

Murat bey ,
http://www.cozumpark.com/forums/thread/405746.aspx
http://www.muratosma.com/microsoft-activex-data-objects-ado-hakkinda/
Buradaki makalelerinizden bu konuya benzer bir paylamınız olmuş.
Bundan oldukça faydalandım .
Teşekkür etmek istedim.

 

[Murat OSMA]

Bir faydam dokunuyorsa ne mutlu bana

Saygılar
​

 

[acar6783]

Murat bey ,
Bu kodlar epey işimi gördü fakat ilerlemem gerekiyor

Sub Kapalıdan_Al()
    Dim Con As Object, Rs As Object, Sorgu As String
    Set Con = CreateObject("Adodb.Connection")
    Set Rs = CreateObject("Adodb.RecordSet")
        Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
        ThisWorkbook.Path & "\Kapalı_Dosya.xlsx" & ";extended properties=""excel 12.0;hdr=no"""
        Sorgu = "Select * from [Sayfa1$] where f1 ='Murat'"
        Rs.Open Sorgu, Con, 1, 1
        Range("A1").CopyFromRecordset Rs
        Rs.Close: Con.Close
    Set Con = Nothing: Set Rs = Nothing: Sorgu = ""
End Sub

Buradaki kodlarda kapalı olan dosyadan "murat" a eşit olan satırları inanılmaz hızlı bir şekilde çekiyor.
Bu aşamada mesela komple satırı değilde "murat" a eşit olan satırdaki istediğimiz bir sutundaki veriyi nasıl alabiliriz?
Ya da "murat" yoksa eğer kapalı dosyaya eklemeyi yapabilirmiyiz?
Ya da diyelim ki var ama ben o satırın 3. sütunundaki veriyi değiştirmek istiyorum ?

Çok bunalttım ama baktım ki bunlar sizin için devede kulak kalıyor