Skip to main content

AccessTr.neT


Veri Ara Bul

Veri Ara Bul

#12
Alttaki kod ilede olur * yazmadan

Kod:
ActiveCell.Value = "*" & ActiveCell.Value & "*"

Kod:
Sub Makro1()

    On Error Resume Next
       ActiveCell.Value = "*" & ActiveCell.Value & "*"
        Sheets("Ara").Range("B5:F" & Rows.Count).Clear
       Sheets("Veri").Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _
       CriteriaRange:=Sheets("Ara").Range("B1:F2"), CopyToRange:=Sheets("Ara").Range("B5"), Unique:=False
       Sheets("Ara").Range("F3").Select

End Sub

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Veri Ara Bul - Yazar: yyhy - 04/04/2020, 18:52
Cvp: Veri Ara Bul - Yazar: accessman - 04/04/2020, 19:14
Cvp: Veri Ara Bul - Yazar: yyhy - 04/04/2020, 19:31
Cvp: Veri Ara Bul - Yazar: accessman - 04/04/2020, 20:05
Cvp: Veri Ara Bul - Yazar: yyhy - 05/04/2020, 12:18
Cvp: Veri Ara Bul - Yazar: accessman - 05/04/2020, 12:26
Cvp: Veri Ara Bul - Yazar: yyhy - 05/04/2020, 12:41
Cvp: Veri Ara Bul - Yazar: accessman - 05/04/2020, 14:12
Cvp: Veri Ara Bul - Yazar: yyhy - 05/04/2020, 14:36
Cvp: Veri Ara Bul - Yazar: accessman - 05/04/2020, 14:40
Cvp: Veri Ara Bul - Yazar: feraz - 05/04/2020, 22:52
Cvp: Veri Ara Bul - Yazar: feraz - 05/04/2020, 23:04
Cvp: Veri Ara Bul - Yazar: yyhy - 06/04/2020, 00:40
Cvp: Veri Ara Bul - Yazar: feraz - 06/04/2020, 00:44
Cvp: Veri Ara Bul - Yazar: yyhy - 06/04/2020, 00:48
Cvp: Veri Ara Bul - Yazar: feraz - 06/04/2020, 13:19
Cvp: Veri Ara Bul - Yazar: yyhy - 08/04/2020, 12:47
RE: Cvp: Veri Ara Bul - Yazar: feraz - 17/04/2020, 06:33
RE: Veri Ara Bul - Yazar: yyhy - 16/04/2020, 21:37
Task