Excel'de veri işleme?

[MET]

Merhaba arkadaşlar ,

8 sutun 45 bin satırdan oluşan bir Excel tablom var. Bu tabloda düşey ara fonksiyonuyla belirli kritere göre arama yaptırmaya çalışıyorum. Ancak veri miktarı çok olduğu için işlem çok uzun sürüyor hatta yanıt vermiyora düşüyor. Excel içerisindeki makrolar ile sql cümlesi yazıp arama yaptırma imkanı var mı? Böyle bir yapıda nasıl bir yaklaşım sergilemeliyim?

Önerilerinizi bekliyorum. Teşekkürler...

[[...Saint...]]

Mete hocam aramayı direk Excelde yapmak zorunda mısın ?
Demek istediğim vbasic ya da .net içerisine alıp aramayı yapsan kitlenme olmaz diye düşünüyorum..

[MeKA]

biraz araştırdım da...
asp.net formu hazırlayarak xls dosyasını veri tabanı olarak gösterip sorgulama yaptırabilirsin
istersen örnek proje gönderebilirim.

[MET]

Aramayı direkt olarak excel içinde yapmam gerekiyor. Arama sonucunda gelen verileri başka excel dosyasından gelen bir dizi rakamla karşılaştırıp devam eden bir işlem serisi var. Muhasebesel işlemler.

Mustafa hocam bahsettiğiniz örneği gönderebilirseniz faydası olabilir diye düşünüyorum.

Konu üzerindeki araştırmalar devam ediyoru.

Açıklamalarınız için teşekkürler. Kolay gelsin.

[MeKA]

Gönderiyorum Mete basit bir arama yaptırdım ama sen daha gelişmişini artık kendine göre hazırlarsın.
Excel dosyasında ufak bir ayarlama yapman gerekiyor...
Excel 2003 ve öncesi için Ekle/ad diyorsun Tablona bir isim veriyorsun ve tablo alanını belirliyorsun burada..Ekle diyerekte tablonu .NET in görebileceği hale getiriyorsun.
birde ben excel dosyasını app_data klasörüne koydum Connection String i daha rahat yazayım diye seninki farklı yerde olursa Ona göre bağlantı cümlesini değiştirirsin.
Kolay gelsin.

[MET]

Hemen bakıyorum Mustafa Kemal , çok sağolasın. Kolay gelsin.

Excel içinde vb düzenleyicisiyle şunları kullanarak çözdüm. Daha pratik oldu , asp.net de işin içine girince kullanıcı açısından iş daha da karışacaktı.

Set s1 = Sayfa1
Set S2 = Sayfa2
'If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
For i = 2 To [a65536].End(3).Row
  If Cells(i, 1).Value = TextBox1.Text And Cells(i, 4).Value = TextBox2.Text Then
  sat = S2.[a65536].End(3).Row + 1
S2.Range(S2.Cells(sat, 1), S2.Cells(sat, 6)).Value = s1.Range(s1.Cells(i, 1), s1.Cells(i, 6)).Value
End If
Next i
MsgBox "Aktarıldı"