Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: cengizozkan - 29 Nisan 2010, 15:32:44

Başlık: Kodlar Eksik Çalışıyor
Gönderen: cengizozkan - 29 Nisan 2010, 15:32:44

Kısa bir aradan sonra tekrar Merhabalar.

Kullanmış olduğum dosyada bugun fark ettiğim bir eksikliği sizlerden yardım alarak çözmek istiyorum.


Depo uygulaması kullanıyorum. Süz sayfasında kodlar yardımı ile rapor alıyorum fakat kodların yeterince süz işlemini yapmadığını anladım ve sizleden bunu nasıl düzeltebilirim. ( office 2003 de normal çalışıyor bazen )
office 2007 trk kullnıyorum

Kod: [Seç]

Sub Tarihara()
Dim veri1 As Worksheet, veri2 As Worksheet, s1 As Integer, Aranan1 As String, Aranan2 As Long, Aranan3 As Long

Set veri1 = Worksheets("Malz.Çıkışı")
Set veri2 = Worksheets("Süz")
Set Liste = veri1.Range("A1")
Aranan1 = veri2.Range("C3").Value
Aranan2 = veri2.Range("C1").Value
Aranan3 = veri2.Range("C2").Value

'On Error Resume Next

    veri2.Range("B5:I" & veri2.Range("C10000").End(3).Row + 4).ClearContents
    Liste.AutoFilter Field:=1, Criteria1:=">=" & Aranan2, Operator:=xlAnd, Criteria2:="<=" & Aranan3
    Liste.AutoFilter Field:=2, Criteria1:=Aranan1

    veri1.Range("A1:H" & veri1.Range("B10000").End(3).Row).Copy veri2.Range("B4")
    Liste.AutoFilter

    s1 = WorksheetFunction.CountA(veri2.Range("C:C")) - 4
  If s1 = 0 Then MsgBox " Bu kriterde kaydınız yok": Exit Sub
    MsgBox "Bu Kriterde " & s1 & " Adet Kaydınız Bulundu", vbInformation, "Bilgi"
   
 
End Sub  kullandığım kod bu iki tarih yazıyorum ara düğmesine basarak gerekli bilgiyi bana vermesi gerekiyor

sizlerin tavsiye edeceği başka yöntem yada kod var mı?

Başlık: Ynt: Kodlar Eksik Çalışıyor
Gönderen: Bülent Öztürk - 29 Nisan 2010, 15:43:32

Merhaba Cengiz Bey,

1-Abaca veri aralığınız Range("C10000") 'in dışına çıkıyor mu? 10000 yerine 65536 yazmayı deneyin.

2-Acaba bütün verileriniz aynı formatta mı? Formatları, baştaki, sondaki boşlukları vb. kontrol edin.

Başlık: Ynt: Kodlar Eksik Çalışıyor
Gönderen: cengizozkan - 29 Nisan 2010, 16:16:20

isterseniz kullandığım dosyayı göndereyim. Ama 10000 geçmiyor benim kafamı karıştıran office 2003 de çalışıyordu ? :hımm ( yada ben yeni fark ediyorum )

Bülent Bey;
benim anladığım kadarı ile sorun darih seçmede çünkü tarih seçme satırında tüm tarihleri göremiyorum.

Başlık: Ynt: Kodlar Eksik Çalışıyor
Gönderen: Bülent Öztürk - 29 Nisan 2010, 16:39:51

Bu özelliğin 2003 veya 2007'ye göre değişeceğini sanmıyorum.

Bu arada, tarih seçme satırında 1000'den fazla farklı kayıt varsa, süzme işlemi için ilk 1000 tanesi listelenir.

İsterseniz dosyanızı gönderin bakalım, yalnız ben 2003 olarak bakabiliyorum.

Başlık: Ynt: Kodlar Eksik Çalışıyor
Gönderen: cengizozkan - 29 Nisan 2010, 16:43:36

Dosya Ekte 

Süz sayfasında verileri süzeren deneyin birde Malz.Çıkış sayfasında deneyin aynı sonucu alamıyorum ben

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: Kodlar Eksik Çalışıyor
Gönderen: Bülent Öztürk - 29 Nisan 2010, 17:27:50

Sanırım tarih formatlarında sorun var.

Bütün tarihleri başka bir sayfaya kopyalayıp, gün, ay, yıl ayırıp, tekrar tarih olarak birleştirip kopyaladım ve eski yerlerine yapıştırdım.

Dener misiniz?



[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: Kodlar Eksik Çalışıyor
Gönderen: cengizozkan - 29 Nisan 2010, 17:37:07

Teşekkürler Şuan çalışıyor.

Ben o kadar baktım göremedim hatta tümünün tarih formatını baştan yaptım yine olmamıştı.  :alkis

Başlık: Ynt: Kodlar Eksik Çalışıyor
Gönderen: Bülent Öztürk - 29 Nisan 2010, 17:39:27

Rica ederim.

Ben de baktım baktım bir fark göremedim. En sonunda başka sayfaya alıp düzenlemeyi deneyeyim dedim, oldu.

Bazen hücreler de sapıtıyor mu ne?  :)