range ( hücre seçme ile alakalı bir soru)

[Erdem Akdemir]

herkese bol selamlar

Sub sec()
Range("a2:b2").Select
End Sub

yukardaki kod ile a2:b2 aralığını seçebiliyorum

Sub dede()
Dim i As Byte
For i = 2 To 2
Range("a&i:b&i").Select
Next i
End Sub

bu şekilde seçemedim

range kodunu nasıl yazmam lazım

iyi çalışmalar

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub alan_sec()
i = 1
j = 2
Range("a" & i & ":" & "b" & j).Select
End Sub

ya da

Sub alan_sec_2()
i = 1
j = 20
Range(Cells(i, 1), Cells(j, 2)).Select
End Sub

 

[Orion1]

Belkide isdeğiniz budur.

Sub evren()
Dim i As Byte
For i = 2 To 2
sec = sec & "," & "A" & i & ":B" & i
Next i
sec = Right(sec, Len(sec) - 1)
Range(sec).Select
End Sub

 

[Erdem Akdemir]

verdiğiniz cevaplar sayesinde sorunu çözdüm

ilgilenen herkese teşekkür ederim