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
