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.
Veri Ara Bul
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]
[url=https://accesstr.net/][/url]
Son Düzenleme: 04/04/2020, 19:37, Düzenleyen: yyhy.
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
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?
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?
CriteriaRange:=Range("B1:F2")
bunun içine bir yerlere muhtemeleCriteriaRange:=*Range("B1:F2")*
Olabilir deneyerek bulacaksiniz
Konuyu Okuyanlar: 1 Ziyaretçi