İki tarih arasındaki verileri süz

[nadirornek]

H sutunundaki tarihleri textbox1 ve textbox2 yardımı ile süzdürebilirmiyiz?

http://www.upload.gen.tr/d.php/s2/lpkgy6ec/Kitap1.xls.html

 

[S.Yiğit]

H sutunundaki tarihleri textbox1 ve textbox2 yardımı ile süzdürebilirmiyiz?

http://www.upload.gen.tr/d.php/s2/lpkgy6ec/Kitap1.xls.html

Selamlar..

Konu başlığını aratma yaptım ve 44 sonuç buldu.. Biri işene yarar belki..

http://www.excel.web.tr/search.php?searchid=825068

 

[nadirornek]

Bu saat kadar o konulara baktım hiçbirini kendime göre uyarlayamadım
konuyu yeniden açmak zorunda kaldım

 

[nadirornek]

İstenilen tarihle ilgili veriyi süzdürüp sayfa2 ye atıyor
Ancak tarihler arası veriyi süzüp sayfa2ye aktarınca hata veriyor

http://www.dosyaupload.net/download.php?file=757Tarihe%20göre.xls

Arkadaşlar link çalışmıyordu yeniledim özürdilerim.

 

[nadirornek]

Arkadaşlar kod hata veriyor düzeltebilirmiyiz

Sub IKITARIHARASI()
Dim C, R As Worksheet
Dim S, SAT As Integer
Set C = Sheets("Sayfa1")
Set R = Sheets("Sayfa2")
If C.Range("E1") = "" And C.Range("ı1") = "" Then
MsgBox "Önce rapor alınacak bir tarih seçmelisiniz", vbInformation
Exit Sub
End If
R.Range("A2:K65536") = ""
S = 2
For SAT = 10 To C.Cells(65536, "C").End(3).Row
If C.Cells(SAT, "D") >= C.Range("E1") And C.Cells(SAT, "D") <= C.Range("&#305;1") Then
C.Cells(SAT, "C").EntireRow.Copy
R.Cells(S, "A").PasteSpecial Paste:=xlValues
S = S + 1
Application.CutCopyMode = False
End If
Next
'*****
SON = R.Cells(65536, "K").End(3).Row + 1

R.Select
Cells(1, 1).Select
Set R = Nothing
Set C = Nothing
End Sub

 

[nadirornek]

Merhaba
sorunu bulumad&#305;km&#305;

 

[nadirornek]

Merhaba
arkada&#351;lar sorunu c&#246;zemedik

 

[nadirornek]

merhaba
Sub IKITARIHARASI()
arkada&#351;lar sorunu &#231;&#246;zemedik

 

[nadirornek]

Arkada&#351;lar
ekran dondu&#287;u i&#231;in arka arkaya mesajlar gitmi&#351;
&#246;z&#252;r dilerim

 

[tahsinanarat]

Dosyanız ekte

Sn. nadirornek dosyanız ektedir, inceleyiniz

 

[nadirornek]

Te&#351;ekk&#252;rler

kod &#231;al&#305;&#351;&#305;yor an&#231;ak aktard&#305;&#287;&#305; zaman bulunan sat&#305;rlar&#305; sayfa2 ye aktard&#305;&#287;&#305; zaman
sayfa1 de ka&#231;&#305;nc&#305; sat&#305;rda buldu ise sayfa2 nin o sat&#305;r&#305;na ekliyor.
Halbuki buldu&#287;u sat&#305;rlar&#305; sayfa2 de A3 h&#252;cresin den ihtibaren aktaracak

 

[nadirornek]

Sayfa2 ye aktar&#305;nca yap&#305;&#351;t&#305;rma i&#351;lemini 3&#252;nc&#252; sat&#305;rdan ba&#351;lam&#305;yor.

 

[nadirornek]

Arkada&#351;lar yapt&#305;m galiba ba&#351;ka t&#252;rl&#252; olur ise yenileyebilirsiniz.

http://www.2shared.com/file/4100307/88d9e36b/Kitap2.html

 

[Necdet]

Merhaba,

&#304;&#351;yerinde payla&#351;&#305;m siteleri yasak, giremiyorum ki bakay&#305;m dosyan&#305;za.
Neden dosyay&#305; buraya eklemiyorsunuz?