15 New Messages
Digest #1876
Messages
Mon Oct 29, 2012 10:49 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba :
'Dim hasil As String
Dim ms As Long
dim xy as Long
For xy = 2 To 13
ms = Sheets("MASA").Range("a" & xy)
if worksheetfunction.countif( Sheets("BPS").Range("A3:A20") , ms ) <>
0 then
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,
Sheets("BPS").Range("A3:A20"), 0), 10)
else
Sheets("MASA").Range("C" & xy)=vbnullstring
endif
Next xy
Wassalam,
Kid.
2012/10/30 him mah <himmah.mlg@gmail.com >
> **
>
>
> saya coba buat rumus seperti ini
>
> Dim hasil As String
> Dim ms As Long
> dim xy as Long
>
> For xy = 2 To 13
> ms = Sheets("MASA").Range("a" & xy)
> hasil = Application.Index(Sheets("BPS").Range("A3:J20"),
> Application.Match(ms, Sheets("BPS").Range("A3:A20), False), 10)
> If IsError(hasil) Then hasil = "" Else hasil = hasil
>
> Sheets("MASA").Range("C" & xy) = hasil
> Next xy
>
> ketika datanya tidak ditemukan di sheets BPS masa akan muncum run time
> error 13
>
> kemudian kalau ditambahkan resume next untuk data yang tidak ada
> hasilnya adalah data sebelumnya
>
> kalau yang seperti ini pemesahannya gimana ya
>
>
'Dim hasil As String
Dim ms As Long
dim xy as Long
For xy = 2 To 13
ms = Sheets("MASA"
if worksheetfunction.
0 then
Sheets("MASA"
worksheetfunction.
Sheets("BPS"
else
Sheets("MASA"
endif
Next xy
Wassalam,
Kid.
2012/10/30 him mah <himmah.mlg@gmail.
> **
>
>
> saya coba buat rumus seperti ini
>
> Dim hasil As String
> Dim ms As Long
> dim xy as Long
>
> For xy = 2 To 13
> ms = Sheets("MASA"
> hasil = Application.
> Application.
> If IsError(hasil) Then hasil = "" Else hasil = hasil
>
> Sheets("MASA"
> Next xy
>
> ketika datanya tidak ditemukan di sheets BPS masa akan muncum run time
> error 13
>
> kemudian kalau ditambahkan resume next untuk data yang tidak ada
> hasilnya adalah data sebelumnya
>
> kalau yang seperti ini pemesahannya gimana ya
>
>
Mon Oct 29, 2012 11:05 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Koreksi cara 1. Atau bagian :
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,
Sheets("BPS").Range("A3:A20"), 0), 10)
diganti menjadi :
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("j3:J20"),worksheetfunction.Match(ms,
Sheets("BPS").Range("A3:A20"), 0))
Mau cara 2. (dengan pasang formula), bagian :
'Dim hasil As String
Dim ms As Long
dim xy as Long
For xy = 2 To 13
ms = Sheets("MASA").Range("a" & xy)
if worksheetfunction.countif( Sheets("BPS").Range("A3:A20") , ms ) <>
0 then
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,
Sheets("BPS").Range("A3:A20"), 0), 10)
else
Sheets("MASA").Range("C" & xy)=vbnullstring
endif
Next xy
dihapus dan diganti dengan :
with Sheets("MASA").Range("C2:C13")
.formula="=if(countif(bps!$a$3:$a$20,a2),index(bps!$j$3:$j$20,match(a2,bps!$a$3:$a$20,0)),"""")"
.parent.calculate
.value=.value
end with
Wassalam,
Kid.
On Tue, Oct 30, 2012 at 12:48 PM, Mr. Kid <mr.nmkid@gmail.com > wrote:
> Coba :
>
> 'Dim hasil As String
>
> Dim ms As Long
> dim xy as Long
>
> For xy = 2 To 13
>
> ms = Sheets("MASA").Range("a" & xy)
> if worksheetfunction.countif( Sheets("BPS").Range("A3:A20") , ms ) <>
> 0 then
> Sheets("MASA").Range("C" & xy)= _
>
> worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,
> Sheets("BPS").Range("A3:A20"), 0), 10)
> else
> Sheets("MASA").Range("C" & xy)=vbnullstring
> endif
> Next xy
>
> Wassalam,
> Kid.
>
>
>
> 2012/10/30 him mah <himmah.mlg@gmail.com >
>
>> **
>>
>>
>> saya coba buat rumus seperti ini
>>
>> Dim hasil As String
>> Dim ms As Long
>> dim xy as Long
>>
>> For xy = 2 To 13
>> ms = Sheets("MASA").Range("a" & xy)
>> hasil = Application.Index(Sheets("BPS").Range("A3:J20"),
>> Application.Match(ms, Sheets("BPS").Range("A3:A20), False), 10)
>> If IsError(hasil) Then hasil = "" Else hasil = hasil
>>
>> Sheets("MASA").Range("C" & xy) = hasil
>> Next xy
>>
>> ketika datanya tidak ditemukan di sheets BPS masa akan muncum run time
>> error 13
>>
>> kemudian kalau ditambahkan resume next untuk data yang tidak ada
>> hasilnya adalah data sebelumnya
>>
>> kalau yang seperti ini pemesahannya gimana ya
>>
>>
>
>
Sheets("MASA"
worksheetfunction.
Sheets("BPS"
diganti menjadi :
Sheets("MASA"
worksheetfunction.
Sheets("BPS"
Mau cara 2. (dengan pasang formula), bagian :
'Dim hasil As String
Dim ms As Long
dim xy as Long
For xy = 2 To 13
ms = Sheets("MASA"
if worksheetfunction.
0 then
Sheets("MASA"
worksheetfunction.
Sheets("BPS"
else
Sheets("MASA"
endif
Next xy
dihapus dan diganti dengan :
with Sheets("MASA"
.formula="=if(
.parent.calculate
.value=.value
end with
Wassalam,
Kid.
On Tue, Oct 30, 2012 at 12:48 PM, Mr. Kid <mr.nmkid@gmail.
> Coba :
>
> 'Dim hasil As String
>
> Dim ms As Long
> dim xy as Long
>
> For xy = 2 To 13
>
> ms = Sheets("MASA"
> if worksheetfunction.
> 0 then
> Sheets("MASA"
>
> worksheetfunction.
> Sheets("BPS"
> else
> Sheets("MASA"
> endif
> Next xy
>
> Wassalam,
> Kid.
>
>
>
> 2012/10/30 him mah <himmah.mlg@gmail.
>
>> **
>>
>>
>> saya coba buat rumus seperti ini
>>
>> Dim hasil As String
>> Dim ms As Long
>> dim xy as Long
>>
>> For xy = 2 To 13
>> ms = Sheets("MASA"
>> hasil = Application.
>> Application.
>> If IsError(hasil) Then hasil = "" Else hasil = hasil
>>
>> Sheets("MASA"
>> Next xy
>>
>> ketika datanya tidak ditemukan di sheets BPS masa akan muncum run time
>> error 13
>>
>> kemudian kalau ditambahkan resume next untuk data yang tidak ada
>> hasilnya adalah data sebelumnya
>>
>> kalau yang seperti ini pemesahannya gimana ya
>>
>>
>
>
Tue Oct 30, 2012 12:41 am (PDT) . Posted by:
"him mah"
terima kasih. mau tanya lagi misalnya data awalnya itu text yg isinya
angka lebih dari 15 ketika dijalankan vba di atas hasi lnya menjadi
number. supaya hasilnya tetap text bagaimana ya
2012/10/30, Mr. Kid <mr.nmkid@gmail.com >:
> Coba :
>
> 'Dim hasil As String
> Dim ms As Long
> dim xy as Long
>
> For xy = 2 To 13
> ms = Sheets("MASA").Range("a" & xy)
> if worksheetfunction.countif( Sheets("BPS").Range("A3:A20") , ms ) <>
> 0 then
> Sheets("MASA").Range("C" & xy)= _
>
> worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,
> Sheets("BPS").Range("A3:A20"), 0), 10)
> else
> Sheets("MASA").Range("C" & xy)=vbnullstring
> endif
> Next xy
>
> Wassalam,
> Kid.
>
>
>
> 2012/10/30 him mah <himmah.mlg@gmail.com >
>
>> **
>>
>>
>> saya coba buat rumus seperti ini
>>
>> Dim hasil As String
>> Dim ms As Long
>> dim xy as Long
>>
>> For xy = 2 To 13
>> ms = Sheets("MASA").Range("a" & xy)
>> hasil = Application.Index(Sheets("BPS").Range("A3:J20"),
>> Application.Match(ms, Sheets("BPS").Range("A3:A20), False), 10)
>> If IsError(hasil) Then hasil = "" Else hasil = hasil
>>
>> Sheets("MASA").Range("C" & xy) = hasil
>> Next xy
>>
>> ketika datanya tidak ditemukan di sheets BPS masa akan muncum run time
>> error 13
>>
>> kemudian kalau ditambahkan resume next untuk data yang tidak ada
>> hasilnya adalah data sebelumnya
>>
>> kalau yang seperti ini pemesahannya gimana ya
>>
>>
>
angka lebih dari 15 ketika dijalankan vba di atas hasi lnya menjadi
number. supaya hasilnya tetap text bagaimana ya
2012/10/30, Mr. Kid <mr.nmkid@gmail.
> Coba :
>
> 'Dim hasil As String
> Dim ms As Long
> dim xy as Long
>
> For xy = 2 To 13
> ms = Sheets("MASA"
> if worksheetfunction.
> 0 then
> Sheets("MASA"
>
> worksheetfunction.
> Sheets("BPS"
> else
> Sheets("MASA"
> endif
> Next xy
>
> Wassalam,
> Kid.
>
>
>
> 2012/10/30 him mah <himmah.mlg@gmail.
>
>> **
>>
>>
>> saya coba buat rumus seperti ini
>>
>> Dim hasil As String
>> Dim ms As Long
>> dim xy as Long
>>
>> For xy = 2 To 13
>> ms = Sheets("MASA"
>> hasil = Application.
>> Application.
>> If IsError(hasil) Then hasil = "" Else hasil = hasil
>>
>> Sheets("MASA"
>> Next xy
>>
>> ketika datanya tidak ditemukan di sheets BPS masa akan muncum run time
>> error 13
>>
>> kemudian kalau ditambahkan resume next untuk data yang tidak ada
>> hasilnya adalah data sebelumnya
>>
>> kalau yang seperti ini pemesahannya gimana ya
>>
>>
>
Tue Oct 30, 2012 12:48 am (PDT) . Posted by:
"him mah"
2012/10/30, Mr. Kid <mr.nmkid@gmail.com >:
> Coba :
>
> 'Dim hasil As String
> Dim ms As Long
> dim xy as Long
>
> For xy = 2 To 13
> ms = Sheets("MASA").Range("a" & xy)
> if worksheetfunction.countif( Sheets("BPS").Range("A3:A20") , ms ) <>
> 0 then
> Sheets("MASA").Range("C" & xy)= _
>
> worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,
> Sheets("BPS").Range("A3:A20"), 0), 10)
> else
> Sheets("MASA").Range("C" & xy)=vbnullstring
> endif
> Next xy
>
> Wassalam,
> Kid.
>
>
>
> 2012/10/30 him mah <himmah.mlg@gmail.com >
>
>> **
>>
>>
>> saya coba buat rumus seperti ini
>>
>> Dim hasil As String
>> Dim ms As Long
>> dim xy as Long
>>
>> For xy = 2 To 13
>> ms = Sheets("MASA").Range("a" & xy)
>> hasil = Application.Index(Sheets("BPS").Range("A3:J20"),
>> Application.Match(ms, Sheets("BPS").Range("A3:A20), False), 10)
>> If IsError(hasil) Then hasil = "" Else hasil = hasil
>>
>> Sheets("MASA").Range("C" & xy) = hasil
>> Next xy
>>
>> ketika datanya tidak ditemukan di sheets BPS masa akan muncum run time
>> error 13
>>
>> kemudian kalau ditambahkan resume next untuk data yang tidak ada
>> hasilnya adalah data sebelumnya
>>
>> kalau yang seperti ini pemesahannya gimana ya
>>
>>
>
> Coba :
>
> 'Dim hasil As String
> Dim ms As Long
> dim xy as Long
>
> For xy = 2 To 13
> ms = Sheets("MASA"
> if worksheetfunction.
> 0 then
> Sheets("MASA"
>
> worksheetfunction.
> Sheets("BPS"
> else
> Sheets("MASA"
> endif
> Next xy
>
> Wassalam,
> Kid.
>
>
>
> 2012/10/30 him mah <himmah.mlg@gmail.
>
>> **
>>
>>
>> saya coba buat rumus seperti ini
>>
>> Dim hasil As String
>> Dim ms As Long
>> dim xy as Long
>>
>> For xy = 2 To 13
>> ms = Sheets("MASA"
>> hasil = Application.
>> Application.
>> If IsError(hasil) Then hasil = "" Else hasil = hasil
>>
>> Sheets("MASA"
>> Next xy
>>
>> ketika datanya tidak ditemukan di sheets BPS masa akan muncum run time
>> error 13
>>
>> kemudian kalau ditambahkan resume next untuk data yang tidak ada
>> hasilnya adalah data sebelumnya
>>
>> kalau yang seperti ini pemesahannya gimana ya
>>
>>
>
Tue Oct 30, 2012 1:20 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Cara 1 :
>> ubah format number cell tujuan menjadi bertipe text tepat sebelum
penulisan nilai kedalam cell
range("tujuan").numberformat="@"
>> lanjutkan dengan memasukkan nilai ke cell tujuan :
range("tujuan").value = nilainya_bisa_jadi_hasil_worksheetfunction
Cara 2 : (hanya bisa untuk cara pasang formula)
Usai calculate formula :
range("bla").formula ="=formulanya" 'pasang formula
range("bla").parent.calculate 'calculate sheet
lakukan copy paste values
range("bla").copy
range("bla").pastespecial xlpastevalues
Wassalam,
Kid.
2012/10/30 him mah <himmah.mlg@gmail.com >
> **
>
>
> terima kasih. mau tanya lagi misalnya data awalnya itu text yg isinya
> angka lebih dari 15 ketika dijalankan vba di atas hasi lnya menjadi
> number. supaya hasilnya tetap text bagaimana ya
>
> 2012/10/30, Mr. Kid <mr.nmkid@gmail.com >:
>
> > Coba :
> >
> > 'Dim hasil As String
> > Dim ms As Long
> > dim xy as Long
> >
> > For xy = 2 To 13
> > ms = Sheets("MASA").Range("a" & xy)
> > if worksheetfunction.countif( Sheets("BPS").Range("A3:A20") , ms ) <>
> > 0 then
> > Sheets("MASA").Range("C" & xy)= _
> >
> >
> worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,
> > Sheets("BPS").Range("A3:A20"), 0), 10)
> > else
> > Sheets("MASA").Range("C" & xy)=vbnullstring
> > endif
> > Next xy
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> > 2012/10/30 him mah <himmah.mlg@gmail.com >
> >
> >> **
>
> >>
> >>
> >> saya coba buat rumus seperti ini
> >>
> >> Dim hasil As String
> >> Dim ms As Long
> >> dim xy as Long
> >>
> >> For xy = 2 To 13
> >> ms = Sheets("MASA").Range("a" & xy)
> >> hasil = Application.Index(Sheets("BPS").Range("A3:J20"),
> >> Application.Match(ms, Sheets("BPS").Range("A3:A20), False), 10)
> >> If IsError(hasil) Then hasil = "" Else hasil = hasil
> >>
> >> Sheets("MASA").Range("C" & xy) = hasil
> >> Next xy
> >>
> >> ketika datanya tidak ditemukan di sheets BPS masa akan muncum run time
> >> error 13
> >>
> >> kemudian kalau ditambahkan resume next untuk data yang tidak ada
> >> hasilnya adalah data sebelumnya
> >>
> >> kalau yang seperti ini pemesahannya gimana ya
> >>
> >>
> >
>
>
>
>> ubah format number cell tujuan menjadi bertipe text tepat sebelum
penulisan nilai kedalam cell
range("tujuan"
>> lanjutkan dengan memasukkan nilai ke cell tujuan :
range("tujuan"
Cara 2 : (hanya bisa untuk cara pasang formula)
Usai calculate formula :
range("bla")
range("bla")
lakukan copy paste values
range("bla")
range("bla")
Wassalam,
Kid.
2012/10/30 him mah <himmah.mlg@gmail.
> **
>
>
> terima kasih. mau tanya lagi misalnya data awalnya itu text yg isinya
> angka lebih dari 15 ketika dijalankan vba di atas hasi lnya menjadi
> number. supaya hasilnya tetap text bagaimana ya
>
> 2012/10/30, Mr. Kid <mr.nmkid@gmail.
>
> > Coba :
> >
> > 'Dim hasil As String
> > Dim ms As Long
> > dim xy as Long
> >
> > For xy = 2 To 13
> > ms = Sheets("MASA"
> > if worksheetfunction.
> > 0 then
> > Sheets("MASA"
> >
> >
> worksheetfunction.
> > Sheets("BPS"
> > else
> > Sheets("MASA"
> > endif
> > Next xy
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> > 2012/10/30 him mah <himmah.mlg@gmail.
> >
> >> **
>
> >>
> >>
> >> saya coba buat rumus seperti ini
> >>
> >> Dim hasil As String
> >> Dim ms As Long
> >> dim xy as Long
> >>
> >> For xy = 2 To 13
> >> ms = Sheets("MASA"
> >> hasil = Application.
> >> Application.
> >> If IsError(hasil) Then hasil = "" Else hasil = hasil
> >>
> >> Sheets("MASA"
> >> Next xy
> >>
> >> ketika datanya tidak ditemukan di sheets BPS masa akan muncum run time
> >> error 13
> >>
> >> kemudian kalau ditambahkan resume next untuk data yang tidak ada
> >> hasilnya adalah data sebelumnya
> >>
> >> kalau yang seperti ini pemesahannya gimana ya
> >>
> >>
> >
>
>
>
Tue Oct 30, 2012 1:43 am (PDT) . Posted by:
"him mah"
dikomputer saya kalau pakai worksheetfunction ngga bisa tapi kalau
pakai Application bisa, kira-kira kenapa ya
beda
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,
Sheets("BPS").Range("A3:A20"), 0), 10)
dibandingkan dengan ini
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("j3:J20"),worksheetfunction.Match(ms,
Sheets("BPS").Range("A3:A20"), 0))
beda
Sheets("MASA").Range("C" & xy)=vbnullstring
dengan
Sheets("MASA").Range("C" & xy)=""
Pada tanggal 30/10/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
> Cara 1 :
>>> ubah format number cell tujuan menjadi bertipe text tepat sebelum
> penulisan nilai kedalam cell
> range("tujuan").numberformat="@"
>
>>> lanjutkan dengan memasukkan nilai ke cell tujuan :
> range("tujuan").value = nilainya_bisa_jadi_hasil_worksheetfunction
>
> Cara 2 : (hanya bisa untuk cara pasang formula)
> Usai calculate formula :
> range("bla").formula ="=formulanya" 'pasang formula
> range("bla").parent.calculate 'calculate sheet
>
> lakukan copy paste values
> range("bla").copy
> range("bla").pastespecial xlpastevalues
>
> Wassalam,
> Kid.
>
>
>
> 2012/10/30 him mah <himmah.mlg@gmail.com >
>
>> **
>>
>>
>> terima kasih. mau tanya lagi misalnya data awalnya itu text yg isinya
>> angka lebih dari 15 ketika dijalankan vba di atas hasi lnya menjadi
>> number. supaya hasilnya tetap text bagaimana ya
>>
>> 2012/10/30, Mr. Kid <mr.nmkid@gmail.com >:
>>
>> > Coba :
>> >
>> > 'Dim hasil As String
>> > Dim ms As Long
>> > dim xy as Long
>> >
>> > For xy = 2 To 13
>> > ms = Sheets("MASA").Range("a" & xy)
>> > if worksheetfunction.countif( Sheets("BPS").Range("A3:A20") , ms ) <>
>> > 0 then
>> > Sheets("MASA").Range("C" & xy)= _
>> >
>> >
>> worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,
>> > Sheets("BPS").Range("A3:A20"), 0), 10)
>> > else
>> > Sheets("MASA").Range("C" & xy)=vbnullstring
>> > endif
>> > Next xy
>> >
>> > Wassalam,
>> > Kid.
>> >
>> >
>> >
>> > 2012/10/30 him mah <himmah.mlg@gmail.com >
>> >
>> >> **
>>
>> >>
>> >>
>> >> saya coba buat rumus seperti ini
>> >>
>> >> Dim hasil As String
>> >> Dim ms As Long
>> >> dim xy as Long
>> >>
>> >> For xy = 2 To 13
>> >> ms = Sheets("MASA").Range("a" & xy)
>> >> hasil = Application.Index(Sheets("BPS").Range("A3:J20"),
>> >> Application.Match(ms, Sheets("BPS").Range("A3:A20), False), 10)
>> >> If IsError(hasil) Then hasil = "" Else hasil = hasil
>> >>
>> >> Sheets("MASA").Range("C" & xy) = hasil
>> >> Next xy
>> >>
>> >> ketika datanya tidak ditemukan di sheets BPS masa akan muncum run time
>> >> error 13
>> >>
>> >> kemudian kalau ditambahkan resume next untuk data yang tidak ada
>> >> hasilnya adalah data sebelumnya
>> >>
>> >> kalau yang seperti ini pemesahannya gimana ya
>> >>
>> >>
>> >
>>
>>
>>
>
pakai Application bisa, kira-kira kenapa ya
beda
Sheets("MASA"
worksheetfunction.
Sheets("BPS"
dibandingkan dengan ini
Sheets("MASA"
worksheetfunction.
Sheets("BPS"
beda
Sheets("MASA"
dengan
Sheets("MASA"
Pada tanggal 30/10/12, Mr. Kid <mr.nmkid@gmail.
> Cara 1 :
>>> ubah format number cell tujuan menjadi bertipe text tepat sebelum
> penulisan nilai kedalam cell
> range("tujuan"
>
>>> lanjutkan dengan memasukkan nilai ke cell tujuan :
> range("tujuan"
>
> Cara 2 : (hanya bisa untuk cara pasang formula)
> Usai calculate formula :
> range("bla")
> range("bla")
>
> lakukan copy paste values
> range("bla")
> range("bla")
>
> Wassalam,
> Kid.
>
>
>
> 2012/10/30 him mah <himmah.mlg@gmail.
>
>> **
>>
>>
>> terima kasih. mau tanya lagi misalnya data awalnya itu text yg isinya
>> angka lebih dari 15 ketika dijalankan vba di atas hasi lnya menjadi
>> number. supaya hasilnya tetap text bagaimana ya
>>
>> 2012/10/30, Mr. Kid <mr.nmkid@gmail.
>>
>> > Coba :
>> >
>> > 'Dim hasil As String
>> > Dim ms As Long
>> > dim xy as Long
>> >
>> > For xy = 2 To 13
>> > ms = Sheets("MASA"
>> > if worksheetfunction.
>> > 0 then
>> > Sheets("MASA"
>> >
>> >
>> worksheetfunction.
>> > Sheets("BPS"
>> > else
>> > Sheets("MASA"
>> > endif
>> > Next xy
>> >
>> > Wassalam,
>> > Kid.
>> >
>> >
>> >
>> > 2012/10/30 him mah <himmah.mlg@gmail.
>> >
>> >> **
>>
>> >>
>> >>
>> >> saya coba buat rumus seperti ini
>> >>
>> >> Dim hasil As String
>> >> Dim ms As Long
>> >> dim xy as Long
>> >>
>> >> For xy = 2 To 13
>> >> ms = Sheets("MASA"
>> >> hasil = Application.
>> >> Application.
>> >> If IsError(hasil) Then hasil = "" Else hasil = hasil
>> >>
>> >> Sheets("MASA"
>> >> Next xy
>> >>
>> >> ketika datanya tidak ditemukan di sheets BPS masa akan muncum run time
>> >> error 13
>> >>
>> >> kemudian kalau ditambahkan resume next untuk data yang tidak ada
>> >> hasilnya adalah data sebelumnya
>> >>
>> >> kalau yang seperti ini pemesahannya gimana ya
>> >>
>> >>
>> >
>>
>>
>>
>
Tue Oct 30, 2012 2:25 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pakai Excel berapa ?
Ada juga yang demikian ya...
Kalau pakai Application.worksheetfunction bisa gak ? (cuma pengen tahu saja)
Kalau bisanya pakai Application ya pakai Application saja gak perlu pakai
worksheetfunction. Hanya saja, mungkin beberapa fungsi bawaan Excel (yang
dipakai di worksheet) tidak bisa digunakan jika menggunakan
Application.namafungsiexcelnya
Untuk yang gak bisa ini, baru pakai
Application.worksheetfunction.namafungsiexcelnya
btw, gak bisanya bunyi apa ? Sub or Function not defined atau doesn't
support blabla Methods or properties gitu ?
Perbedaan dari :
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,Sheets("BPS").Range("A3:A20"),
0), 10)
dibandingkan dengan ini
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("j3:J20"),worksheetfunction.Match(ms,Sheets("BPS").Range("A3:A20"),
0))
Adalah pada rujukan range bagian Index yang hanya merujuk 1 kolom (bawah)
dibanding 10 kolom (atas), sehingga tidak perlu ,10
Perbedaan dari :
Sheets("MASA").Range("C" & xy)=*vbnullstring*
dengan
Sheets("MASA").Range("C" & xy)=*""*
sama saja perbedaan antara vbNullString dengan ""
- Keduanya menghasilkan nilai yang sama, yaitu karakter kosong (nullstring)
yang bertipe string
- vbNullstring adalah suatu konstanta yang merujuk ke karakter kosong
- ekspresi "" adalah suatu nilai string yang kosong, sehingga setara dengan
karakter kosong
- konon, VB maupun VBA lebih cepat bereaksi terhadap vbNullString dibanding
dengan ekspresi ""
Wassalam,
Kid.
2012/10/30 him mah <himmah.mlg@gmail.com >
> **
>
>
> dikomputer saya kalau pakai worksheetfunction ngga bisa tapi kalau
> pakai Application bisa, kira-kira kenapa ya
>
> beda
>
>
> Sheets("MASA").Range("C" & xy)= _
>
> worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,
> Sheets("BPS").Range("A3:A20"), 0), 10)
>
> dibandingkan dengan ini
>
>
> Sheets("MASA").Range("C" & xy)= _
>
> worksheetfunction.Index(Sheets("BPS").Range("j3:J20"),worksheetfunction.Match(ms,
> Sheets("BPS").Range("A3:A20"), 0))
>
> beda
>
> Sheets("MASA").Range("C" & xy)=vbnullstring
> dengan
>
> Sheets("MASA").Range("C" & xy)=""
>
> Pada tanggal 30/10/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
>
> > Cara 1 :
> >>> ubah format number cell tujuan menjadi bertipe text tepat sebelum
> > penulisan nilai kedalam cell
> > range("tujuan").numberformat="@"
> >
> >>> lanjutkan dengan memasukkan nilai ke cell tujuan :
> > range("tujuan").value = nilainya_bisa_jadi_hasil_worksheetfunction
> >
> > Cara 2 : (hanya bisa untuk cara pasang formula)
> > Usai calculate formula :
> > range("bla").formula ="=formulanya" 'pasang formula
> > range("bla").parent.calculate 'calculate sheet
> >
> > lakukan copy paste values
> > range("bla").copy
> > range("bla").pastespecial xlpastevalues
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> > 2012/10/30 him mah <himmah.mlg@gmail.com >
> >
> >> **
>
> >>
> >>
> >> terima kasih. mau tanya lagi misalnya data awalnya itu text yg isinya
> >> angka lebih dari 15 ketika dijalankan vba di atas hasi lnya menjadi
> >> number. supaya hasilnya tetap text bagaimana ya
> >>
> >> 2012/10/30, Mr. Kid <mr.nmkid@gmail.com >:
> >>
> >> > Coba :
> >> >
> >> > 'Dim hasil As String
> >> > Dim ms As Long
> >> > dim xy as Long
> >> >
> >> > For xy = 2 To 13
> >> > ms = Sheets("MASA").Range("a" & xy)
> >> > if worksheetfunction.countif( Sheets("BPS").Range("A3:A20") , ms ) <>
> >> > 0 then
> >> > Sheets("MASA").Range("C" & xy)= _
> >> >
> >> >
> >>
> worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,
> >> > Sheets("BPS").Range("A3:A20"), 0), 10)
> >> > else
> >> > Sheets("MASA").Range("C" & xy)=vbnullstring
> >> > endif
> >> > Next xy
> >> >
> >> > Wassalam,
> >> > Kid.
> >> >
> >> >
> >> >
> >> > 2012/10/30 him mah <himmah.mlg@gmail.com >
> >> >
> >> >> **
> >>
> >> >>
> >> >>
> >> >> saya coba buat rumus seperti ini
> >> >>
> >> >> Dim hasil As String
> >> >> Dim ms As Long
> >> >> dim xy as Long
> >> >>
> >> >> For xy = 2 To 13
> >> >> ms = Sheets("MASA").Range("a" & xy)
> >> >> hasil = Application.Index(Sheets("BPS").Range("A3:J20"),
> >> >> Application.Match(ms, Sheets("BPS").Range("A3:A20), False), 10)
> >> >> If IsError(hasil) Then hasil = "" Else hasil = hasil
> >> >>
> >> >> Sheets("MASA").Range("C" & xy) = hasil
> >> >> Next xy
> >> >>
> >> >> ketika datanya tidak ditemukan di sheets BPS masa akan muncum run
> time
> >> >> error 13
> >> >>
> >> >> kemudian kalau ditambahkan resume next untuk data yang tidak ada
> >> >> hasilnya adalah data sebelumnya
> >> >>
> >> >> kalau yang seperti ini pemesahannya gimana ya
> >> >>
> >> >>
> >> >
> >>
> >>
> >>
> >
>
>
>
Ada juga yang demikian ya...
Kalau pakai Application.
Kalau bisanya pakai Application ya pakai Application saja gak perlu pakai
worksheetfunction. Hanya saja, mungkin beberapa fungsi bawaan Excel (yang
dipakai di worksheet) tidak bisa digunakan jika menggunakan
Application.
Untuk yang gak bisa ini, baru pakai
Application.
btw, gak bisanya bunyi apa ? Sub or Function not defined atau doesn't
support blabla Methods or properties gitu ?
Perbedaan dari :
Sheets("MASA"
worksheetfunction.
0), 10)
dibandingkan dengan ini
Sheets("MASA"
worksheetfunction.
0))
Adalah pada rujukan range bagian Index yang hanya merujuk 1 kolom (bawah)
dibanding 10 kolom (atas), sehingga tidak perlu ,10
Perbedaan dari :
Sheets("MASA"
dengan
Sheets("MASA"
sama saja perbedaan antara vbNullString dengan ""
- Keduanya menghasilkan nilai yang sama, yaitu karakter kosong (nullstring)
yang bertipe string
- vbNullstring adalah suatu konstanta yang merujuk ke karakter kosong
- ekspresi "" adalah suatu nilai string yang kosong, sehingga setara dengan
karakter kosong
- konon, VB maupun VBA lebih cepat bereaksi terhadap vbNullString dibanding
dengan ekspresi ""
Wassalam,
Kid.
2012/10/30 him mah <himmah.mlg@gmail.
> **
>
>
> dikomputer saya kalau pakai worksheetfunction ngga bisa tapi kalau
> pakai Application bisa, kira-kira kenapa ya
>
> beda
>
>
> Sheets("MASA"
>
> worksheetfunction.
> Sheets("BPS"
>
> dibandingkan dengan ini
>
>
> Sheets("MASA"
>
> worksheetfunction.
> Sheets("BPS"
>
> beda
>
> Sheets("MASA"
> dengan
>
> Sheets("MASA"
>
> Pada tanggal 30/10/12, Mr. Kid <mr.nmkid@gmail.
>
> > Cara 1 :
> >>> ubah format number cell tujuan menjadi bertipe text tepat sebelum
> > penulisan nilai kedalam cell
> > range("tujuan"
> >
> >>> lanjutkan dengan memasukkan nilai ke cell tujuan :
> > range("tujuan"
> >
> > Cara 2 : (hanya bisa untuk cara pasang formula)
> > Usai calculate formula :
> > range("bla")
> > range("bla")
> >
> > lakukan copy paste values
> > range("bla")
> > range("bla")
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> > 2012/10/30 him mah <himmah.mlg@gmail.
> >
> >> **
>
> >>
> >>
> >> terima kasih. mau tanya lagi misalnya data awalnya itu text yg isinya
> >> angka lebih dari 15 ketika dijalankan vba di atas hasi lnya menjadi
> >> number. supaya hasilnya tetap text bagaimana ya
> >>
> >> 2012/10/30, Mr. Kid <mr.nmkid@gmail.
> >>
> >> > Coba :
> >> >
> >> > 'Dim hasil As String
> >> > Dim ms As Long
> >> > dim xy as Long
> >> >
> >> > For xy = 2 To 13
> >> > ms = Sheets("MASA"
> >> > if worksheetfunction.
> >> > 0 then
> >> > Sheets("MASA"
> >> >
> >> >
> >>
> worksheetfunction.
> >> > Sheets("BPS"
> >> > else
> >> > Sheets("MASA"
> >> > endif
> >> > Next xy
> >> >
> >> > Wassalam,
> >> > Kid.
> >> >
> >> >
> >> >
> >> > 2012/10/30 him mah <himmah.mlg@gmail.
> >> >
> >> >> **
> >>
> >> >>
> >> >>
> >> >> saya coba buat rumus seperti ini
> >> >>
> >> >> Dim hasil As String
> >> >> Dim ms As Long
> >> >> dim xy as Long
> >> >>
> >> >> For xy = 2 To 13
> >> >> ms = Sheets("MASA"
> >> >> hasil = Application.
> >> >> Application.
> >> >> If IsError(hasil) Then hasil = "" Else hasil = hasil
> >> >>
> >> >> Sheets("MASA"
> >> >> Next xy
> >> >>
> >> >> ketika datanya tidak ditemukan di sheets BPS masa akan muncum run
> time
> >> >> error 13
> >> >>
> >> >> kemudian kalau ditambahkan resume next untuk data yang tidak ada
> >> >> hasilnya adalah data sebelumnya
> >> >>
> >> >> kalau yang seperti ini pemesahannya gimana ya
> >> >>
> >> >>
> >> >
> >>
> >>
> >>
> >
>
>
>
Tue Oct 30, 2012 2:43 am (PDT) . Posted by:
"him mah"
saya pakai office 14, kalau ditambahain Application.WorksheetFunction
tapi untuk WorksheetFunction.CountIf tanpa ditambahan Application bisa
untuk
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("A3:J20"),worksheetfunction.Match(ms,Sheets("BPS").Range("A3:A20"),
0), 10)
dan
Sheets("MASA").Range("C" & xy)= _
worksheetfunction.Index(Sheets("BPS").Range("j3:J20"),worksheetfunction.Match(ms,Sheets("BPS").Range("A3:A20"),
0))
maksud saya apa berpengaruh juga pada kecepatan prosesnya ya
tapi untuk WorksheetFunction.
untuk
Sheets("MASA"
worksheetfunction.
0), 10)
dan
Sheets("MASA"
worksheetfunction.
0))
maksud saya apa berpengaruh juga pada kecepatan prosesnya ya
Tue Oct 30, 2012 1:05 am (PDT) . Posted by:
"Emi" emilestariklcc
Terima kasih Pak Kid di atas bantuannya.
Dilampirkan file excel dan hasil text filenya untuk dipelajari oleh semua anggota milis.
Emi Lestari
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: Emi <emilestariklcc@yahoo.com >
Sent: Tuesday, October 30, 2012 12:26 PM
Subject: Re: [belajar-excel] Tukar data excel ke TEXT dengan makro
Mbak Emi,
A. Bagian workbooks.add kok gak dicopy padahal pada email lalu, baris tersebut tetap aktif. Mbak Emi hanya ambil yang diwarna ya ?
Bagian workbooks.add harus tetap ada dong.
B. Sebaiknya, penentuan folder tujuan jangan menggunakan :
sfolder=range("z1").value
karena disana ada syaratnya yaitu :
'jika di cell z1 ada teks folder lokasi penyimpanan (harus diakhiri \sedangkan data Anda, cell Z1 masih bagian dari data.
Lebih baik pakai :
sFolder=thisworkbook.path & "\"
Jadi nanti file hasil akan satu folder dengan si file Excel
C. Sedikit perbaikan adalah sebelum workbooks.add diberi tambahan :
dim sFile as string
sFile=activesheet.name & ".txt"
Kemudian, pada baris yang berbunyi :
ActiveWorkbook.SaveAs sfolder & activesheet.name & ".txt",xltext
diganti menjadi :
ActiveWorkbook.SaveAs sfolder & sfile,xltext
Wassalam,Kid.
2012/10/30 Emi <emilestariklcc@yahoo.com >
Dear Mr Kid,
>
>
>Saya udah mencoba makro yang bapak ajarkan itu, tetapi hasilnya agak berbeda dari yang diharapkan. File excel dan text ada dilampirkan.
>
>Ada 2 hal yg belum tuntas
>
>1. Walaupun saya udah copy range("a2:y" & lrows) seperti saran bapak, tapi tetap saja area copy nya menjangkau sehingga ke semua kolum data.
>
>2. Di baris yang ada formula yaitu Kolum A, ada error #VALUE!karena ikut sama di copy ke text. Yang dipraktik dalam pekerjaan sekarang ialah, di file excel, saya akan menghapus semua empty row, dengan menekan Shift + Ctrl + arrow down, delete, hasilnya jika ada formula di baris akhir akan terhapus.
>Mungkin kita bisa ikut formula excel. IF( Y2 ="", A2="". Tapi gimana mau dibuat makro untuk kasus bagini.
>Artinya semua row kosong di kolum Y dihapus secara entire ROW.
>Mohon bantuan dari bapak, saya saya amat menghargai ilmu nya.
>
>
>Terima kasih.
>
>Emi Lestari
>
>
>
>
>From: Mr. Kid <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, October 30, 2012 4:47 AM
>Subject: Re: [belajar-excel] Tukar data excel ke TEXT dengan makro
>
>
>Ops,yang dicopy belum sampai kolom Y.
>Baris ini :
>range("a2:a" & lrows).copy
>
>diubah menjadi :
>range("a2:y" & lrows).copy
>
>Maaf ya...
>
>Wassalam,
>Kid.
>
>2012/10/30 Mr. Kid <mr.nmkid@gmail.com >
>range("a2:a" & lrows).copy
>
----------
1 15092012 25102012 KA USD 40 233214 102 102 P10441064 0000100000 10000
15092012 25102012 KA USD 50 631104 100 100 P10441064 0000100000 06602
15092012 25102012 USD 50 631104 2 2 P10441064 0000100000 06602
2 18092012 25102012 SJ USD 40 610901 30 30 P10541036 18092012 0000100000 01507
18092012 25102012 USD 50 620202 30 30 P10541036 18092012 0000100000 02347
3 18092012 25102012 SJ USD 40 515216 20 20 P10541040 20092012 0000100000 01201
18092012 25102012 USD 40 631302 0.5 0.5 P10541040 C1400143631 0000100000 01202
18092012 25102012 USD 50 233215 20.5 20.5 P10541040 0000100000 19601
4 20102012 25102012 SJ USD 40 233214 340 340 P10541040 0000100000 10000
20102012 25102012 USD 50 515216 140 140 P10541040 0000200000 01201
20102012 25102012 USD 50 631302 1.7 1.7 P10541040 0000200000 01202
20102012 25102012 USD 50 610201 112.2 112.2 P10541040 0005100000 01402
20102012 25102012 USD 50 610201 86.1 86.1 P10541040 0002100000 01403
5 29092012 25102012 SJ USD 40 273114 10900 10900 P10521111 0000100000 10111
29092012 25102012 USD 0 273114 10900 10900 0000100000 10112
Dilampirkan file excel dan hasil text filenya untuk dipelajari oleh semua anggota milis.
Emi Lestari
____________
From: Mr. Kid <mr.nmkid@gmail.
To: Emi <emilestariklcc@
Sent: Tuesday, October 30, 2012 12:26 PM
Subject: Re: [belajar-excel] Tukar data excel ke TEXT dengan makro
Mbak Emi,
A. Bagian workbooks.add kok gak dicopy padahal pada email lalu, baris tersebut tetap aktif. Mbak Emi hanya ambil yang diwarna ya ?
Bagian workbooks.add harus tetap ada dong.
B. Sebaiknya, penentuan folder tujuan jangan menggunakan :
sfolder=range(
karena disana ada syaratnya yaitu :
'jika di cell z1 ada teks folder lokasi penyimpanan (harus diakhiri \sedangkan data Anda, cell Z1 masih bagian dari data.
Lebih baik pakai :
sFolder=thisworkboo
Jadi nanti file hasil akan satu folder dengan si file Excel
C. Sedikit perbaikan adalah sebelum workbooks.add diberi tambahan :
dim sFile as string
sFile=activesheet.
Kemudian, pada baris yang berbunyi :
ActiveWorkbook.
diganti menjadi :
ActiveWorkbook.
Wassalam,Kid.
2012/10/30 Emi <emilestariklcc@
Dear Mr Kid,
>
>
>Saya udah mencoba makro yang bapak ajarkan itu, tetapi hasilnya agak berbeda dari yang diharapkan. File excel dan text ada dilampirkan.
>
>Ada 2 hal yg belum tuntas
>
>1. Walaupun saya udah copy range("a2:
>
>2. Di baris yang ada formula yaitu Kolum A, ada error #VALUE!
>Mungkin kita bisa ikut formula excel. IF( Y2 ="", A2="". Tapi gimana mau dibuat makro untuk kasus bagini.
>Artinya semua row kosong di kolum Y dihapus secara entire ROW.
>Mohon bantuan dari bapak, saya saya amat menghargai ilmu nya.
>
>
>Terima kasih.
>
>Emi Lestari
>
>
>
>
>From: Mr. Kid <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Tuesday, October 30, 2012 4:47 AM
>Subject: Re: [belajar-excel] Tukar data excel ke TEXT dengan makro
>
>
>Ops,yang dicopy belum sampai kolom Y.
>Baris ini :
>range("a2:a" & lrows).copy
>
>diubah menjadi :
>range("a2:y" & lrows).copy
>
>Maaf ya...
>
>Wassalam,
>Kid.
>
>2012/10/30 Mr. Kid <mr.nmkid@gmail.
>range("a2:a" & lrows).copy
>
----------
1 15092012 25102012 KA USD 40 233214 102 102 P10441064 0000100000 10000
15092012 25102012 KA USD 50 631104 100 100 P10441064 0000100000 06602
15092012 25102012 USD 50 631104 2 2 P10441064 0000100000 06602
2 18092012 25102012 SJ USD 40 610901 30 30 P10541036 18092012 0000100000 01507
18092012 25102012 USD 50 620202 30 30 P10541036 18092012 0000100000 02347
3 18092012 25102012 SJ USD 40 515216 20 20 P10541040 20092012 0000100000 01201
18092012 25102012 USD 40 631302 0.5 0.5 P10541040 C1400143631 0000100000 01202
18092012 25102012 USD 50 233215 20.5 20.5 P10541040 0000100000 19601
4 20102012 25102012 SJ USD 40 233214 340 340 P10541040 0000100000 10000
20102012 25102012 USD 50 515216 140 140 P10541040 0000200000 01201
20102012 25102012 USD 50 631302 1.7 1.7 P10541040 0000200000 01202
20102012 25102012 USD 50 610201 112.2 112.2 P10541040 0005100000 01402
20102012 25102012 USD 50 610201 86.1 86.1 P10541040 0002100000 01403
5 29092012 25102012 SJ USD 40 273114 10900 10900 P10521111 0000100000 10111
29092012 25102012 USD 0 273114 10900 10900 0000100000 10112
Tue Oct 30, 2012 1:05 am (PDT) . Posted by:
"IHSAN NURDIN" ihsanmn
Wah....sip tk "the_x_mikey". Satu lagi nih rekan milis. Saya akan memberi no urut(tentunya secara berurutan) pada kolom No.urut. Yang mana No urut tersebut hanya diberi satu pada data pertama disetiap baris bila Nama org yg berbeda saja. contoh data di bawah ini : TK sebelumnya rekan milis.
salam excel.
No urut Nama Alamat Data lain
Amir sdfdsf sdfdsf
Amir sdfsdf sdfsdf
Amir sdfdsf sdfdsf
Jaka sdfdsf sdfdsf
Jaka sdfdsf sdfdsf
Jaka sdfsdf sdfsdf
Jaka sdfdsf sdfdsf
Venda sdfdsf sdfdsf
Venda sdfsdf sdfsdf
Venda sdfdsf sdfdsf
Linda sdfdsf sdfdsf
Linda sdfsdf sdfsdf
Linda sdfdsf sdfdsf
Linda sdfdsf sdfdsf
Linda sdfsdf sdfsdf
Linda sdfdsf sdfdsf
Mifta sdfdsf sdfdsf
Mifta sdfsdf sdfsdf
Mifta sdfdsf sdfdsf
________________________________
From: "the_x_mikey@yahoo.com " <the_x_mikey@yahoo.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, October 30, 2012 12:56 PM
Subject: Re: [belajar-excel] menghapus row/baris kosong
Blok kolom acuan nya, edit, go to (ctrl+g), special, blanks, maka row kosong otomatis terselect.
Tinggal delete deh
________________________________
From: IHSAN NURDIN <ihsanmn@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 29 Oct 2012 21:43:33 -0700 (PDT)
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: [belajar-excel] menghapus row/baris kosong
DH.
Para rekan milis saya mau tanya. Saya punya data ribuan baris. Bagaimana cara dengan cepat saya menghapus row yang kosong.
TK banyak sebelumnya.
salam excel.
salam excel.
No urut Nama Alamat Data lain
Amir sdfdsf sdfdsf
Amir sdfsdf sdfsdf
Amir sdfdsf sdfdsf
Jaka sdfdsf sdfdsf
Jaka sdfdsf sdfdsf
Jaka sdfsdf sdfsdf
Jaka sdfdsf sdfdsf
Venda sdfdsf sdfdsf
Venda sdfsdf sdfsdf
Venda sdfdsf sdfdsf
Linda sdfdsf sdfdsf
Linda sdfsdf sdfsdf
Linda sdfdsf sdfdsf
Linda sdfdsf sdfdsf
Linda sdfsdf sdfsdf
Linda sdfdsf sdfdsf
Mifta sdfdsf sdfdsf
Mifta sdfsdf sdfsdf
Mifta sdfdsf sdfdsf
____________
From: "the_x_mikey@
To: belajar-excel@
Sent: Tuesday, October 30, 2012 12:56 PM
Subject: Re: [belajar-excel] menghapus row/baris kosong
Blok kolom acuan nya, edit, go to (ctrl+g), special, blanks, maka row kosong otomatis terselect.
Tinggal delete deh
____________
From: IHSAN NURDIN <ihsanmn@yahoo.
Sender: belajar-excel@
Date: Mon, 29 Oct 2012 21:43:33 -0700 (PDT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: [belajar-excel] menghapus row/baris kosong
DH.
Para rekan milis saya mau tanya. Saya punya data ribuan baris. Bagaimana cara dengan cepat saya menghapus row yang kosong.
TK banyak sebelumnya.
salam excel.
Tue Oct 30, 2012 1:28 am (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
misalkan data nama dimulai dari B2 formula dimulai dari A2 maka formulanya
=IF(AND(B2<>"";COUNTIF(B$2:B2;B2)=1);MAX(A$1:A1)+1;"")
copy ke bawah sampai tuntas
wassalam
Ghozi Alkatiri
________________________________
Dari: IHSAN NURDIN <ihsanmn@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Selasa, 30 Oktober 2012 15:05
Judul: Re: [belajar-excel] menghapus row/baris kosong
Wah....sip tk "the_x_mikey". Satu lagi nih rekan milis. Saya akan memberi no urut(tentunya secara berurutan) pada kolom No.urut. Yang mana No urut tersebut hanya diberi satu pada data pertama disetiap baris bila Nama org yg berbeda saja. contoh data di bawah ini : TK sebelumnya rekan milis.
salam excel.
No urut Nama Alamat Data lain
Amir sdfdsf sdfdsf
Amir sdfsdf sdfsdf
Amir sdfdsf sdfdsf
Jaka sdfdsf sdfdsf
Jaka sdfdsf sdfdsf
Jaka sdfsdf sdfsdf
Jaka sdfdsf sdfdsf
Venda sdfdsf sdfdsf
Venda sdfsdf sdfsdf
Venda sdfdsf sdfdsf
Linda sdfdsf sdfdsf
Linda sdfsdf sdfsdf
Linda sdfdsf sdfdsf
Linda sdfdsf sdfdsf
Linda sdfsdf sdfsdf
Linda sdfdsf sdfdsf
Mifta sdfdsf sdfdsf
Mifta sdfsdf sdfsdf
Mifta sdfdsf sdfdsf
________________________________
From: "the_x_mikey@yahoo.com " <the_x_mikey@yahoo.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, October 30, 2012 12:56 PM
Subject: Re: [belajar-excel] menghapus row/baris kosong
Blok kolom acuan nya, edit, go to (ctrl+g), special, blanks, maka row kosong otomatis terselect.
Tinggal delete deh
________________________________
From: IHSAN NURDIN <ihsanmn@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 29 Oct 2012 21:43:33 -0700 (PDT)
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: [belajar-excel] menghapus row/baris kosong
DH.
Para rekan milis saya mau tanya. Saya punya data ribuan baris. Bagaimana cara dengan cepat saya menghapus row yang kosong.
TK banyak sebelumnya.
salam excel.
=IF(AND(B2<>
copy ke bawah sampai tuntas
wassalam
Ghozi Alkatiri
____________
Dari: IHSAN NURDIN <ihsanmn@yahoo.
Kepada: "belajar-excel@
Dikirim: Selasa, 30 Oktober 2012 15:05
Judul: Re: [belajar-excel] menghapus row/baris kosong
Wah....sip tk "the_x_mikey"
salam excel.
No urut Nama Alamat Data lain
Amir sdfdsf sdfdsf
Amir sdfsdf sdfsdf
Amir sdfdsf sdfdsf
Jaka sdfdsf sdfdsf
Jaka sdfdsf sdfdsf
Jaka sdfsdf sdfsdf
Jaka sdfdsf sdfdsf
Venda sdfdsf sdfdsf
Venda sdfsdf sdfsdf
Venda sdfdsf sdfdsf
Linda sdfdsf sdfdsf
Linda sdfsdf sdfsdf
Linda sdfdsf sdfdsf
Linda sdfdsf sdfdsf
Linda sdfsdf sdfsdf
Linda sdfdsf sdfdsf
Mifta sdfdsf sdfdsf
Mifta sdfsdf sdfsdf
Mifta sdfdsf sdfdsf
____________
From: "the_x_mikey@
To: belajar-excel@
Sent: Tuesday, October 30, 2012 12:56 PM
Subject: Re: [belajar-excel] menghapus row/baris kosong
Blok kolom acuan nya, edit, go to (ctrl+g), special, blanks, maka row kosong otomatis terselect.
Tinggal delete deh
____________
From: IHSAN NURDIN <ihsanmn@yahoo.
Sender: belajar-excel@
Date: Mon, 29 Oct 2012 21:43:33 -0700 (PDT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: [belajar-excel] menghapus row/baris kosong
DH.
Para rekan milis saya mau tanya. Saya punya data ribuan baris. Bagaimana cara dengan cepat saya menghapus row yang kosong.
TK banyak sebelumnya.
salam excel.
Tue Oct 30, 2012 1:49 am (PDT) . Posted by:
"IHSAN NURDIN" ihsanmn
thx banyak Pak Ghozi.
salam excel.
________________________________
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, October 30, 2012 4:28 PM
Subject: Bls: [belajar-excel] menghapus row/baris kosong
misalkan data nama dimulai dari B2 formula dimulai dari A2 maka formulanya
=IF(AND(B2<>"";COUNTIF(B$2:B2;B2)=1);MAX(A$1:A1)+1;"")
copy ke bawah sampai tuntas
wassalam
Ghozi Alkatiri
________________________________
Dari: IHSAN NURDIN <ihsanmn@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Selasa, 30 Oktober 2012 15:05
Judul: Re: [belajar-excel] menghapus row/baris kosong
Wah....sip tk "the_x_mikey". Satu lagi nih rekan milis. Saya akan memberi no urut(tentunya secara berurutan) pada kolom No.urut. Yang mana No urut tersebut hanya diberi satu pada data pertama disetiap baris bila Nama org yg berbeda saja. contoh data di bawah ini : TK sebelumnya rekan milis.
salam excel.
No urut Nama Alamat Data lain
Amir sdfdsf sdfdsf
Amir sdfsdf sdfsdf
Amir sdfdsf sdfdsf
Jaka sdfdsf sdfdsf
Jaka sdfdsf sdfdsf
Jaka sdfsdf sdfsdf
Jaka sdfdsf sdfdsf
Venda sdfdsf sdfdsf
Venda sdfsdf sdfsdf
Venda sdfdsf sdfdsf
Linda sdfdsf sdfdsf
Linda sdfsdf sdfsdf
Linda sdfdsf sdfdsf
Linda sdfdsf sdfdsf
Linda sdfsdf sdfsdf
Linda sdfdsf sdfdsf
Mifta sdfdsf sdfdsf
Mifta sdfsdf sdfsdf
Mifta sdfdsf sdfdsf
________________________________
From: "the_x_mikey@yahoo.com " <the_x_mikey@yahoo.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, October 30, 2012 12:56 PM
Subject: Re: [belajar-excel] menghapus row/baris kosong
Blok kolom acuan nya, edit, go to (ctrl+g), special, blanks, maka row kosong otomatis terselect.
Tinggal delete deh
________________________________
From: IHSAN NURDIN <ihsanmn@yahoo.com >
Sender: belajar-excel@yahoogroups.com
Date: Mon, 29 Oct 2012 21:43:33 -0700 (PDT)
To: belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
ReplyTo: belajar-excel@yahoogroups.com
Subject: [belajar-excel] menghapus row/baris kosong
DH.
Para rekan milis saya mau tanya. Saya punya data ribuan baris. Bagaimana cara dengan cepat saya menghapus row yang kosong.
TK banyak sebelumnya.
salam excel.
salam excel.
____________
From: ghozi alkatiri <ghozialkatiri@
To: "belajar-excel@
Sent: Tuesday, October 30, 2012 4:28 PM
Subject: Bls: [belajar-excel] menghapus row/baris kosong
misalkan data nama dimulai dari B2 formula dimulai dari A2 maka formulanya
=IF(AND(B2<>
copy ke bawah sampai tuntas
wassalam
Ghozi Alkatiri
____________
Dari: IHSAN NURDIN <ihsanmn@yahoo.
Kepada: "belajar-excel@
Dikirim: Selasa, 30 Oktober 2012 15:05
Judul: Re: [belajar-excel] menghapus row/baris kosong
Wah....sip tk "the_x_mikey"
salam excel.
No urut Nama Alamat Data lain
Amir sdfdsf sdfdsf
Amir sdfsdf sdfsdf
Amir sdfdsf sdfdsf
Jaka sdfdsf sdfdsf
Jaka sdfdsf sdfdsf
Jaka sdfsdf sdfsdf
Jaka sdfdsf sdfdsf
Venda sdfdsf sdfdsf
Venda sdfsdf sdfsdf
Venda sdfdsf sdfdsf
Linda sdfdsf sdfdsf
Linda sdfsdf sdfsdf
Linda sdfdsf sdfdsf
Linda sdfdsf sdfdsf
Linda sdfsdf sdfsdf
Linda sdfdsf sdfdsf
Mifta sdfdsf sdfdsf
Mifta sdfsdf sdfsdf
Mifta sdfdsf sdfdsf
____________
From: "the_x_mikey@
To: belajar-excel@
Sent: Tuesday, October 30, 2012 12:56 PM
Subject: Re: [belajar-excel] menghapus row/baris kosong
Blok kolom acuan nya, edit, go to (ctrl+g), special, blanks, maka row kosong otomatis terselect.
Tinggal delete deh
____________
From: IHSAN NURDIN <ihsanmn@yahoo.
Sender: belajar-excel@
Date: Mon, 29 Oct 2012 21:43:33 -0700 (PDT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: [belajar-excel] menghapus row/baris kosong
DH.
Para rekan milis saya mau tanya. Saya punya data ribuan baris. Bagaimana cara dengan cepat saya menghapus row yang kosong.
TK banyak sebelumnya.
salam excel.
Tue Oct 30, 2012 1:22 am (PDT) . Posted by:
"Prodev SIMPLE PB" prodev_simple
Assalamu'alaikum Wr. Wb.
Dear Excelers...mohon pencerahannya untuk kasus sederhana berikut ini (file terlampir).
Untuk mengetahui waktu tenggang jatuh tempo tiap bulannya.
Terima kasih atas solusinya.
Wassalam.
- prodev simple -
Dear Excelers...mohon pencerahannya untuk kasus sederhana berikut ini (file terlampir).
Untuk mengetahui waktu tenggang jatuh tempo tiap bulannya.
Terima kasih atas solusinya.
Wassalam.
- prodev simple -
Tue Oct 30, 2012 2:03 am (PDT) . Posted by:
"Bagus" bagus4bls
Dear Prodev
File terlampir semoga sesuai yg diharapkan
Bagus
----- Original Message -----
From: Prodev SIMPLE PB
To: Belajar Excel Milis
Sent: Tuesday, October 30, 2012 3:16 PM
Subject: [belajar-excel] Mengetahui waktu tenggang jatuh tempo
Assalamu'alaikum Wr. Wb.
Dear Excelers...mohon pencerahannya untuk kasus sederhana berikut ini (file terlampir).
Untuk mengetahui waktu tenggang jatuh tempo tiap bulannya.
Terima kasih atas solusinya.
Wassalam.
- prodev simple -
File terlampir semoga sesuai yg diharapkan
Bagus
----- Original Message -----
From: Prodev SIMPLE PB
To: Belajar Excel Milis
Sent: Tuesday, October 30, 2012 3:16 PM
Subject: [belajar-excel] Mengetahui waktu tenggang jatuh tempo
Assalamu'alaikum Wr. Wb.
Dear Excelers...mohon pencerahannya untuk kasus sederhana berikut ini (file terlampir).
Untuk mengetahui waktu tenggang jatuh tempo tiap bulannya.
Terima kasih atas solusinya.
Wassalam.
- prodev simple -
Tue Oct 30, 2012 2:12 am (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
formula di D4
=EOMONTH(TODAY();IF(DAY(TODAY())>C4;0;-1))+C4-TODAY()
fungsi eomont adalah fungsi yang akan menghhasilkan serial tanggal akhir bulan
sintax dari fungsi eomonth adalah
EOMONTH(start_date;month)
dimana start date adalah tanggal acuan dimulainya perthitungan
month adalah angka bilangan bulat bisa positif, negatif atau nol yang akan berfungsi memajukan atau memundurkan tanggal berdasarkan bulan yang diinginkan .
misalkan fungsi today pada hari ini akan menghasilkan 30/10/2012
fungsi
=EOMONTH(TODAY();0) akan menghasilkan tanggal 31/10/2012 (angka bulan tetap ) karena nilai bulan 0
=EOMONTH(TODAY();1) akan menghasilkan tanggal 31/11/2012 (angka bulan maju 1 ) karena nilai bulan 1
=EOMONTH(TODAY();-1) akan menghasilkan tanggal 31/9/2012 (angka bulan mundur 1 ) karena nilai bulan -1
adapun logika yang digunakan pada rumus
=EOMONTH(TODAY();IF(DAY(TODAY())>C4;0;-1))+C4-TODAY()
di atas adalah
jika nilai pada cell di C4 lebih besar dari nilai tanggal day (today) maka isi pengubah bulan dengan 0 jika tidak dengan -1 baru hasilnya tambahkan dengan C4 dan kurangkan dengan today.
selanjutnya lihat attachment
wassalam
Ghozi Alkatiri
________________________________
Dari: Prodev SIMPLE PB <prodev_simple@yahoo.com >
Kepada: Belajar Excel Milis <belajar-excel@yahoogroups.com >
Dikirim: Selasa, 30 Oktober 2012 15:16
Judul: [belajar-excel] Mengetahui waktu tenggang jatuh tempo
Assalamu'alaikum Wr. Wb.
Dear Excelers...mohon pencerahannya untuk kasus sederhana berikut ini (file terlampir).
Untuk mengetahui waktu tenggang jatuh tempo tiap bulannya.
Terima kasih atas solusinya.
Wassalam.
- prodev simple -
=EOMONTH(TODAY(
fungsi eomont adalah fungsi yang akan menghhasilkan serial tanggal akhir bulan
sintax dari fungsi eomonth adalah
EOMONTH(start_
dimana start date adalah tanggal acuan dimulainya perthitungan
month adalah angka bilangan bulat bisa positif, negatif atau nol yang akan berfungsi memajukan atau memundurkan tanggal berdasarkan bulan yang diinginkan .
misalkan fungsi today pada hari ini akan menghasilkan 30/10/2012
fungsi
=EOMONTH(TODAY(
=EOMONTH(TODAY(
=EOMONTH(TODAY(
adapun logika yang digunakan pada rumus
=EOMONTH(TODAY(
di atas adalah
jika nilai pada cell di C4 lebih besar dari nilai tanggal day (today) maka isi pengubah bulan dengan 0 jika tidak dengan -1 baru hasilnya tambahkan dengan C4 dan kurangkan dengan today.
selanjutnya lihat attachment
wassalam
Ghozi Alkatiri
____________
Dari: Prodev SIMPLE PB <prodev_simple@
Kepada: Belajar Excel Milis <belajar-excel@
Dikirim: Selasa, 30 Oktober 2012 15:16
Judul: [belajar-excel] Mengetahui waktu tenggang jatuh tempo
Assalamu'alaikum Wr. Wb.
Dear Excelers...mohon pencerahannya untuk kasus sederhana berikut ini (file terlampir).
Untuk mengetahui waktu tenggang jatuh tempo tiap bulannya.
Terima kasih atas solusinya.
Wassalam.
- prodev simple -
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar