• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Süzerken tam metne göre değil yazıldığı kelimeye kadar süzme

S

slisyum

Katılım
16 Eylül 2007
Mesajlar
75
Excel Vers. ve Dili
excell 2010
İHSAN TANK üstadın yazdığı kodda bir düzeltmeye ihtitacım var yardımcı olursanız sevinirim
Burada sayfa2 deki g4 hücresine yazılan metni sayfa1 deki E satırnda arıyor ve geri kalan verileri sayfa2 yerlerine süzüyordu

ama şöyle bir sorun var süzülecek değer tam girilmek zorunda mesala ŞEF yazarsak şefleri taratıyor ama ŞEF123 var ise onu süzmüyor

KE yazıp süz dediğimde hem KENAN KEMAL KERİM leri göstersin istiyorum bunun için kodda nasıl bir değişikliklik yapmam gerekli

Kod: 
'kuvveti değişkeni süzeceğim bilgi türü
kuvveti = Sheets("Sayfa2").Range("G4")
Application.ScreenUpdating = False
kaplan = 2

'clearContetnts komutuyla önce ilgili alanlardaki verileri siliyorumli karışıklık olmasın
Sheets("Sayfa2").Range("A2:E65536").ClearContents

'Satır renklerinin farklı olması için mesela bu dönğüden önce beyaz renk
Sheets("Sayfa2").Range("A2:E65536").Interior.ColorIndex = xlNone

'For komutuyla döngüyü başlatıyorum ve ilk renk kodunu burada veriliyor
For ts = 2 To Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row


'Burada If le bir koşul başlatıyorum eğer diyorum sayfa1 de "E" sütununda "kuvveti" değişkenine
'atadığım değer varsa aşağıdaki komutları işlet
If Sheets("Sayfa1").Cells(ts, "E") = kuvveti Then

'sayfa1 deki belli satırı sayfa ikideki şu satıra getir demek
Sheets("Sayfa2").Cells(kaplan, "B") = Sheets("Sayfa1").Cells(ts, "B")
Sheets("Sayfa2").Cells(kaplan, "C") = Sheets("Sayfa1").Cells(ts, "C")
Sheets("Sayfa2").Cells(kaplan, "D") = Sheets("Sayfa1").Cells(ts, "E")
Sheets("Sayfa2").Cells(kaplan, "E") = Sheets("Sayfa1").Cells(ts, "H")
kaplan = kaplan + 1
End If

Next
'burasıda yukardaki döngü sürdüğü müddetçe sıra numarası kısmını bir sayı ilerlet demek
Sheets("Sayfa2").Range("A2") = 1
Sheets("Sayfa2").Range("A2:A" & kaplan - 1).DataSeries rowcol:=xlColumns, _
Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=True

'ikinci renk kodu burada veriliyor böylece satırlar farklı renklerde oluyor
For ts = 2 To Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row Step 2
Sheets("Sayfa2").Range("A" & ts & ":E" & ts).Interior.ColorIndex = 17
Next

yardımlarınız için teşekkürler
 

Ekli dosyalar

Merhaba
Kod: 
If Sheets("Sayfa1").Cells(ts, "E") = kuvveti Then
Bu satırı
Kod: 
If Sheets("Sayfa1").Cells(ts, "E") Like "*" & kuvveti & "*" Then
Bununla değiştirip dener misiniz_?

Bu arada İhsan Tank üstada çok teşekkür ederim.
 
ben ikinizede sonsuz teşekkürler ediyorum Allah razı olsun ikinizdende zor işlerimizi kolaykılıyorsunuz
 
Hüseyin Çoban' Alıntı:
. . .

Merhaba.

Like komutu bunu beğendim. Teşekkürler.

. . .
Genişletmek için tıkla ...

Merhaba

Aslında bunu bilmiyordum. Sayın Ömer'in kodlarında dikkatimi çekmişti deneyip öğrendim. Sonrada kullanmaya başladım.
Açıkcası bu teşekkür Sayın Ömer'e ait. Kendisine teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst