büyük eşit arasında tarih.

[emre311]

If sayfa2.[d17]<= Sayfa1.Cells(bul.Row, "j") >= Sayfa2.[d19]

sayfa 2 d17 ve d19 da tarihler yazıyor arasında ve eşit şartını nasıl yazabilirim. yukarıdaki gibi yazdım verileri getirmiyor acil yardım. Sayfa1.Cells(bul.Row, "j") yazısı başta olursa ve tek şart için geliyor fakat ben 2 şartla yapmam lazım.

 

[Orion1]

Deneyiniz

If Sayfa2.[d17] >= Sayfa1.Cells(bul.Row, "j") And _
    Sayfa2.[d19] <= Sayfa1.Cells(bul.Row, "j") Then

 

[emre311]

çok teşekkür ederim bi problemim daha var ilk bulduğunu en alta sonrakileri üstten devam etmiş ilk bulduğunu neden getirdiği sayfadaki ilk satıra koymuyo acaba

 

[Orion1]

set bul=
yukarıdaki satır nasıl ,onuda verin buradan göreyim bir.

 

[emre311]

Sub Düğme1_Tıklat()
Dim sat As Integer
Dim s, ss As Integer
Dim bul As Object
Sayfa2.[a24:n1000].Clear
s = 24
ss = 24
son = Sayfa1.Cells(Rows.Count, "g").End(xlUp).Row
son2 = Sayfa2.Cells(Rows.Count, "a").End(xlUp).Row
Set bul = Sayfa1.Range("g3:g" & son).Find(Sayfa2.[d19], , xlValues, xlWhole)
If Not bul Is Nothing Then
adres = bul.Address
Do
If Sayfa1.Cells(bul.Row, "j") = Sayfa2.[d21] And Sayfa1.Cells(bul.Row, "a") = Sayfa2.[d17] Then
Sayfa2.Cells(s, "a") = Format(Sayfa1.Cells(bul.Row, "a"), "dd.mm.yyyy")
Sayfa2.Cells(s, "b") = Sayfa1.Cells(bul.Row, "b")
Sayfa2.Cells(s, "c") = Sayfa1.Cells(bul.Row, "c")
Sayfa2.Cells(s, "d") = Sayfa1.Cells(bul.Row, "d")
Sayfa2.Cells(s, "e") = Sayfa1.Cells(bul.Row, "e")
Sayfa2.Cells(s, "f") = Sayfa1.Cells(bul.Row, "f")
Sayfa2.Cells(s, "g") = Sayfa1.Cells(bul.Row, "g")
Sayfa2.Cells(s, "h") = Sayfa1.Cells(bul.Row, "h")
Sayfa2.Cells(s, "ı") = Sayfa1.Cells(bul.Row, "ı")
Sayfa2.Cells(s, "j") = Sayfa1.Cells(bul.Row, "j")
Sayfa2.Cells(s, "k") = Sayfa1.Cells(bul.Row, "k")
Sayfa2.Cells(s, "l") = Sayfa1.Cells(bul.Row, "l")
Sayfa2.Cells(s, "m") = Sayfa1.Cells(bul.Row, "m")
Sayfa2.Cells(s, "n") = Sayfa1.Cells(bul.Row, "n")
s = s + 1
End If
Set bul = Sayfa1.Range("g3:g" & son).FindNext(bul)
Loop While Not bul Is Nothing And bul.Address <> adres
End If
Sheets("Sayfa1").Select
Range("A3:N3").Select
Selection.Copy
Sheets("Sayfa2").Select
Range("A24:N" & son2).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

[emre311]

Hocam bu değişikliği yaparsanız beni kurtarırsınız valla

 

[Orion1]

ilgili satırı aşğıdaki ile değiştiriniz,deneyiniz.

Set bul = Sayfa1.Range("g2:g" & son).Find(Sayfa2.[d19], , xlValues, xlWhole)
Set bul = Sayfa1.Range("g2:g" & son).FindNext(bul)

 

[emre311]

hocam cok saulun..