Aynı Kelimeyi İçeren Hücrelerin Alt Alta Sıralanması

[anilcmc]

Örneğin;

c1 hücresinde "problem: asfskdflasf" yazıyor, b86 hücresinde "problem: sdafasdfhsakfasd" yazıyor..

ve bunun gibi 10larca hücre var..

ben, içinde "problem" kelimesi geçen hücreleri alt alta; a1, a2, a3....a100 hücrelerine yerleştirmek istiyorum..nasıl yapabilirim, yardımlarınız için şimdiden teşekkür ederim.

 

[Zeki Gürsoy]

Örnek bir dosya eklerseniz yardım almanız kolaylaşacaktır.

 

[anilcmc]

Ekli dosyayı görüntüle Yeni Microsoft Office Excel Çalışma Sayfası (2).xlsx


dosya ektedir, ilginiz için teşekkürler

 

[apocalyt]

bir modüle kopyalayıp çalıştırın...d2 hücresinden başlayarak sıralama yapıcaktır..

Sub daylight()
Range("c2:d1000").ClearContents
y = 2
For x = 1 To [b10000].End(3).Row
If Cells(x, "b") Like "*Problem*" Then
Cells(y, "d") = Cells(x, "b")
Cells(y, "c") = y - 1
y = y + 1
End If
Next x
End Sub

 

[anilcmc]

bir modüle kopyalayıp çalıştırın...d2 hücresinden başlayarak sıralama yapıcaktır..

Sub daylight()
Range("c2:d1000").ClearContents
y = 2
For x = 1 To [b10000].End(3).Row
If Cells(x, "b") Like "*Problem*" Then
Cells(y, "d") = Cells(x, "b")
Cells(y, "c") = y - 1
y = y + 1
End If
Next x
End Sub

çok teşekkür ederim fakat birşey sormak istiyorum..c2:d1000 yazmışsınız o ne anlama geliyor..sonucun yazılacağı yeri mi kastediyor...b10000 de b sütunun da 10000. hücreye kadar arama yapılacak yeri mi kastediyor

 

[apocalyt]

Range("c2:d1000").ClearContents bu kısım kod her çalıştığında c2:d1000 arası bütün yazılmış bilgileri siliyo..çünkü kodu her çalıştırdığımızda olan verilerin üstüne kayıt yapmak hatalı durumlar çıkarabiliyo..b1000 derken de kodun tamamına bakıcak olursak [b10000].End(3).Row
b1000 inci hücreden başlayıp b sütunu boyunca yukarıya doru bir zıplama hareketi yapıp ilk dolu hücreyi buluyo..örneğin sizin b sütunundaki en son dolu hücreniz 854 de ise [b10000].End(3).Row ifadesi 854 e eşit olur ve kod b sütununda 2 inci satırla 854 üncü satır arasında bütün değerleri kontrol eder..

 

[anilcmc]

Range("c2:d1000").ClearContents bu kısım kod her çalıştığında c2:d1000 arası bütün yazılmış bilgileri siliyo..çünkü kodu her çalıştırdığımızda olan verilerin üstüne kayıt yapmak hatalı durumlar çıkarabiliyo..b1000 derken de kodun tamamına bakıcak olursak [b10000].End(3).Row
b1000 inci hücreden başlayıp b sütunu boyunca yukarıya doru bir zıplama hareketi yapıp ilk dolu hücreyi buluyo..örneğin sizin b sütunundaki en son dolu hücreniz 854 de ise [b10000].End(3).Row ifadesi 854 e eşit olur ve kod b sütununda 2 inci satırla 854 üncü satır arasında bütün değerleri kontrol eder..

Allah ne muradınız varsa versin..Çok teşekkür ederim çok açıklayıcı oldu..Ve denedim..Makroyu daha önce hiç kullanmamıştım, bu yüzden örneğin güvenlik düzeyini belirlememi gerektiren hatalar gibi bazı hatalarla karşılaştım, ama gene bu sitede cevaplarına ulaştım biraz önce..Ve sonunda istediğimi yapabildim..Çok sevaba giriyorsunuz hakkaten