Çoklu Hücre içeriği

[tamer42]

Merhabalar,

Aşağıdaki kodda

Dim Rng1, Rng2 As Range
.....................

sut = 3
sat = 3

seri = s2.Range("I" & r).Text

  '''Rng1 = s1.Cells(sat - 1, sut - 1)
  ''''Rng2 = s1.Cells(sat + 5, sut)
    
    [color=blue]s1.Range(Cells(sat - 1, sut - 1), Cells(sat + 5, sut)).Select[/Color]
    
.....................

s1.Range(Cells(sat - 1, sut - 1), Cells(sat + 5, sut)).Select

satırını;

s1.Range(Rng1, Rng2).Select

şeklinde kısatarak ifade etmek istiyordum; yalnız hata veriyor.
Ben nerede hata yapıyorum dur?

İyi Çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Option Explicit
 
Sub HÜCRE_SEÇ()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim SATIR As Long, SÜTUN As Byte
    Dim RNG1 As String, RNG2 As String
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    SATIR = 3
    SÜTUN = 3
    S1.Select
    RNG1 = Cells(SATIR - 1, SÜTUN - 1).Address
    RNG2 = Cells(SATIR + 5, SÜTUN).Address
    Range(RNG1, RNG2).Select
End Sub