Makroda değişiklik yapmak istiyorum

[Erdinç FIRTINA]

Değerli arkadaşlar,
aşağıdaki makroda sütun sayısını arttırdığımda ne gibi değişiklik yapmalıyım?
Örneğin, bu makro b sütunundaki veriler arasından değer seçip sadece a sütununda bulunan değerler arasından karşılık gelen değerleri alarak D ve E sütunlarına diziyor.
Oysa ben aynı isimlerin yanındaki C, D ve E sütunlarındaki aranan aynı değere ait verileri de örneğin M'den başlayarak 5 sütuna dizmek istiyorum.
Makroda nasıl bir değişiklik yapmak gerekiyor?
Ayrıca, diyelimki isim olan değerlere göre sıraladım ama bu sıralayı da bir değerin yukarıdan aşağı veya aşağıdan yukarıya doğru sıralanması ile ilgili bir makro aynı çalışma kitabında olabilir mi?
Açıklayıcı olması bakımından dosyayı da ekte sunuyorum.

Bilgimi ve becerimi geliştirmeme yardım eden herkese şimdiden çok teşekkürler!

Public Sub Aktar()
j = 1
Aranan = InputBox("Aktarılacak Değeri Giriniz :")
If Aranan = "" Or False Then Exit Sub
Aranan = UCase(Aranan)

Range("D2:E65536").ClearContents

For i = 1 To [A65536].End(3).Row
If UCase(Cells(i, "B")) = Aranan Then
j = j + 1
Cells(j, "D") = Aranan
Cells(j, "E") = Cells(i, "A")
End If
Next i
End Sub

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz. Dosyayı açtığınızda kod editörüne geçip kodların alt kısımlarında gerekli açıklamarı görebilirsiniz. Umarım faydası olur.

 

[Erdinç FIRTINA]

Çok Çok TeŞekkÜrler

Sayın COST_CONTROL,
Size nasıl teşekkür edeceğimi bilemiyorum.
İnceleyemedim ama kabataslak bir baktım gerçekten harika bir dosya ve bilgi içeriği hazırlamışsınız.

Benim excel ve özellikle de makrolar hazırlama ile ilgili gelişmeme çok katkısı olacak. Umarım bazen bu tür sorularım olduğunda benden bıkmaz ve cevaplarsınız.

Ama merak etmeyin her sorduğum soru bir önce öğrendiğim bilginin üzerine kurulmuş bir bilgi isteği ile ilgili olacaktır.

ÇOK ÇOK TEŞEKKÜR EDERİM!!!