Alt alta yazdırmada yardım !!!

[TheSins]

Arkadaşlar yardımınıza ihtiyacım var !!!
Bir döngü oluşturmak istiyorum...

f:f sutununa yazdığım 1'den başlıyarak giden sayıları...(burası A2 ile A18 arasında sınırlı ve 1 2 3 diye öncelik numarası vericem...

Başka bir sayfada 1 sayısını yazdığım f:f sutunundan önceki b c d e satırlarını döşemesini istiyorum...


Kodlar aşağıdadır ancak döngüye sokamadım bu tarz kodralın çok olmasından dolayı excelde çalışmıyor too large mış



On Error Resume Next
If Intersect(Target, [f:f]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub

If Target = 1 And Target.Row > 2 And Target.Row < 18 Then
Sheets("PLAN").Cells(4, "c") = Target.Offset(0, -4)
Sheets("PLAN").Cells(4, "d") = Target.Offset(0, -3)
Sheets("PLAN").Cells(4, "f") = Target.Offset(0, -2)
Sheets("PLAN").Cells(4, "g") = Target.Offset(0, -1)
End If

If Target = 2 And Target.Row > 2 And Target.Row < 18 Then
Sheets("PLAN").Cells(5, "c") = Target.Offset(0, -4)
Sheets("PLAN").Cells(5, "d") = Target.Offset(0, -3)
Sheets("PLAN").Cells(5, "f") = Target.Offset(0, -2)
Sheets("PLAN").Cells(5, "g") = Target.Offset(0, -1)
End If

If Target = 3 And Target.Row > 2 And Target.Row < 18 Then
Sheets("PLAN").Cells(6, "c") = Target.Offset(0, -4)
Sheets("PLAN").Cells(6, "d") = Target.Offset(0, -3)
Sheets("PLAN").Cells(6, "f") = Target.Offset(0, -2)
Sheets("PLAN").Cells(6, "g") = Target.Offset(0, -1)
End If

Şimdiden çok teşekkür ederim

 

[i_karamaz]

&#246;rnek bir dosya eklerseniz daha kolay cevap alabilirsiniz.

 

[TheSins]

Örnek dosya aşağıdaki gibidir...Msn:mustafasutcu@hotmail.com


Gönderdiğim dosyada alt alta ve yan yana yazabiliyorum ama satır ve sutunları büyültmem gerek kodlar fazlalaşıyor ve too large uyarısı verdiğinden döngüye sokmam gerek

 

[TheSins]

Arkadaşlar yukarıdaki kodları döngü yapmaya ihtiyacım var yardım edermisiniz lütfen....