Range`in Yazilimi

[mustafaine1]

Merhaba arkadaslar asil yazmak istedigim

ActiveSheet.Range("C1:K176").Select

fakat k176 degisken bir deger o yuzden

say = Application.Match("LOAN RE-PAYMENTS FROM FOREIGN BANKS", [c:c], 0)

o yuzden say adinda bir variant atamasi yaptim ve istegim

ActiveSheet.Range("C1:K176").Select

bolumunun

[COLOR="Red"]c1:ksay[/COLOR]

gibi bitmesi bu nasil yapilir..

 

[Ömer]

Merhaba,

ActiveSheet.Range("C1:K" & say).Select

Bu şekilde deneyiniz..

.

 

[mustafaine1]

Aynisini yamistim hata vermisti sanirim baska bi yerde vermismis simdi calistirdim, tesekkurler..

 

[mustafaine1]

ActiveSheet.Range("C1:K" & saytitle - 1).Select
ActiveSheet.Range("C" & saydactmstart & ":K" & saydactmfinish - 1).Select

Arkadaslar simdi boyle bir ikilemim daha olustu, iki range`i birden secmek icin nasil yazmam gerekir..

 

[Necdet]

Merhaba,

Makro kaydet ile iki ayrı range seçiniz ve kodları inceleyiniz. Sanırım daha rahat anlarsınız.

 

[mustafaine1]

Denedim ornegin a1:a10 ve a20:a30 olsun range("a1:a10,a20:a20") seklinde yapiyor ama ben kendi ornegimi bu sekilde yapamadim..

 

[mustafaine1]

Simdide calisti bugun ya benim ya bilgisayarimin kafa iyi sanirim

 

[mustafaine1]

Sub UnionExample()
Dim Rng1, Rng2, Rng3 As Range

Set Rng1 = Range("A1,A3,A5,A7,A9,A11,A13,A15,A17,A19,A21")
Set Rng2 = Range("C1,C3,C5,C7,C9,C11,C13,C15,C17,C19,C21")
Set Rng3 = Range("E1,E3,E5,E7,E9,E11,E13,E15,E17,E19,E21")

Union(Rng1, Rng2, Rng3).Select

End Sub


aslinda bu sekilde yapmak gerekiyormus arkadaslar, kolay gelsin..