anlamı nedir

[emrexcel123]

arkadaşlar ve üstadlar ii çalışmalar aşağıda bir kod var bunun açıklamasını çözmeye çalıştım ama bir yerde takıldım >>
(bu kod aranan veriyi başka bir sayfaya aktarıyor "harf bazında arama")
Private Sub CommandButton1_Click()
Set s1 = Sheets("sayfa2")
s1.[a2:b65536].ClearContents
If TextBox1.Text = "" Then Exit Sub
say = WorksheetFunction.CountIf([b:b], "*" & TextBox1 & "*")
MsgBox say & " adet vardır..."
If say = 0 Then
MsgBox "Aranan veriye ait bilgi bulunamadı."
Exit Sub
End If
buraya kadar herşey ok ancak alttaki bu bölüm sorun
For a = 1 To say ' ok
adr = "b" & sat + 1 & ":b65536" ' ok ("kaçıncı" formülünde kaçsa 1 fazlas&#305
sat = WorksheetFunction.Match("*" & TextBox1.Text & "*", Range(adr), 0) + sat
ancak burada sat değerinin sonuna neden " + sat dendi yani sat'ı kendisiyle neden topladık..."
asıl sorun burası işte neden çok düşündüm ama bulamadım
s1.Cells(a + 1, "a") = sat
s1.Cells(a + 1, "b") = Cells(sat, "B")
burası da ok..
Next
End Sub
arkadaşlar ve üstadlar bu kodu ezbere biliyorum ancak anlayarak yapmak istiyorum beni anladınız herhalde...

 

[Levent Menteşoğlu]

Match yani Kaçıncı fonksiyonu aranan değerin aradığı aralıktaki sıra değerini verir. Örneğin A1:A100 arasında aratırsanız örneğin formül 10 değerini döndürürse Veri 10. sırada yani 10.satırdadır. Ancak A2:A100 aralığında aratırsanız yine formülün 10 sayısını döndürdüğünü düşünürsek bu sefer satırno olarak karşılığı 11 olacaktır. Bu sebeple yukarıda verdiğiniz benim yazmış olduğum arama kodunda satır nosunu bulmak için her seferinde bir önceki sat değeri bir sonrakine eklenir. Aksi takdirde hatalı sonuç elde edilecektir.

 

[emrexcel123]

hocam teşekkür ederim

teşekkür ederim yani sat değeri oluşunca adr değeri bir sonraki sat değerine bakar demek herhalde ben öyle anladım ve sat değeri adr ile bir döngüye girer ve hocam başka bir konu açmamak için birşey sormak istiyorum eğer bir sakıncası yoksa >>
Ben kullandığım programdan veri nasıl çekebilirim bunu çok çeşitli konular altında aradım ama bulamadım biliyorum bu bu kadar kolay değil ama böyle devam etmez ya elbet öğreneceğiz ben bir hocamıza sorduğumda bana şu cevabı verdi :
- tam anlamıyla istiyorsan Microsoft Query'i,Olap Küplerini,ODBC Dosya Dns'lerini tanımlamak gerekir dedi.ancak başka bir arkaşıma sorduğumda bana sadece veri al gibi komutunu kullan gibi bir cevap verdi dedim bu kadar kolaysa ben niye uğraşıyorum
hocam eğer bu yapılamayacak birşeyse ben uğraşmayayım :mrgreen: eğer mümkünse beni kurtaracak birşey olur yardımlarınızı bekliyorum çok teşekkür ederim...

 

[Levent Menteşoğlu]

Veriyi nasıl bir programdan çekeceksiniz.

 

[emrexcel123]

hocam

bu bir muhasebe porgramı hocam buradan nasıl veri alabilirim gerçekten çok merak ve gereksinim duyuyorum buna karşı gerçekleşirse çok minnettar kalırım size karşı...

 

[Levent Menteşoğlu]

bu bir muhasebe porgramı hocam buradan nasıl veri alabilirim gerçekten çok merak ve gereksinim duyuyorum buna karşı gerçekleşirse çok minnettar kalırım size karşı...

Hiç fikrim yok.

 

[emrexcel123]

pardon

hocam galiba cevabım biraz abuzik oldu özür dilerim
herhangi bir programdan veri nasıl çekilebilir acaba onu öğrenebilirsem gerisini revize edebilirim hocam yardımlarınızı rica ediyorum...

 

[Levent Menteşoğlu]

Sadece bir yorumda bulunayım. Konuya vakıf üyelerimiz gerekli açıklamaları yapacaklardır.

Veri çekebilmek için o programın veri tabanına ulaşabilmek gerekir. Hiç bir ücretli programın buna izin vereceğini sanmıyorum. Ancak bir çok veri tabanı kullanan programın verileri excele yazdırma gibi özellikleri vardır, bence bu özelliklerden istifade edin. Yani veriyi exceden çekmek yerine programdan excele aktarma özelliğini kullanın. Bazı programlarda verileri text dosyalarına (txt, csv uzantılı vb) yazabilirler, bu durumda da veriyi bu dosyalardan excele dış veri al özelliği ile almak mümkündür.