Ikili şartı yerine getirerek aktarma

[enes2000eren]

Slm. Arkadaşlar elimdeki dosyada çok sayıda veri var.
Yardımcı olabilirseniz çok sevinirim.istediğim şu
1-tümü sayfasındaki verilerden
"m" sütununda "derdest" yazanlardan
"ı" sütununda 10.000 den büyük olanların "istek" sayfasına aktarılması
not.mümkünse seçmeli olsa örneğin açılır listeden seçebilsem "derdest veya hitam" diye
sonra bir sayı girsem( veya seçsem) ve o sayıdan büyük olanları aktarsa olabilir mi acaba böyle birşey?tşk.

 

[İhsan Tank]

Slm. Arkadaşlar elimdeki dosyada çok sayıda veri var.
Yardımcı olabilirseniz çok sevinirim.istediğim şu
1-tümü sayfasındaki verilerden
"m" sütununda "derdest" yazanlardan
"ı" sütununda 10.000 den büyük olanların "istek" sayfasına aktarılması
not.mümkünse seçmeli olsa örneğin açılır listeden seçebilsem "derdest veya hitam" diye
sonra bir sayı girsem( veya seçsem) ve o sayıdan büyük olanları aktarsa olabilir mi acaba böyle birşey?tşk.

merhaba
A1 hücresine
M sütunundaki veriyi
H1 hücresine ise hangi rakamdan büyük olacak ise giriniz.
A1 ve H1 hücrelerini veri - doğrulama - liste seçeneği ile seçilebilir hale getirebilirsiniz.
boş bir module kopyalayın ve deneyin

Option Explicit
Sub koşullu_aktar()
Dim ts, kaplan
kaplan = MsgBox(Sheets("İSTEK").Range("A1") & " Olan ve " & _
Sheets("İSTEK").Range("H1") & " Büyük Olanları Aktarıyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
Sheets("İSTEK").Range("A3:M65536").ClearContents
kaplan = 3
For ts = 2 To Sheets("TÜMÜ").Cells(65536, "A").End(xlUp).Row
If Sheets("TÜMÜ").Cells(ts, "M") = Sheets("İSTEK").Range("A1") And _
Sheets("TÜMÜ").Cells(ts, "I") > Sheets("İSTEK").Range("H1") Then
Sheets("İSTEK").Cells(kaplan, "A") = Sheets("TÜMÜ").Cells(ts, "A")
Sheets("İSTEK").Cells(kaplan, "H") = Sheets("TÜMÜ").Cells(ts, "H")
Sheets("İSTEK").Cells(kaplan, "I") = Sheets("TÜMÜ").Cells(ts, "I")
Sheets("İSTEK").Cells(kaplan, "M") = Sheets("TÜMÜ").Cells(ts, "M")
kaplan = kaplan + 1
End If
Next
MsgBox Sheets("İSTEK").Range("A1") & " Olan ve " & _
Sheets("İSTEK").Range("H1") & " Büyük Olanları Aktardım", vbInformation, "Bitiş"
End Sub

 

[Orion1]

Dosyanız ektedir.

 

[İhsan Tank]

Dosyanız ektedir.

evren hocam alternatif için teşekkür ederim.
arkadaşın bir isteği vardı orayı atladınız sanırım yada ben göremedim.
10000 yada yazdığı herhangi bir rakamından büyük olanları listelesin istemişti.
acaba ben mi yanlış anladım

 

[T rex]

evren hocam alternatif için teşekkür ederim.
arkadaşın bir isteği vardı orayı atladınız sanırım yada ben göremedim.
10000 yada yazdığı herhangi bir rakamından büyük olanları listelesin istemişti.
acaba ben mi yanlış anladım

İhsan bey,
AC1 hücresine kriteri giriyorsunuz.
Şu anda orada 300 var.300 den büyük olanlar listeleniyor.

 

[İhsan Tank]

İhsan bey,
AC1 hücresine kriteri giriyorsunuz.
Şu anda orada 300 var.300 den büyük olanlar listeleniyor.

Syn: T rex bilgilendirme için teşekkür ederim. Kodun içerisine bakmamıştım.

 

[aygun78]

buda benden

buda benden

 

[enes2000eren]

SLM .SAYIN ORİON. TŞK EDERİM ÇOK GÜZEL OLMUŞ ELLERİNİZE SAĞLIK.
ACABA H SÜTUNUNDAKİ TARİHLERİ DE( MESELA 2011 YILININ DOSYALARINI GÖRMEK İSTİYORUM) İŞİN İÇİNE KATABİLİR MİYİZ? KATARSAK ŞU KODUNUZDA NASIL BİR REVİZYON GEREKİR.KODU BEN BİRAZ KENDİME GÖRE UYARLADIM KUSURA BAKMAYIN.
Sub sorgu_59()
Dim sh As Worksheet, sat As Long
Sheets("TÜMÜ").Select
Set sh = Sheets("ISTEK")
Application.ScreenUpdating = False
sh.Range("B2:AZ65536").ClearContents
Range("A1").AutoFilter
sat = Cells(65536, "A").End(xlUp).Row
Range("A1").AutoFilter field:=13, Criteria1:=Range("E1").Value
Range("A1").AutoFilter field:=9, Criteria1:=">" & Range("G1").Value
Range("A3:AZ" & sat).SpecialCells(xlCellTypeVisible).Copy sh.Range("A2")
Sheets("TÜMÜ").Range("A1").AutoFilter
Application.ScreenUpdating = True
Application.CutCopyMode = False
sh.Select

MsgBox "İşlem tamamlandı" & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[enes2000eren]

Sayın orion1 YUKARDAKİ soruma bir yanıtınız var mı acaba.yardım edebilirseniz çok iyi olacak.tşk

 

[Orion1]

Sayın orion1 YUKARDAKİ soruma bir yanıtınız var mı acaba.yardım edebilirseniz çok iyi olacak.tşk

J sütunda Tarih olduğunu varsayarsak,J1 dede tarih kriteri olduğunnu kabul edersek,j1 den büyük değerleri sayar.

Range("A1").AutoFilter field:=13, Criteria1:=Range("E1").Value
Range("A1").AutoFilter field:=9, Criteria1:=">" & Range("G1").Value
[B][COLOR="Blue"]Range("A1").AutoFilter field:=10, Criteria1:=">" & cdbl(Range("J1").Value)[/COLOR][/B]

 

[enes2000eren]

Sayın orion1 harikasınız tşk.tam istediğim gibi