!. Sayfadan '. Sayfaya Veri Alma

[ahmedummu]

Merhaba arkadaşlar.

Excel Sayfa1 A sütununda isimler, B sütununda da görevleri yazıyor. Sayfa1 A sütununu dolu en son satıra kadar kontrol ettirip, görevi ÖĞRETMEN olanları sayfa2 A1'den başlayarak alt alta yazdırmak istiyorum. Örnek dosyayı ekte gönderiyorum. Gönderdiğim dosyada, görevi ÖĞRETMEN olanları sayfa2'ye alıyor fakat ÖĞRETMEN olmayanların satırını boş bırakıyor. Yardımcı olursanız sevinirim.

 

[askm]

Sub al()
Dim i As Integer
a = 1
For i = 1 To Range("a65000").End(xlUp).Row
If Sheets("sayfa1").Cells(i, "B").Value = "ÖĞRETMEN" Then
Sheets("sayfa2").Cells(a, "A").Value = Sheets("sayfa1").Cells(i, "A").Value
a = a + 1
End If
Next i
End Sub

 

[Orion1]

Buyurun.

Dim i As Long, sat As Long
Sheets("Sayfa2").Range("A:A").ClearContents
For i = 1 To Range("a65000").End(xlUp).Row
If Sheets("sayfa1").Cells(i, "B").Value = "ÖĞRETMEN" Then
    sat = sat + 1
Sheets("sayfa2").Cells(sat, "A").Value = Sheets("sayfa1").Cells(i, "A").Value
End If
Next i

 

[ahmedummu]

Teşekkürler Evren bey.

 

[Havenless]

Sanırım benim istediğim şey de buna benzer. Fonksiyonlar bölümünde başlık açmıştım ama burası daha doğru galiba.

Linkteki excel dosyasında, özet, kadın ve çocuk olmak üzere 3 farklı sheet var. Kadın ya da çocuk sheetlerinde O kolonundaki herhangi bir hücreye sipariş adedi girildiğinde ilgili hücreye denk gelen ürün adı, rengi vs. tüm bilgilerin özet sayfasına (A2 hücresinden başlayarak ve satır boşluğu olmadan) gelmesini istiyorum. Sipariş formunda bazı ürünler için örnek adet girdim ben. Yardımcı olabilirseniz çok sevinirim.

Teşekkürler

http://www.dosya.tc/server9/nxash8/O...ormu.xlsx.html

 

[askm]

Sayın Havenless dosyanızı indiremedim. Örnek dosyanızı askmadige34@hotmail.com adresine mail atın bakayım.

 

[Havenless]

Hızlı cevabınız için çok teşekkür ederim. Link kırılmış, lütfen aşağıdaki linki deneyin. Dosyayı mail olarak da gönderiyorum.

http://www.dosya.tc/server9/v2gla7/Ornek_Siparis_Formu.xlsx.html

 

[askm]

Maile bakabilir misiniz?

 

[Havenless]

Maile bakabilir misiniz?

Yardımınız için çok teşekkür ederim gerçekten. Tam istediğim gibi oldu.

 

[askm]

Rica ederim. Kolaylıklar dilerim.