Hucredeki Tarihi Bulup Kopyalama

[pelin5353]

Merhaba,

Ekteki dosyada oldugu gibi, B1 hucresindeki tarihe esit olan tarihin bulundugu satiri, ay sonuna kadar isaretleyip, sayfa 2. ye kopyalatmak istiyorum.

Simdiden destekleriniz icin tesekkurler.....

 

[Recep İpek]

Aşağıdaki kodları deneyebilirmisiniz?

Sub CommandButton1_Click()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For i = 7 To 37
If s1.[b1].Value = s1.Cells(i, "a").Value Then
s2.Range(s2.Cells(i, "b"), s2.Cells(i, "I")).Value = s1.Range(s1.Cells(i, "b"), s1.Cells(i, "I")).Value
Exit For
End If
Next i
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[pelin5353]

Merhaba Oncelikle ilginiz icin tesekkurler.. Ufak bir detay var yalniz. macro sadece tek tarihin karsisini gonderiyor diger sayfaya. Benim istedigim ise su sekilde :
mesela bugun ayin 4 u..makro 4'u ve 31' i arasindaki butun verileri gondermeli..3 unu oldugu gibi birakmali..

Mumkunmudur ?

 

[Recep İpek]

Pardon onu düşünememişim..

Sub CommandButton1_Click()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For i = 7 To 37
If s1.[b1].Value = s1.Cells(i, "a").Value Then
    For j = i To 37
        s2.Range(s2.Cells(j, "b"), s2.Cells(j, "I")).Value = s1.Range(s1.Cells(j, "b"), s1.Cells(j, "I")).Value
    Next j
    Exit For
End If
Next i
Set s1 = Nothing
Set s2 = Nothing
End Sub

kodlarını deneyiniz.

 

[pelin5353]

Tam anlami ile ihtiyacim olan kod.. Ellerinize saglik. zaman ayirdiginiz icin cok tesekkur ederim.