• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Tarihler arasındaki verileri başka sayfaya aktarma...

  • Konbuyu başlatan Konbuyu başlatan manly
  • Başlangıç tarihi Başlangıç tarihi
M

manly

Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Göndermiş olduğum dosyada, "H" sütununda, 12/08/2008 tarihi ile 17/05/2010 tarihleri arasında "j" sütununda KOD'u "a" olanları sayfa1'e aktarmak istiyorum. Yardım ederseniz sevinirim...
 

Ekli dosyalar

Merhaba;

Aşağıdaki kodu dener misiniz?
Kod: 
Option Explicit

Sub deneme()
Dim hücre As Range, Son_Satır As Long
Application.ScreenUpdating = False

    For Each hücre In Range("H2:H" & Range("H65536").End(3).Row)
        If CDate(hücre) >= CDate("12.08.2008") And CDate(hücre) <= CDate("17.05.2010") _
            And Cells(hücre.Row, "J") = "a" Then
                With Sheets("Sayfa1")
                    Son_Satır = .Range("A65536").End(3).Row + 1
                    .Cells(Son_Satır, "A") = Son_Satır - 1
                    Range(Cells(hücre.Row, "B"), Cells(hücre.Row, "K")).Copy
                    .Cells(Son_Satır, "B").PasteSpecial xlValues
                End With
        End If
    Next
MsgBox "İşleminiz tamamlanmıştır", vbInformation, "Sn. " & Application.UserName
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub
 
Son düzenleme:
manly' Alıntı:
Göndermiş olduğum dosyada, "H" sütununda, 12/08/2008 tarihi ile 17/05/2010 tarihleri arasında "j" sütununda KOD'u "a" olanları sayfa1'e aktarmak istiyorum. Yardım ederseniz sevinirim...
Genişletmek için tıkla ...

merhaba
Sayfa1'de L1,M1 ve N1'deki girilen verileri kendinize göre uyarlayınız.
o1'deki formülü filmeyiniz
Sayfa1'deki bütün formüller dizi formülüdür. ve 65536 olarak sınırlandırılmıştır.
 

Ekli dosyalar

Hocam,
Run-time error "13"
Type mismatch hatası verdi ...
 
İhsan hocam teşekkürler, kod olarakta almam mümkün mü?
 
If CDate(hücre) >= CDate("12.08.2008") And CDate(hücre) <= CDate("17.05.2010") _
And Cells(hücre.Row, "J") = "a" Then


hata burada veriyor...
 
manly' Alıntı:
If CDate(hücre) >= CDate("12.08.2008") And CDate(hücre) <= CDate("17.05.2010") _
And Cells(hücre.Row, "J") = "a" Then


hata burada veriyor...
Genişletmek için tıkla ...
Peki siz bu kodu çalıştırırken SAYFA yazılı çalışma sayfanın içerisindesiniz dimi? Diğer sayfa da kodu çalıştırdığımda ben de de aynı hata verdi o yüzden soruyorum.
 
Evet SAYFA yazılı çalışma sayfasında butona tıkladığımda bu hatayı veriyor..
 
Merhaba;

Kod: 
Option Explicit

Sub deneme()
Dim hücre As Range, Son_Satır As Long
Dim S1 As Worksheet, S2 As Worksheet
Application.ScreenUpdating = False
Set S1 = Sheets("SAYFA")
Set S2 = Sheets("SAYFA1")
    For Each hücre In S1.Range("H2:H" & S1.Range("H65536").End(3).Row)
        If CDate(hücre) >= CDate("12.08.2008") And CDate(hücre) <= CDate("17.05.2010") _
            And S1.Cells(hücre.Row, "J") = "a" Then
            Son_Satır = S2.Range("A65536").End(3).Row + 1
            S2.Cells(Son_Satır, "A") = Son_Satır - 1
            S2.Cells(Son_Satır, "B") = S1.Cells(hücre.Row, "B")
            S2.Cells(Son_Satır, "C") = S1.Cells(hücre.Row, "C")
            S2.Cells(Son_Satır, "D") = S1.Cells(hücre.Row, "D")
            S2.Cells(Son_Satır, "E") = S1.Cells(hücre.Row, "E")
            S2.Cells(Son_Satır, "F") = S1.Cells(hücre.Row, "F")
            S2.Cells(Son_Satır, "G") = S1.Cells(hücre.Row, "G")
            S2.Cells(Son_Satır, "H") = S1.Cells(hücre.Row, "H")
            S2.Cells(Son_Satır, "I") = S1.Cells(hücre.Row, "I")
            S2.Cells(Son_Satır, "J") = S1.Cells(hücre.Row, "J")
            S2.Cells(Son_Satır, "K") = S1.Cells(hücre.Row, "K")
        End If
    Next
MsgBox "İşleminiz tamamlanmıştır", vbInformation, "Sn. " & Application.UserName
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub
bu şekilde deneyin. Eğer burada da hata alırsanız biraz araştırın. Tip uyuşmazlığı var artık bunun sebepleri excel 2003 koduna göre çalışıyor olması yada bilgisayarınızın tarih formatını farklı olması olabilir. Konu ile ilgili umarım yardımcı olabilinir. İyi geceler.
 
Çok teşekkür ederim. Sorun ne yazık ki devam ediyor...İyi geceler..
 
Yurttaş hocam teşekkür ederim.
Bu çalışmayı kendime göre ayarlarsam işimi görür..Ellerinize sağlık...
 
ihsan hocam benimde bir isteğim olacak bir inceleme takip çizelgesi yaptım yanlız inceleme süresi tarihinden itibaren 25 gün içerisinde tamamlanması gerekiyor bu süreyi aşan incelemelerin diğer bir sayfaya aktarılması şeklinde bu konuda yardımlarını bekliyorum....

ekteki dosyada daha gerekli açıklamayı yaptım
şimdiden teşekkürler herşey gönlünüzce olsun...
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst