AccessTr.neT
Veri Ara Bul - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri Ara Bul (/konu-veri-ara-bul.html)

Sayfalar: 1 2 3 4


Veri Ara Bul - yyhy - 04/04/2020

Veri sayfasındaki bilgileri macro ile kritere göre getiriyorum. Yalnız macro da başlayanları getiriyor. Baş tarafı veya sonu belli olmayan, içerir olarak macroyu düzeltebilir miyiz? Yardımcı olan arkadaşlara teşekkür ederim.


Cvp: Veri Ara Bul - accessman - 04/04/2020

sn. @yyhy

https://www.ablebits.com/office-addins-blog/2016/09/07/excel-advanced-filter/

buraya bakabilirsiniz

[Resim: do.php?img=9998]


Cvp: Veri Ara Bul - yyhy - 04/04/2020

Sayın accessman gelişmiş filtre değilde sadece ekte eklemiş olduğum dosyadaki macroda arama kriteri olarak *İstanbul* şeklinde macroya arama kriterini nasıl değiştirebilirim. Ben İstanbul yazıyorum sadece başlayanları buluyor. Tek istediğim içerirleri de bulmasını istiyorum. Teşekkür ederim.
[url=https://accesstr.net/][/url]



Cvp: Veri Ara Bul - accessman - 04/04/2020

Eklediğim resimde mavi ile seçili kısımda text kelimesi içerenlerin nasıl aranacağını gösteriyor program dilinde karşılığı "contain" oluyor


Cvp: Veri Ara Bul - yyhy - 05/04/2020

Sayın accessman macro kodu şu;
Dim liste(100000, 2) As String
Dim verikod, kod1, verifis As String


Sub Makro1()
    On Error Resume Next
    Range("B5").Select
    Selection.CurrentRegion.Select
    Selection.Clear
    Range("B5").Select
    Sheets("Veri").Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("B1:F2"), CopyToRange:=Range("B5"), Unique:=False
    Range("F3").Select
End Sub


burada * karakteri nereye koyabilirim?


Cvp: Veri Ara Bul - accessman - 05/04/2020

CriteriaRange:=Range("B1:F2")
bunun içine bir yerlere muhtemele
CriteriaRange:=*Range("B1:F2")*
Olabilir deneyerek bulacaksiniz