ActiveCell'in cells(a,b) cinsinden ifadesi

[faruksir]

Merhaba,
aşagıdaki kodlara göre b, g, k, ve o hücrelerinden, aynı sıraya göre, boş olan ilk hücreyi buluyorum. ancak yeni bir döngü başlatmak için activecell'in sol üst köşesindeki hücrenin içindeki rakam değerine (b10 active ise a9 daki) ve ActiveCellin konumunu belirleyen cells(a,b) içindeki a ve b sayılarına ihtiyacım var. Bu hücre sürekli değişeceği için ben bunu elle giremiyorum, kodlarla bu sayıları otomatikman nasıl atayabilirim?
teşekkürler
faruk

Range("B10:B34, G10:G34,K10:K34,O10:O34").Select
Range("B10").Activate
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

 

[faruksir]

biraz daha basit bir çözüm de işe yarayacağa benziyor. bu durumda da activecell'e bir üstündeki hücrenin içindeki sayının bir fazlasını atamam gerekiyor bunu nasıl yapabilirim?
teşekkürler

 

[excelvba]

Aşağıdaki şekilde deneyin. Burada a değişkenine aktif hücrenin bir üstündeki verinin bir fazlası atanmaktadır.

a=activecell.offset(-1,0)+1

 

[faruksir]

çok teşekkür ederim. Ben 5 adımdan oluşan copy pastele dolu çok uzun bi yoldan yapabilmiştim. sizin çözümünüz çok daha iyi oldu. :bravo: