Aynı anda iki koşula göre armak

[slisyum]

İHSAN TANK üstadın yazdığı kodda bir düzeltmeye ihtitacım var yardımcı olursanız sevinirim
Burada sayfa2 deki g hücresine yazılan metni sayfa1 deki E satırnda arıyor ve geri kalan verileri sayfa2 yerlerine süzüyordu

ama şimdi iki değişkene göre arama yapıp süzmem gerekti

If Sheets("Sayfa1").Cells(ts, "E") = kuvveti Then

bu satırı nasıl değiştirmeliyim

'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

 

[ynmcan]

Syn. Slisyum ;
Ekteki dosyayı inceleyin.

 

[slisyum]

çok teşekkürler birde açılır menüyü hangi yolla yaptınız ben veri--->Liste---- >Liste oluştur dediğimde hücreleri saklayarak açılır hale geliyor