3 New Messages
Digest #1734
Messages
Thu Aug 16, 2012 10:28 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Coba dengan prosedur berikut :
Public Sub NewSheet()
Dim sht As Worksheet
Dim lSht As Long, lShtNum As Long, lShtName As Long
Dim sShtName As String
With Sheets("template")
'init nama dasaran sheet baru
sShtName = .Range("a2").Value & Format$(.Range("a1").Value,
"ddmmyy")
lShtName = Len(sShtName)
'hitung jumlah sheet dengan nama dasaran yang sama
lSht = 0
For Each sht In ThisWorkbook.Worksheets
If InStr(LCase$(sht.Name), LCase$(sShtName)) <> 0 Then
'nomor yang sudah digunakan
lShtNum = CLng(0 & _
Mid$( _
Replace$( _
Replace$(sht.Name, "
(", vbNullString) _
, ")", vbNullString) _
, lShtName + 1, 3) _
)
If lShtNum = 0 Then
lShtNum = 1
End If
'set nilai maksimum yang telah digunakan
If lShtNum > lSht Then
lSht = lShtNum
End If
End If
Next sht
'set nama sheet dengan nomor baru
If lSht <> 0 Then
sShtName = sShtName & " (" & lSht + 1 & ")"
End If
'buat sheet baru
Set sht = Sheets.Add(after:=Sheets(Sheets.Count))
sht.Name = sShtName
.Activate 'kembali ke sheet template
End With
End Sub
Syarat :
data A1 bertipe datetime. Jika di-input dengan format YYYY-MM-DD, maka
pasti tipe data di A1 adalah datetime.
Wassalam,
Kid.
2012/8/16 <sin.ur4t@yahoo.com >
> **
>
>
> Makasih pak karnadi pencerahannya sangat bermanfaat utk diterapkan pd
> kasus yg saya hadapi..
> maaf ternyata msh ada masalah yg tadinya tdk terfikirkan..
> Jika sebuah sheet sdh terbentuk (misal: sheet medan010712) lalu kita
> bentuk lagi sheet yg sama, maka akan muncul pesan error(debug??) Karena
> sheet tsb sdh ada sblmnya.
>
> Jika hal seperti itu terjadi, saya ingin sheet yg terbaru itu dinamai
> medan010712(2), medan010712(3) dst --> persis seperti nama sheet kalo sheet
> tsb dikopi secara manual.
>
> Bgmn tambahan makronya pak?? Mohon dicerahkan lagi, trm ksh sblmnya.
>
>
> Salam
> Sinurat-sumut
> Powered by Telkomsel BlackBerry®
> ------------------------------
> *From: * hendrik karnadi <hendrikkarnadi@yahoo.com >
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 15 Aug 2012 08:13:28 -0700 (PDT)
> *To: *belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com >
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
>
> Dengan isi sel A1 dan Sel A2 seperti dalam soal, masih perlu dibuat satu
> sel(mis. A3) untuk menggabungkan sel A1 dan A2.
> Sel A3 berisi function sbb:
> =LEFT(A2,FIND("-",A2)-1)&DAY(A1)&RIGHT("00"&MONTH(A1),2)&RIGHT(YEAR(A1),2)
>
> Kemudian buat macro sbb:
> Sub ShBaru()
> Sheets.Add
> ActiveSheet.Name = Sheets("Sheet1").Range("A3").Value
> End Sub
>
> Salamat mencoba.
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* "sin.ur4t@yahoo.com " <sin.ur4t@yahoo.com >
> *To:* Belajar Excel <belajar-excel@yahoogroups.com >
> *Sent:* Wednesday, 15 August 2012, 16:54
> *Subject:* [belajar-excel] Makro - Memberi Nama Sheet Baru
>
> Salam exceler..
> Para pakar/rekan2 milis, bagaimana cara membuat sheet baru dan memberi
> nama sheet tsb merujuk kpd sebagian isi dari sel tertentu, menggunakan
> makro??
>
> Misalkan pada suatu sheet:
> Sel A1 berisi tanggal --> 17 agustus 2012
> Sel A2 berisi lokasi --> medan-sumut (sel ini selalu berisi nama kota dan
> propinsi yg dipisahkan dgn tanda penghubung "-").
>
> Bgmn makro utk membuat sheet baru dan memberinya nama "medan170812"??
> (Pola penamaan sheet --> nama kota dari sel A2, digabungkan dgn dua digit
> tanggal, dua digit bulan, dan dua digit tahun dari sel A1)..
>
> mohon dicerahkan, trm ksh sblmnya.. :)
>
> Wassalam
> Sinurat-sumut
> Powered by Telkomsel BlackBerry®
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
>
>
>
Public Sub NewSheet()
Dim sht As Worksheet
Dim lSht As Long, lShtNum As Long, lShtName As Long
Dim sShtName As String
With Sheets("template"
'init nama dasaran sheet baru
sShtName = .Range("a2")
"ddmmyy")
lShtName = Len(sShtName)
'hitung jumlah sheet dengan nama dasaran yang sama
lSht = 0
For Each sht In ThisWorkbook.
If InStr(LCase$
'nomor yang sudah digunakan
lShtNum = CLng(0 & _
Mid$( _
Replace$( _
Replace$(sht.
(", vbNullString) _
, ")", vbNullString) _
, lShtName + 1, 3) _
)
If lShtNum = 0 Then
lShtNum = 1
End If
'set nilai maksimum yang telah digunakan
If lShtNum > lSht Then
lSht = lShtNum
End If
End If
Next sht
'set nama sheet dengan nomor baru
If lSht <> 0 Then
sShtName = sShtName & " (" & lSht + 1 & ")"
End If
'buat sheet baru
Set sht = Sheets.Add(after:
sht.Name = sShtName
.Activate 'kembali ke sheet template
End With
End Sub
Syarat :
data A1 bertipe datetime. Jika di-input dengan format YYYY-MM-DD, maka
pasti tipe data di A1 adalah datetime.
Wassalam,
Kid.
2012/8/16 <sin.ur4t@yahoo.
> **
>
>
> Makasih pak karnadi pencerahannya sangat bermanfaat utk diterapkan pd
> kasus yg saya hadapi..
> maaf ternyata msh ada masalah yg tadinya tdk terfikirkan.
> Jika sebuah sheet sdh terbentuk (misal: sheet medan010712) lalu kita
> bentuk lagi sheet yg sama, maka akan muncul pesan error(debug?
> sheet tsb sdh ada sblmnya.
>
> Jika hal seperti itu terjadi, saya ingin sheet yg terbaru itu dinamai
> medan010712(
> tsb dikopi secara manual.
>
> Bgmn tambahan makronya pak?? Mohon dicerahkan lagi, trm ksh sblmnya.
>
>
> Salam
> Sinurat-sumut
> Powered by Telkomsel BlackBerry®
> ------------
> *From: * hendrik karnadi <hendrikkarnadi@
> *Sender: * belajar-excel@
> *Date: *Wed, 15 Aug 2012 08:13:28 -0700 (PDT)
> *To: *belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] Makro - Memberi Nama Sheet Baru
>
> Dengan isi sel A1 dan Sel A2 seperti dalam soal, masih perlu dibuat satu
> sel(mis. A3) untuk menggabungkan sel A1 dan A2.
> Sel A3 berisi function sbb:
> =LEFT(A2,FIND(
>
> Kemudian buat macro sbb:
> Sub ShBaru()
> Sheets.Add
> ActiveSheet.
> End Sub
>
> Salamat mencoba.
>
> Salam,
> Hendrik Karnadi
>
> ------------
> *From:* "sin.ur4t@yahoo.
> *To:* Belajar Excel <belajar-excel@
> *Sent:* Wednesday, 15 August 2012, 16:54
> *Subject:* [belajar-excel] Makro - Memberi Nama Sheet Baru
>
> Salam exceler..
> Para pakar/rekan2 milis, bagaimana cara membuat sheet baru dan memberi
> nama sheet tsb merujuk kpd sebagian isi dari sel tertentu, menggunakan
> makro??
>
> Misalkan pada suatu sheet:
> Sel A1 berisi tanggal --> 17 agustus 2012
> Sel A2 berisi lokasi --> medan-sumut (sel ini selalu berisi nama kota dan
> propinsi yg dipisahkan dgn tanda penghubung "-").
>
> Bgmn makro utk membuat sheet baru dan memberinya nama "medan170812"
> (Pola penamaan sheet --> nama kota dari sel A2, digabungkan dgn dua digit
> tanggal, dua digit bulan, dan dua digit tahun dari sel A1)..
>
> mohon dicerahkan, trm ksh sblmnya.. :)
>
> Wassalam
> Sinurat-sumut
> Powered by Telkomsel BlackBerry®
>
> ------------
>
> ------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-
>
> posting ke milis, kirimkan ke:
> belajar-excel@
>
> berkunjung ke web milis
> http://tech.
>
> melihat file archive / mendownload lampiran
> http://www.mail-
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-
>
> menghubungi moderators & owners: belajar-excel-
>
> keluar dari membership milis (UnSubscribe)
> kirim mail kosong ke belajar-excel-
> ------------
> Groups Links
>
>
>
>
>
>
>
Thu Aug 16, 2012 12:04 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
File terlampir memanfaatkan sebuah kolom key.
Wassalam,
Kid.
2012/8/15 Md Switra <mswitra@yahoo.com >
> **
>
>
> Salam untuk suhu excel semua.
>
> Saya ingin belajar membuat data secara vertikal dari data tabel yang
> horisontal. Dimana data yang ingin saya rubah memiliki lebih dari 1 data,
> seperti file yang sudah saya lampirkan.
>
> Saya menemui kesulitan untuk menyelesaikan permasalahan ini. Saya sudah
> mencoba menggunakan formula Vlookup, tetapi belum bisa seperti saya
> harapkan.
>
> Mohon bantuannya. Terima Kasih.
>
>
>
>
Wassalam,
Kid.
2012/8/15 Md Switra <mswitra@yahoo.
> **
>
>
> Salam untuk suhu excel semua.
>
> Saya ingin belajar membuat data secara vertikal dari data tabel yang
> horisontal. Dimana data yang ingin saya rubah memiliki lebih dari 1 data,
> seperti file yang sudah saya lampirkan.
>
> Saya menemui kesulitan untuk menyelesaikan permasalahan ini. Saya sudah
> mencoba menggunakan formula Vlookup, tetapi belum bisa seperti saya
> harapkan.
>
> Mohon bantuannya. Terima Kasih.
>
>
>
>
Fri Aug 17, 2012 8:11 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Coba file terlampir.
Nama dropdown jenis form control object adalah myDropDown.
Event worksheet change :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lCtlNew As Long
Dim shp As Shape
Dim rngShp As Range
Application.EnableEvents = False
'turn off opsi event boleh aktif
lCtlNew = ActiveSheet.Shapes.Count - Range("e1").Value
'jumlah shape baru (shape apa saja)
If lCtlNew > 0 Then
'cek ada shape yang baru
For Each shp In ActiveSheet.Shapes
'loop setiap shape
If shp.FormControlType = xlDropDown Then
'cek tipe form control
If InStr(LCase$(shp.Name), "mydropdown") <> 0 Then
'cek berdasar namanya
Set rngShp = shp.TopLeftCell
'simpan topleftcell dari si shape
If rngShp.Column = 5 Then
'cek kolom rangenya
'set linkedcell (ole format link)
'karena posisi topleftcell tidak pada baris yang
sama dengan linked cell
'maka perlu offset baris
shp.OLEFormat.Object.LinkedCell = rngShp.Offset(1,
1).Address(False, False)
End If
End If
End If
Next shp
End If
Range("e1").Value = ActiveSheet.Shapes.Count
'simpan jumlah shape
Application.EnableEvents = True
'turn on opsi event boleh aktif
End Sub
Wassalam,
Kid.
2012/8/16 neza ibaneza <nezaibaneza@yahoo.co.id >
> **
>
>
> ok thanks untuk dwint r, mungkin ada koment dari master excel yg lain...
>
> ditunggu..
>
> salam
> neza
>
> ------------------------------
> *Dari:* dwint ruswanto <dwint.ruswanto@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 16 Agustus 2012 12:03
>
> *Judul:* Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang
> ikut berubah
>
>
>
> hai neza,
>
> jika tetap ingin memakai ComboBox, satu-satunya cara adalah menggunakan
> VBA, berhubung saya masih dalam tahap belajar tentang macro dan pengetahuan
> saya tentang cara mengambil komponen ActiveX Object ke worksheet belum
> memadai.. jadi untuk kasus ini saya nyerah dulu.. PR untuk saya..
>
> kita tunggu saja solusi dari para master di Millis ini.. ^_^ ==> ini akan
> menjadi ilmu baru bagi saya juga :-))
>
> wassalam,
>
> -dwint-
>
> Pada 16 Agustus 2012 07:25, neza ibaneza <nezaibaneza@yahoo.co.id >menulis:
>
> **
>
> dear dwint,
>
> apakah untuk pertnyaan awal saya g ada pemecahannya... khusus ke ComboBox
> saja..
>
> salam
> Neza
>
> ------------------------------
> *Dari:* dwint ruswanto <dwint.ruswanto@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 15 Agustus 2012 15:43
>
> *Judul:* Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang
> ikut berubah
>
>
>
> Untuk mencegah hal tersebut, coba non aktifkan fitur "Enable fill handle
> and cell drag-and-drop"
>
> Fitur ini bisa diakses melalui Excel Option >> Advance, setelah itu protek
> worksheet dengan menggunakan password.
>
> wassalam,
>
> -dwint-
>
> Pada 15 Agustus 2012 14:29, neza ibaneza <nezaibaneza@yahoo.co.id >menulis:
>
> **
>
> Hi, Dwint Ruswanto,
> Saya sudah pikir kesitu juga, tp kelebihan dari ComboBox adalah outputnya
> akan tetap sama walauppun kita timpa dengan angka lain
>
> Salam
> Neza
> ------------------------------
> *Dari:* dwint ruswanto <dwint.ruswanto@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 15 Agustus 2012 15:05
> *Judul:* Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang
> ikut berubah
>
>
>
> hai Neza,
>
> bagaimana kalo combo boxnya diganti dengan Data Validation.. prinsip
> kerjanya serupa yaitu user akan memilih Kode Gudang menggunakan drop down
> list,
> untuk mengambil Nama barang bisa menggunakan VLookUp
>
> hasilnya nanti bisa dicopy ke baris yang lain sesuai dengan keinginan
> tanpa harus mengubah linked Cell, karena Data validation ini tidak memiliki
> linked cell
>
> silakan lihat di lampiran
>
> wassalam,
>
> -dwint-
>
> Pada 15 Agustus 2012 13:31, neza ibaneza <nezaibaneza@yahoo.co.id >menulis:
>
> **
>
> Dear all, Be-Excel
>
> Baru nongol lagi nih...
> Saya punya sedikit masalah seperti lampiran, (membuat linkedcell output
> ComboBox berubah sesuai jajaran cell penempatannya)
> mohon pencerahannya... karena membuka satu persatu ComboBox dan mengubah
> linkedcellnya sangat ribet, apalagi jika dah masuk ratusan copy..
>
> Salam
> Neza
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Nama dropdown jenis form control object adalah myDropDown.
Event worksheet change :
Private Sub Worksheet_Change(
Dim lCtlNew As Long
Dim shp As Shape
Dim rngShp As Range
Application.
'turn off opsi event boleh aktif
lCtlNew = ActiveSheet.
'jumlah shape baru (shape apa saja)
If lCtlNew > 0 Then
'cek ada shape yang baru
For Each shp In ActiveSheet.
'loop setiap shape
If shp.FormControlType = xlDropDown Then
'cek tipe form control
If InStr(LCase$
'cek berdasar namanya
Set rngShp = shp.TopLeftCell
'simpan topleftcell dari si shape
If rngShp.Column = 5 Then
'cek kolom rangenya
'set linkedcell (ole format link)
'karena posisi topleftcell tidak pada baris yang
sama dengan linked cell
'maka perlu offset baris
shp.OLEFormat.
1).Address(False, False)
End If
End If
End If
Next shp
End If
Range("e1").
'simpan jumlah shape
Application.
'turn on opsi event boleh aktif
End Sub
Wassalam,
Kid.
2012/8/16 neza ibaneza <nezaibaneza@
> **
>
>
> ok thanks untuk dwint r, mungkin ada koment dari master excel yg lain...
>
> ditunggu..
>
> salam
> neza
>
> ------------
> *Dari:* dwint ruswanto <dwint.ruswanto@
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 16 Agustus 2012 12:03
>
> *Judul:* Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang
> ikut berubah
>
>
>
> hai neza,
>
> jika tetap ingin memakai ComboBox, satu-satunya cara adalah menggunakan
> VBA, berhubung saya masih dalam tahap belajar tentang macro dan pengetahuan
> saya tentang cara mengambil komponen ActiveX Object ke worksheet belum
> memadai.. jadi untuk kasus ini saya nyerah dulu.. PR untuk saya..
>
> kita tunggu saja solusi dari para master di Millis ini.. ^_^ ==> ini akan
> menjadi ilmu baru bagi saya juga :-))
>
> wassalam,
>
> -dwint-
>
> Pada 16 Agustus 2012 07:25, neza ibaneza <nezaibaneza@
>
> **
>
> dear dwint,
>
> apakah untuk pertnyaan awal saya g ada pemecahannya.
> saja..
>
> salam
> Neza
>
> ------------
> *Dari:* dwint ruswanto <dwint.ruswanto@
> *Kepada:* belajar-excel@
> *Dikirim:* Rabu, 15 Agustus 2012 15:43
>
> *Judul:* Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang
> ikut berubah
>
>
>
> Untuk mencegah hal tersebut, coba non aktifkan fitur "Enable fill handle
> and cell drag-and-drop"
>
> Fitur ini bisa diakses melalui Excel Option >> Advance, setelah itu protek
> worksheet dengan menggunakan password.
>
> wassalam,
>
> -dwint-
>
> Pada 15 Agustus 2012 14:29, neza ibaneza <nezaibaneza@
>
> **
>
> Hi, Dwint Ruswanto,
> Saya sudah pikir kesitu juga, tp kelebihan dari ComboBox adalah outputnya
> akan tetap sama walauppun kita timpa dengan angka lain
>
> Salam
> Neza
> ------------
> *Dari:* dwint ruswanto <dwint.ruswanto@
> *Kepada:* belajar-excel@
> *Dikirim:* Rabu, 15 Agustus 2012 15:05
> *Judul:* Re: [belajar-excel] copy ComboBox dengan linkedcell ouput yang
> ikut berubah
>
>
>
> hai Neza,
>
> bagaimana kalo combo boxnya diganti dengan Data Validation.. prinsip
> kerjanya serupa yaitu user akan memilih Kode Gudang menggunakan drop down
> list,
> untuk mengambil Nama barang bisa menggunakan VLookUp
>
> hasilnya nanti bisa dicopy ke baris yang lain sesuai dengan keinginan
> tanpa harus mengubah linked Cell, karena Data validation ini tidak memiliki
> linked cell
>
> silakan lihat di lampiran
>
> wassalam,
>
> -dwint-
>
> Pada 15 Agustus 2012 13:31, neza ibaneza <nezaibaneza@
>
> **
>
> Dear all, Be-Excel
>
> Baru nongol lagi nih...
> Saya punya sedikit masalah seperti lampiran, (membuat linkedcell output
> ComboBox berubah sesuai jajaran cell penempatannya)
> mohon pencerahannya.
> linkedcellnya sangat ribet, apalagi jika dah masuk ratusan copy..
>
> Salam
> Neza
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
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