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.
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.