Terima kasih Pak Hendrik.
2013/4/13 hendrik karnadi <[email protected]> > ** > > > Dari Contoh terlampir terlihat bahwa CurrentRegion akan mengambil: > - Satu Blok Data jika di sekitar sel (atas, bawah, kri, kanan) yang kita > rujuk ada isinya > - Mengambil hanya sel yang kita rujuk jika di sekitar sel tsb tidak ada > isinya. > > Salam, > HK > > ------------------------------ > *From:* lkm jktind <[email protected]> > *To:* "belajar-excel@yahoogroups com" <[email protected]> > *Sent:* Saturday, 13 April 2013, 19:26 > *Subject:* [belajar-excel] Set range berbeda , kok hasil sama ? > > > Mohon bantuan > > seperti di bawah ini : > > Sub Data_Tr() > Dim shtDT As Worksheet > Dim Sek As Range > Dim T As Long > Dim rngDT As Range, rngLoopDT As Range > Dim seker As String, NoACC As String, tglTR As Long, ticker As String > > Set shtDT = Sheets("Data Tr Saham") > shtDT.Select > * Set rngDT = shtDT.Range("A5", Selection.End(xlDown)).CurrentRegion > 'Set rngDT = shtDT.Range("a1").CurrentRegion > 'Set rngDT = shtDT.Range("A30", Selection.End(xlDown)).CurrentRegion > 'Set rngDT = shtDT.Range("V5", Selection.End(xlDown)).CurrentRegion > 'Set rngDT = shtDT.Range("Z5", Selection.End(xlDown)).CurrentRegion* > > T = 1 > > For Each rngLoopDT In rngDT.Resize(, 1).Offset(1, 4) > With rngLoopDT > seker = .Offset(0, 0).Value > NoACC = .Offset(0, 4) > > End With > T = T + 1 > Next rngLoopDT > > End Sub > > > Salam > > Lukman > > > >
