Kolondaki değere bakarak diğer bir kolona değer yazdırmak

[haso_excel]

Merhaba arkadaşlar,

Amacım,Giriş yazan sütunun solunda termin süresilerine bakıp, giriş sutununa değer atamak.
Örnek:Termin süresi 3 ise giriş sütununda 3 satır aşağıya 3800 kg giriş yapılacak.
Mesela L7 hücresinde 3 varise M10 kolonuna 3850 yi yazaca
Ben birşeyler yapmaya çalıştım ama olmadı.

Sub sipl()

On Error Resume Next
For a = 2 To WorksheetFunction.CountA(Range("k:k")) + 1
If Cells(a, 11).Value >= 0 Then
Cells(a, 13).Value = Cells((Cells(a, 11) + a), 13).Value = 3850

End If
Next a
End Sub

 

[YUSUF44]

İstediğiniz şeyi sanıyorum aşağıdaki kodlar karşılıyor ancak dosyanızın öyle bir yapısı var ki tüm hücreler formüllerle birbirine bağımlı olduğundan makro çalıştıktan sonra tüm hücrelerdeki deperler değişiyor ve sonuç olarak tüm sütunda 3850 yazıyor:

Sub sibel()

On Error Resume Next
For a = 2 To [K1].End(xlDown).Row
If Cells(a, 12).Value >= 0 Then
Cells(a + 3, 13).Value = 3850

End If
Next a
End Sub

 

[haso_excel]

Evet çoğu hücre formllerle bağlı, manuel olarak m10 a 3850 yazarsanız ne demek istediğimi anlayacaksınız. Ayrıca "Cells(a + 3, 13)" daki 3, 1,2 yada 4 de olabilir. Biz koda direkt 3 değilde oradaki değişkene göre değer getirip M kolonunda yazılacak celli buldurmammız lazım.