Ara - bul - sola git - yaz

[VI Pisces]

Başlıkta da yazdığım gibi,
Bir kelime aratmam gerekli ve o kelimenin olduğu hücrelerin misal veriyorum 5 solundaki hücreye 12431234 gibi bir sayı yazılmalı. Sayıyı ben gireceğim.

Veya

Seçtiğim hücrelerin 5 solundaki hücreye 1234141234 yazsın. Yazılacak sayıyı ben girmeliyim.

Teşekkürler..

 

[ÖmerFaruk]

Örnek dosyanız olmadığı için ancak aşağıdaki gibi yardımcı olabilirim.
Kod, çalıştığı sayfanın E-X sütunları arasında (E ve X dahil) Aranan ifadeyi bulur ve Yazılacak sayıyı yazar.
Bulamazsa bir işlem yapmaz

Sub AraBul5gerisineyaz()
    Dim Aranan, Bul As Range
    Aranan = "Ali" 'Buraya aradığınzı veriyi yazarsınız
    Yazılacak = 12345 ' Buraya ne yazmak istediğinizi yazarsınız
    Set Bul = Range("E:X").Find(Aranan, , xlValues, xlWhole)
    If Not Bul Is Nothing Then Bul.Offset(0, -5) = Yazılacak
    Set Bul = Nothing
End Sub