Kurala göre istenilen hücreyi istenilen yere getirme

[Polye]

Merhaba Arkadaşlar
a sütünunda bulunan kodlara göre b sütununa eş değer metinler yer almaktadır.

Bunları düzenli bir tablo haline getirmek istiyor. Örnek Dosya ekte mevcuttur.

Şimdiden yardımlarınız için teşekkür ederim.

 

[Muhammet Okumuş]

Merhaba,

Sub Yaz()
Application.ScreenUpdating = False
son = Cells(Rows.Count, 2).End(3).Row
Range("E2:K1000") = ""

For i = 9 To son
If Cells(i, 1) = "" Then GoTo 10
a = Cells(Rows.Count, 5).End(3).Row + 1
deg = Cells(i, 1)
Cells(a, deg + 5) = Cells(i, 2).Value
10
Next
End Sub

Kodu deneyiniz.

 

[Polye]

formül olarak yapma imkanı varmı acaba

 

[Muhammet Okumuş]

Formül ile nasıl olur düşünmek gerek. Eğer verileriniz periyodik olarak sıralı ise formül oluşturulabilir. Kaç satır veriniz var? Veriler düzenli mi?

 

[Polye]

veriler düzenli örnek tablodaki gibi a ve b sütünlarında satır sayısı olarak binlerce olabiliyor.

 

[Polye]

Formül olarak yardımcı olabilirmisiniz.

 

[Polye]

Düzenleme içeriği 100 adetten fazlasını yapmıyor. Bunu düzeltme şansımız varmı

 

[Muhammet Okumuş]

Kodda her hangi bir sınırlama yok. Dosyayı gönderiniz.