- Katılım
- 2 Nisan 2012
- Mesajlar
- 12
- Excel Vers. ve Dili
- 2003
daha önce M. Temel Korkmaz in paylaşıldığı kodlar ile :
Private Sub CommandButton1_Click()
Dim tarih1 As Date
Dim tarih2 As Date
Dim ara As Range
Dim satir As Integer
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Worksheets("VERİ")
Set s2 = Worksheets("SON")
tarih1 = Format(TextBox1, "dd.mm.yyyy")
tarih2 = Format(TextBox2, "dd.mm.yyyy")
satir = 1
For Each ara In s1.Range("E2:E40")
If ara >= tarih1 And ara <= tarih2 Then
s1.Range(ara.Address, ara.Offset(0, 8).Address).Copy s2.Cells(satir, 1)
satir = satir + 1
End If
Next ara
End Sub
verileri diğer sayfaya alıyorum Yalnız sorun şu sadece E den sonrasını yanı tarihlerin olduğu sudundan sonrasını kopyalıyor ben bütün satırı kopyalamak istiyorum işin içinden çıkamıyorum bir yol
Private Sub CommandButton1_Click()
Dim tarih1 As Date
Dim tarih2 As Date
Dim ara As Range
Dim satir As Integer
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Worksheets("VERİ")
Set s2 = Worksheets("SON")
tarih1 = Format(TextBox1, "dd.mm.yyyy")
tarih2 = Format(TextBox2, "dd.mm.yyyy")
satir = 1
For Each ara In s1.Range("E2:E40")
If ara >= tarih1 And ara <= tarih2 Then
s1.Range(ara.Address, ara.Offset(0, 8).Address).Copy s2.Cells(satir, 1)
satir = satir + 1
End If
Next ara
End Sub
verileri diğer sayfaya alıyorum Yalnız sorun şu sadece E den sonrasını yanı tarihlerin olduğu sudundan sonrasını kopyalıyor ben bütün satırı kopyalamak istiyorum işin içinden çıkamıyorum bir yol