Veri Süzme İle İlakalı

[submarine]

Ustadlar benımde sizlerden bı ricam olcak ekte yolladıgım exel dosyasında sayfa1 dekı verileri sayfa2 ye aktarnmak ıstıyorum ama su sekılde sayfa1 de mısafırın gırıs cıkıs tarıhlerı yazıyor mesela musteri 10/06/2007 rtarihinde giriş yapmıs 10/07/2007 tarıgınde cıkacak bu sayı cogaltılabılır musterı sayısı artacagı ıcın şimdi sayfa2 ye ben 15/06/2007 gıbı bı tarıh yazacam ve bana safya1 de kı musterılerden 15/06/2007 de konaklayanların dokumunu yapacak bu yapabılırmıyız

 

[Necdet]

Dosyanız ekte..

 

[Orion1]

Merhaba.
Sayfa2'de B2 hücresine tarih yazıyorsunuz ve aktar butonuna basıyorsunuz.
Ekli dosyayı inceleyiniz.
Not:
Ben dosyayı hazırlayana kadar sayın hocamız Necdet Yesertener bey cevap vermiş bile
Hocam özür .Göremedim.

Sub aktar()
Dim tarih As Date, tarih1 As Date, tarih2 As Date, sonsat As Long
Dim sayfa As String, sat As Long, sut As Byte, i As Long
'On Error GoTo hata
Sheets("Sayfa2").Select
If Range("B1").Value = "" Then Exit Sub
If Not IsDate(Range("B1").Value) Then
    MsgBox "B1 Hücresine Tarih giriniz..!!", vbCritical
    Range("B1").Select
    Exit Sub
End If
tarih = Range("B1").Value
sayfa = "1"
sonsat = Sheets(sayfa).Cells(65536, "C").End(xlUp).Row
If sonsat < 2 Then Exit Sub
sat = 4
Range("A4:H65536").ClearContents
For i = 2 To sonsat
    If Not IsDate(Sheets(sayfa).Cells(i, "G").Value) Or Not IsDate(Sheets(sayfa).Cells(i, "H").Value) Then GoTo atla
    tarih1 = Sheets(sayfa).Cells(i, "G").Value
    tarih2 = Sheets(sayfa).Cells(i, "H").Value
    If tarih >= tarih1 And tarih <= tarih2 Then
        For sut = 1 To 8
            Cells(sat, sut).Value = Sheets(sayfa).Cells(i, sut).Value
        Next sut
        sat = sat + 1
    End If
atla:

Next i
MsgBox "AKTARMA TAMAMLANDI"
hata:
End Sub

 

[Necdet]

Sayın Sezar,

İkimizde aynı anda yanıt vermişiz bence iyi de etmişiz. En azından farklı yöntemlerle sonuca ulaşmışız.

Ben çoğu zaman anlaşılsın diye kodları uzatırım, bir anlamda hem anlaşılması kolay olsun hemde daha çabuk öğrenilmesi.

Sizde döngü ile aktarmışsınız, ilk düşündüğümde ise ben Copy ile yapayım demiştim, yani sonuçta iyi olmuş, iki ayrı çözüm şekli, elinize sağlık

 

[emre1979]

veri aktarma

arkadaşlar yardımcı olursanız çok sevinirim

 

[Orion1]

arkadaşlar yardımcı olursanız çok sevinirim

Sorunuzu yeni bir başlık açarak sorunuz.