Jumat, 21 Juni 2013

]] XL-mania [[ Digest Number 2618

7 New Messages

Digest #2618
1
Create Sheet dgn nama sesuai aturan by "Heru Wibowo" heru.wibowo4456
2a
2b
Bls: ]] XL-mania [[ Input huruf kecil, hasil HURUF BESAR by "Lucky Ferbiansah" lucky.ferbiansah
3a
4
Query SUM SQL pada VBA by "aditia nugraha"
6
[ask] excel error by "Marthien_MKT"

Messages

Thu Jun 20, 2013 4:14 am (PDT) . Posted by:

"Heru Wibowo" heru.wibowo4456

Salam sejahtera,

Dear All,

Bagaimana yah makro untuk membuat secara otomatis format HeadValidasi
(Colom B) dengan format seperti contoh (Mg-ddmmyyyy) ? dan dari format
tersebut digunakan untuk menambah sheet dengan nama format sesuai dari
kolom HeadValidasi ?

alur kerjanya sbb:

1. Klik tombol create sheet

2. Karena ada aksi klik tombol create sheet, maka akan membuat value/nilai
baru di kolom HeadValidasi (Kolom B)

3. Setelah membuat value baru di kolom HeadValidasi, maka otomatis akan
membuat sheet baru dengan nama sesuai format nilai/value dari kolom
HeadValidasi tersebut.

4.Jika nama Sheet sudah ada maka tidak akan membuat value baru dan sheet
baru...cukup muncul pesan "sheet sudah ada".

5.Jika akan menuju/membuka sheet cukup dengan memilih dari sel E1

6.Sheet lain selain yang dipilih dan sheet data otomatis dalam keadaan
hidden.

Demikian, mohon bantuan solusi dari Rekan-Rekan.

Atas bantuannya diucapkan terima kasih.

Salam,
Heru W

Thu Jun 20, 2013 4:42 am (PDT) . Posted by:

"Saifudin Mnp" saifmnp@ymail.com

Dear Helmi,
'
Private Sub worksheet_change(ByVal i As Range)
i = Ucase(i)
End Sub

Sebaiknya range dibatasi agar tidak overlap ke mana2.
Misalnya kolom tempat input di kolom C, maka

Private Sub worksheet_change(ByVal i As Range)
    If i.Column = 3 Then
        i = Ucase(i)
    End If
End Sub

smoga sesuai

________________________________
Dari: Helmi <helmi.baras@yahoo.co.id>
Kepada: XL-mania@yahoogroups.com
Dikirim: Kamis, 20 Juni 2013 11:18
Judul: ]] XL-mania [[ Input huruf kecil, hasil HURUF BESAR


 
To XL-Mania
bagaimana cara atau rumus jika kita input nama pegawai dengan huruf kecil (tanpa Caps Lock), ttp tersimpan menjadi hurup besar semua, contoh :
Input : hasanuddin
Tersimpan : HASANNUDIN.
Inputnya melalui macro office 2003.
Makasih sebelumnya

Thu Jun 20, 2013 4:52 am (PDT) . Posted by:

"Lucky Ferbiansah" lucky.ferbiansah

Dear Helmi,

coba ketikan code ini di macro di sheet yg kamu inginkan
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If Not .HasFormula Then
        .Value = UCase(.Value)
    End If
End With
End Sub

semoga dapat membantu kamu.

thank's
Lucki

________________________________
Dari: Helmi <helmi.baras@yahoo.co.id>
Kepada: XL-mania@yahoogroups.com
Dikirim: Kamis, 20 Juni 2013 11:18
Judul: ]] XL-mania [[ Input huruf kecil, hasil HURUF BESAR


 
To XL-Mania
bagaimana cara atau rumus jika kita input nama pegawai dengan huruf kecil (tanpa Caps Lock), ttp tersimpan menjadi hurup besar semua, contoh :
Input : hasanuddin
Tersimpan : HASANNUDIN.
Inputnya melalui macro office 2003.
Makasih sebelumnya

Thu Jun 20, 2013 4:43 am (PDT) . Posted by:

"Rusdiyanto, Nicodemus"

P'Helmi,

Bapak bisa menggunakan perintah "ucase", contohnya;

Private Sub tbRemark_AfterUpdate()

Range("Nama").Value = UCase(Range("Nama").Value)

End Sub

Thanks in advance,

Nico

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On
Behalf Of Helmi
Sent: Thursday, June 20, 2013 11:18 AM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ Input huruf kecil, hasil HURUF BESAR

To XL-Mania
bagaimana cara atau rumus jika kita input nama pegawai dengan huruf
kecil (tanpa Caps Lock), ttp tersimpan menjadi hurup besar semua, contoh
:
Input : hasanuddin
Tersimpan : HASANNUDIN.
Inputnya melalui macro office 2003.
Makasih sebelumnya

Thu Jun 20, 2013 4:55 am (PDT) . Posted by:

"aditia nugraha"

Akang-akang XLer

sayah ingin menanyakan bagaimana query SQL untuk SUm suatu kolom pada
table.
misalkan saya punya table_transaksi yang mempunyai kolom jumlah barang.

selanjutnya saya ingin menjumlahkan total barang dengan kode 702007 dengan
fungsi SQL yang selanjutnya akan di simpan di Textbox1.

saya coba coba dengan kode di bawah sih error terus, mungkin ada yang bisa
bantu permasalahan saya ?

Sub proTotalStock()

Dim StrTotalStock As String
Dim StrTotalStockRequest As New ADODB.Recordset
StrTotalStockRequest = "SELECT Sum(JumlahBarang) FROM Tabel_transaksi " & "
Where Codebarang = '" & 702007 & "'"
Set StrTotalStockRequest = cnDBSparepart.Execute(StrTotalStock, , adCmdText)
With StrTotalStockRequest
TextBox1 = StrTotalStock

End Sub

terimaksih

aditia

Thu Jun 20, 2013 5:16 am (PDT) . Posted by:

"Junizar Halim"

Dear pakar XL

Bagaimana ya cara nya utk saya bisa memindahkan isi dari cell ke cell
lainnya secara macro

contohnya.

Cursor saya sekarang di B5 dan content di B5 adalah "iwan".
Saya mo memunculkan kata "iwan" ini ke cell Z5 setelah tombol macro di
eksekusi
Demikian seterusnya , setiap saya pindah cell, dan pencet tombol, maka
kata-kata di cell tersebut muncul di Z5.

atau adakah cara yang bukan macro utk memindahkan... saya lagi pikir bisa
ndak ya...

sangat -sangat berterima kasih utk yang bisa kasih saran...

tolong di cc juga ya please ke email saya yang lainnya.

Regards

Thu Jun 20, 2013 10:58 pm (PDT) . Posted by:

"Marthien_MKT"

Pagi,

Mohon bantuannya,

Tiap saya buka excel selalu muncul :

Dan,

Recent file di taskbar tidak muncul.

Ada solusikah?

Best Regards & Thank You

Marthien

_____

Description: Description: barcode email marthien

" Do all the goods you can, All the best you can, In all times you can, In
all places you can, For all the creatures you can..."

GROUP FOOTER MESSAGE
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Maaf moderasi terlambat karena yahoogroups sering error           |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
Diposting oleh EXCEL FEED LEARNING di 02.49

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)