Belirtilen Değerdeki hücreleri seçmek

[orrhankaya]

Sayfa1 deki A Sütununda Şubeler var (1A, 1B, 2A, 2B.....)
Diğer sütunlarda Öğrenci bilgileri var
Örneğin 2A şubesinin listesini sayfa2'ye listelemek istiyorum.

Elimde çoktan beri kullandığım bir kod var. Ama sık sık sorun yaratıyor. Bazı bilgisayarlarda Şube Öğrenci sayısı 45'i geçerse çalışmıyor. O Kod üzerinde çok çalıştım. Bir türlü düzeltemedim. Başka bir anlayışla hazırlanmış bir makroya ihtiyacım var.

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğunuz dosyanızın bir örneğini ve kodlamayı eklerseniz çözüm açısından daha sağlıklı olacaktır.

 

[orrhankaya]

Selamlar,

Kullanmış olduğunuz dosyanızın bir örneğini ve kodlamayı eklerseniz çözüm açısından daha sağlıklı olacaktır.

Sub ŞubeAktar1()
Sheets("Sayfa1").Select
Dim i As Integer
Dim Adresler As String
j = 1
For i = 1 To 2000
If StrConv(Cells(i, 1), vbUpperCase) = StrConv(Sheets("Sayfa2"). _
Range("B3"), vbUpperCase) Then
Adresler = Adresler & Cells(i, 1).Address(False, False) & ","
End If
Next i
If Adresler = "" Then
MsgBox ("Seçtiğiniz bu şubede Öğrenci olmadığından yeni liste oluşturulamıyor."), vbInformation, "Uyarı"
GoTo hata
End If
Adresler = Mid(Adresler, 1, Len(Adresler) - 1)
Range(Adresler).EntireRow.Select
hata:
End Sub

 

[Levent Menteşoğlu]

Sayfa1 deki bilgilerin sayfa2 ye aktarılmasını istemişsiniz ama verdiğiniz kod sadece aranan satırları seçiyor, ayrıca aranacak bilgiyide sayfa2 B3 hücresinden alıyor. Bu durumda bulunan veriler sayfa2 de hangi satırdan başlayacaktır.

 

[orrhankaya]

Selamlar,

........dosyanızın bir örneğini ......eklerseniz çözüm açısından daha sağlıklı olacaktır.

Dosyayı ekliyorum

 

[orrhankaya]

.........bulunan veriler sayfa2 de hangi satırdan başlayacaktır.

Aslında Seçilen Şube Userform'dan girilecek. Listenin de hangi sayfanın hangi satırından başlaması hiç de önemli değil. Daha sonra formülleri kendime göre değiştirebilirm. Ben 2A Şubesini aradığımda Kütükten ne kadar 2A varsa onları seçsin yeter.
İlginize teşekkür ederim.

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin.

 

[orrhankaya]

İlgi ve yardımlarınıza teşekkür ediyorum. Bu geç vakitlerdeki emeğinizi nasıl öderim bilemiyorum.
Süz (Filtrele) uygulamasını hiç aklıma getirmemiştim. Çok memnun oldum. Doğrusu yukarıdaki makroyu tamir etmediğinize ve bu makroyu hazırlamış olduğunuzdan ayrıca müteşekkerim