Excel'de satırları tarihe göre kopyalayıp başka bir sayfaya yapıştırmak nasıl yapılır?
Diyelim ki bir veri aralığım var ve belirli bir tarihe göre tüm satırı kopyalayıp başka bir sayfaya yapıştırmak istiyorum. Excel’de bunu yapmak için iyi bir yönteminiz var mı?
Satırları bugünün tarihine göre kopyalayıp başka bir sayfaya yapıştırma
Tarih bugünün tarihinden büyükse satırları kopyalayıp başka bir sayfaya yapıştırma
Satırları bugünün tarihine göre kopyalayıp başka bir sayfaya yapıştırma
Tarihi bugün olan satırları kopyalamak istiyorsanız, lütfen aşağıdaki VBA kodunu uygulayın:
1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayıp aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: Satırları bugünün tarihine göre kopyalayıp yapıştırma:
Sub CopyRow()
'Updateby Extendoffice
Dim xRgS As Range, xRgD As Range, xCell As Range
Dim I As Long, xCol As Long, J As Long
Dim xVal As Variant
On Error Resume Next
Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xCol = xRgS.Rows.Count
Set xRgS = xRgS(1)
Application.CutCopyMode = False
J = 0
For I = 1 To xCol
Set xCell = xRgS.Offset(I - 1, 0)
xVal = xCell.Value
If TypeName(xVal) = "Date" And (xVal <> "") And (xVal = Date) Then
xCell.EntireRow.Copy xRgD.Offset(J, 0)
J = J + 1
End If
Next
Application.CutCopyMode = True
End Sub
3. Yukarıdaki kodu yapıştırdıktan sonra, satır kopyalamak için kullanmak istediğiniz tarih sütununu seçmenizi hatırlatan bir uyarı kutusu açılacaktır; ardından kodu çalıştırmak için F5 tuşuna basın. Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; başka bir uyarı kutusunda, sonucu görüntülemek istediğiniz farklı bir sayfadaki hücreyi seçin. Ekran görüntüsüne bakın:
5. Ardından Tamam düğmesine tıklayın; artık tarihi bugün olan satırlar yeni sayfaya anında yapıştırılmıştır. Ekran görüntüsüne bakın:
Tarih bugünün tarihinden büyükse satırları kopyalayıp başka bir sayfaya yapıştırma
Tarihi bugünün tarihinden büyük veya eşit olan satırları kopyalayıp başka bir sayfaya yapıştırın; örneğin, tarih bugün itibarıyla 5 günden fazlaysa, bu satırları kopyalayıp başka bir sayfaya yapıştırın.
Aşağıdaki VBA kodu size yardımcı olabilir:
1.ALT + F11tuşlarına basılı tutarak Microsoft Visual Basic for Applicationspenceresini açın.
2.Ekle>Modülseçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: Tarihi bugünün tarihinden büyükse satırları kopyalayıp yapıştırma:
Sub CopyRow()
'Updateby Extentoffice
Dim xRgS As Range, xRgD As Range, xCell As Range
Dim I As Long, xCol As Long, J As Long
Dim xVal As Variant
On Error Resume Next
Set xRgS = Application.InputBox("Please select the date column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a destination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xCol = xRgS.Rows.Count
Set xRgS = xRgS(1)
Application.CutCopyMode = False
J = 0
For I = 1 To xCol
Set xCell = xRgS.Offset(I - 1, 0)
xVal = xCell.Value
If TypeName(xVal) = "Date" And (xVal <> "") And (xVal >= Date And (xVal < Date + 5)) Then
xCell.EntireRow.Copy xRgD.Offset(J, 0)
J = J + 1
End If
Next
Application.CutCopyMode = True
End Sub
Not: Yukarıdaki kodda, If TypeName(xVal) = "Date" And (xVal "") And (xVal >= Date And (xVal < Date + 5)) Then betik satırındaki kriterleri, örneğin bugünün tarihinden daha küçük tarihler veya ihtiyacınız olan gün sayısına göre özelleştirebilirsiniz.
3. Ardından, bu kodu çalıştırmak için F5 tuşuna basın; uyarı kutusunda kullanmak istediğiniz veri sütununu seçin. Lütfen ekran görüntüsüne bakın:
4. Ardından Tamamdüğmesine tıklayın; başka bir uyarı kutusunda, sonucu görüntülemek istediğiniz başka bir sayfadaki bir hücreyi seçin, ekran görüntüsüne bakın:
5.Tamamdüğmesine tıklayın; artık tarihi bugün itibarıyla 5 günden fazla olan satırlar, aşağıdaki ekran görüntüsünde gösterildiği gibi yeni sayfaya kopyalanıp yapıştırılmıştır:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar