hücredeki alt alta yazılan bilgiyi ayrı ayrı satırlara yazdırma.

[ouzklcrsln]

Öncelikle herkese merhabalar,

abartısız 3 aydır uğraşmaktayım fakat makro hakkında pek bir şey bilmediğim için yapamadım sanırım. İş hayatımı fazlasıyla etkileyecek bir konu hayat memat meselesi diyebilirim.

düşey ara formülü ile gereken her şeyi yapabildim tek bir şey hariç, oda bir hücrede alt alta yazılan 3 satırlık bilgiyi başka bir sayfada 3 satır olarak yazdıramıyorum.

resimli anlatım ve dosyayı ekledim.
Ekli dosyayı görüntüle prog liste.xlsx


Yardımlarınızı rica ediyorum.

Şimdiden herkese teşekkürler Hayırlı günler.

 

[hamitcan]

Eğer işinizi gördüyse, kodu geliştirebiliriz.

Sub BulGetir()
    k = 18
    No = InputBox("Numarayı Girin")
    Set Bul = Sheets("Sayfa1").Columns(2).Find(No)
    arr = Split(Sheets("Sayfa1").Cells(Bul.Row, "g"), Chr(10))
    For i = 0 To UBound(arr)
        k = k + 1
        Sheets("TALİMAT").Cells(k, 1) = No
        Sheets("TALİMAT").Cells(k, 4) = arr(i)
    Next
End Sub

 

[ouzklcrsln]

ilginiz için çok teşekkür ederim. işime yaradı biraz kurcalayıp değişiklik yapmam lazım.