aynı değerle doldur

[prodigy]

değerli arkadaşlar
a sutununda a3 hücresinden başlayarak rakamlar var. örneğin a3 ve a 10 da 2 sayısı, a11 ve a21 de 5, a22 ve a30 hücresinde 3 rakamı var.( bu aralıklar sabit değil)
yapmak istediğim ise aynı rakamların bulunduğu hücreleri bu sayılarla doldurmak ( yani a3 ile a10 arasını 2 rakamı ile, a11 ile a21 arasını 5 ile...)
Sub Makro1()
a = ActiveCell.Value
Set b = Columns("a").Find(a)
ilkadres = b.Address
Set b = Columns("a").FindPrevious(b)
sonadres = b.Address
Range("b2") = ilkadres
Range("b3") = sonadres
End Sub
bu makro ile aralıkları balabiliyorum.

 

[mehmett]

Sn prodigy

Makro dışında bir yöntem isterseniz aşağıdaki linkte verilen yöntemi deneyebilirsiniz.

http://www.excel.web.tr/viewtopic.php?t=7345&start=0

 

[prodigy]

teşekkür sn zerige verdiğiniz linki incelemiştim. ama bunu makroya atamam gerekiyor

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[omerceri]

örnek ekte kod aşağıda
Sub ff()
For i = 3 To 1000
If Range("A" & i) <> "" And Range("A" & i + 1) = "" Then
bas = i
basi = Range("A" & i)
ElseIf Range("A" & i) = "" And Range("A" & i + 1) <> "" And basi <> 0 And Range("A" & i + 1) = basi Then
son = i
Range("A" & bas & ":A" & son).Value = basi
End If
Next
End Sub
Kayıt sonunu belirleyemediğimden 1000'le sınırladım