Excelde Süzme işlemini kodla istenilen kritere göre istenilen sayfaya süzen program

[zaman4]

(acil yardım)arkadaşlar ben yeni katıldım ama bu benim ödevim en azından biraz yardımcı olun yoksa sıfırı alcam

 

[metinozlu]

topla.çarpım formülünü dene

 

[zaman4]

arkadaşlar kodla isteniyor acil yardım lütfen

 

[zaman4]

Sub Düğme1_Tıklat()
Dim i As Integer
Dim k As Integer
i = 2
k = 3
'Range("a1").AutoFilter 'veri süzü uygula
Do
If Sayfa1.Cells(i, 1) = "" Then Exit Do
If Sayfa1.Cells(i, 1) = Range("a20") Then 'gerçek şart
k = k + 1
Sayfa1.Range("a" & i, "e" & i).Copy
Sayfa1.Range("a2" & k, "e2" & k).PasteSpecial xlPasteAll
Sayfa3.Range("a3").PasteSpecial xlPasteAll
End If
i = i + 1
Loop
End Sub
(BU PROGRAM SADECE BİR KRİTERE GÖRE SÜZEBİLİYOR BENSE TÜM KRİTERLERE GÖRE SÜZMEK İSTİYORUM)

 

[BG]

forumda "kritere göre süzme" şeklinde arama yapın veya
http://www.excel.web.tr/showthread.php?t=30754 linki inceleyin.

 

[metinozlu]

hiç bir taslak çalışma eklememişsin,hangi kriterlere göre süzdüreceksin ,veriler nereye raporlanacak.hiç veri yok kod istiyorsun.bu şekilde zor cevap alırsın

 

[zaman4]

teşekkürler bu bölümün işi bitmiştir inşaallah bende bundan sonra insanlara yardımcı olmaya çalişirim ben hallettim sadece bi örnek gerekli idi

 

[BG]

Sayın zaman4

teşekkürler bu bölümün işi bitmiştir inşaallah bende bundan sonra insanlara yardımcı olmaya çalişirim ben hallettim sadece bi örnek gerekli idi

ne yalan soyleyeyim pek bir sey anlamadim, bu bir sitem mi? yoksa, gercekten probleminizi cozebildiniz mi?

 

[zaman4]

valla çözdüm bana sadece gerekli idi ama ciddi işimi çözdüm inşaallah ödevi de hocaya vericem teşekkür ederim kardeşim