[belajar-excel] Digest Number 2232

Milis Belajar Microsoft Excel Group

1 New Message

Digest #2232

1

Set range berbeda , kok hasil sama ? by "lkm jktind" lkmjkt

Message

1

Set range berbeda , kok hasil sama ?

Sat Apr 13, 2013 5:39 am (PDT) . Posted by:

"lkm jktind" lkmjkt

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

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

32 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

GROUP FOOTER MESSAGE

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>