Excel'de Gelişmiş Filtre ile verileri başka bir çalışma sayfasına nasıl kopyalarım?
Normalde, hızlı bir şekilde uygulayabiliriz Gelişmiş Filtre aynı çalışma sayfasındaki ham verilerden veri çıkarma özelliği. Ancak bazen, filtrelenmiş sonucu başka bir çalışma sayfasına kopyalamaya çalıştığınızda, aşağıdaki uyarı mesajını alırsınız. Bu durumda, Excel'de bu görevle nasıl başa çıkabilirsiniz?
VBA kodunu kullanarak verileri Gelişmiş Filtre ile başka bir çalışma sayfasına kopyalayın
Gelişmiş Filtre özelliğini kullanarak verileri Gelişmiş Filtre ile başka bir çalışma sayfasına kopyalayın
İşte bu işi çözmeniz için basit bir çözüm, lütfen şu şekilde yapın:
1. Gelişmiş Filtre işlevini kullanarak filtrelenmiş sonucu kopyalamak istediğiniz çalışma sayfasını etkinleştirin.
2. Sonra tıklayın Veri > gelişmiş, ekran görüntüsüne bakın:
3. In Gelişmiş Filtre iletişim kutusunu seçin Başka bir yere kopyala itibaren Action bölümünü ve ardından tıklayın başka bir sayfada filtrelemek istediğiniz veri aralığını seçmek için düğmesi Liste aralığı, tıklamaya devam et yanındaki düğme Ölçüt aralığı başka bir sayfadan kriter seçmek için ekran görüntüsüne bakın:
4. Sonra tıklayın yanındaki düğme Kopyala etkin sayfadan filtrelenmiş sonucun çıktısını almak istediğiniz bir hücreyi seçmek için kutucuğu seçin ve ardından OK düğmesine basıldığında, filtrelenmiş sonuç, orijinal veri sayfanıza göre başka bir sayfaya çıkarılmıştır.
VBA kodunu kullanarak verileri Gelişmiş Filtre ile başka bir çalışma sayfasına kopyalayın
VBA kodu konusunda deneyimliyseniz, bu işi aşağıdaki VBA kodu ile bitirebilirsiniz.
1. Filtrelemek istediğiniz çalışma sayfasını etkinleştirin ve sonucu başka bir sayfaya kopyalayın.
2. Basılı tutun ALT + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
3. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Verileri Gelişmiş Filtre ile başka bir çalışma sayfasına kopyalayın:
Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
Dim xStr As String
Dim xAddress As String
Dim xRg As Range
Dim xCRg As Range
Dim xSRg As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
If xCRg Is Nothing Then Exit Sub
Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
If xSRg Is Nothing Then Exit Sub
xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
xSRg.Worksheet.Activate
xSRg.Worksheet.Columns.AutoFit
End Sub
4. Ve sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve filtrelemek istediğiniz veri aralığını seçmenize izin veren bir istem kutusu açılır, ekran görüntüsüne bakın:
5. Sonra tıklayın OKve filtrelemek istediğiniz kriter aralığını temel alarak seçmenizi hatırlatmak için başka bir iletişim kutusu açılır, ekran görüntüsüne bakın:
6. Tıklamaya git OK, açılan iletişim kutusunda, lütfen filtre sonucunu çıkarmak istediğiniz başka bir yeni çalışma sayfasından bir hücre seçin, ekran görüntüsüne bakın:
7. Sonunda, tıklayın OK düğmesi, filtrelenmiş veriler ihtiyaç duyduğunuzda başka bir belirtilen sayfaya çıktı.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!