rows kullanımı

[musaliha]

Merhaba aşağıdaki kodla b2 deki yazanı sayfada arayıp buluyor ve 10.sütüna verilen görevi yapıyor.
Ancak ben arayıp bulduğu yerin 3 satır altına 8 else "" işlemini yapmasını istiyorum.Bunun kod yazılışında yardımcı olurmusunuz.teşekkür ederim

Aranan = UserForm1.b2.Value
Range("c:c").Find(Aranan2).Select
guncelle = ActiveCell.Row
If UserForm8.CheckBox1.Value = True Then Worksheets("kadroekders").Cells(guncelle, 10) = 8 Else Worksheets("kadroekders").Cells(guncelle, 10) = ""


yani x=arananın oldğu hücrenin 3 satırı altındaki hücre
formülü rica ediyorum

 

[Mahmut Kök]

Örnek olsun diye yazıyorum.

Range("F8").Offset(3, 0) = "X"

şeklinde kullanabilirsiniz. .offset(satır, sütun) şeklinde kullanılır. Yukarı ve sola gitmek için ( -3, -2) gibi eksi işaretiyle kullanabilirsiniz.)

Sizin örneğinizde

guncelle + 3

demeniz yeterli olur diye düşünüyorum.

 

[Korhan Ayhan]

Ya da;

guncelle = ActiveCell.Row + 3

 

[musaliha]

Çok teşekkür ederim.