tarihlere gore secip yerlestirme

[kokak]

merhaba arkadaslar cok acil bu dosyayi yapmam gerekiyor aksi durumda mezun olamiyorum

simdi birinci sheette bir tablo var ikinci sheette bir ikinci ve sonra baska bir ucuncu.

simdi birinci istedigim 2. sheetin mesela c kolonuna bir onceki sheetten teslimat tarihlerine bakarak bugunun tarihi olanlari ve ayrica teslimat tarihi olup sevkiyat tarihi olmayanlarin isimleri gelsin.

bir de 3 sheete de sevkiyat tarihi birgun sonra olanlarin isimleri gelsin.

yardimci olursaniz sevinirim icice fonksiyon yazmayi bilmiyorum

simdiden tesekkurler

 

[irayka]

http://www.excel.web.tr/showthread.php?t=28065
bu linke gözat tarih aralığına göre bir çalışma yapmıştım excelle işine yarar

 

[ileriexcel]

yanıt

Sub test()
Set s1 = Sheets("database")
Set s2 = Sheets("plan")
Set s3 = Sheets("bildiri")
s2.Range("c8:c33").ClearContents
say = WorksheetFunction.CountA(s2.[c1:c1000])
For Each bak1 In s1.Range("k7:k34")
If bak1.Value >= s1.Range("c1").Value Then
bak1.Offset(0, -4).Copy
S = S + 1
s2.Range("c" & S + say + 6).PasteSpecial
End If
Next
say1 = WorksheetFunction.CountA(s2.[c1:c1000])
For Each bak2 In s3.Range("I17:I34")
If bak2.Value > s3.Range("c1").Value Then
bak2.Offset(0, -3).Copy
l = l + 1
s2.Range("c" & l + say1 + 6).PasteSpecial
End If
Next
End Sub