Blog ini berisi Tutorial Excel dalam bentuk Video Baik formula, Macro /VBA maupun Fungsi Terapan
Support :
Creating Website | Johny Template | Mas Template
Copyright © 2011. Tutorial Excel Indonesia - All Rights Reserved
Copyright © 2011. Tutorial Excel Indonesia - All Rights Reserved
+ komentar + 8 komentar
ditunggu tutorial selanjutnya pakk, biar kami tidak nanggung belajarnya
mudah2an ilmunya makin bermanpaat & rizkinya makin lancar
ditunggu tutorial selanjutnya pakk, biar kami tidak nanggung belajarnya
mudah2an ilmunya makin bermanpaat & rizkinya makin lancar
mas arie help mas...
saya sudah ikut langkah dari mas yang selama ini ada...
nah saya ingin di combobox ini terhubung ke database excel yang ada bisakah?
karena apabila saya add satu persatu maka akan sangat-sangat lama dikarenakan banyaknya DB.
bisakah dari data base saya split jadi 3 menjadi...
misal dari index nomer keluar nama dan usia?
mohon maaf terimaksaih sebelumnya....
Terima kasih atas semua tutorialnya Pak
Tutorial ini sangat membantu saya dalam mempelajari excel
kalo bisa tolong upload accessories user formnya pak atau kirim ke email saya : ariedian2013@gmail.com
Terima kasih
Selamat Siang Pak,
Ma'af saya mau tanya, saya ada kendala di penomoran otomatis
ini error handlingnya dari vba
Run-time Error'424':
Object required
setelah saya klik debug ternyata dibaris ini yang error...
Set BarisAwal = Database.Range("A1").CurrentRegion
Mohon bantuannya, Terima Kasih
ini Sript saya
Private Sub Cmd_Tambah_Click()
Dim Hamid As Long
Dim BarisAwal As Range, BarisAkhir As Long, x As Long
Worksheets("Database").Activate
Hamid = WorksheetFunction.CountA(Range("A:A")) + 1
Set BarisAwal = Database.Range("A1").CurrentRegion
BarisAkhir = BarisAwal.Rows.Count
Hamid = BarisAkhir + 1
Cells(Hamid, 1).Value = Hamid - 1
Cells(Hamid, 2).Value = Txt_Kode_Barang.Value
Cells(Hamid, 3).Value = Txt_Nama_Barang.Value
Cells(Hamid, 4).Value = Txt_Jumlah.Value
Cells(Hamid, 5).Value = Txt_Harga.Value
If Op_Type_A.Value = True Then
Cells(Hamid, 7).Value = "Barang Type A"
ElseIf Op_Type_B.Value = True Then
Cells(Hamid, 7).Value = "Barang Type B"
ElseIf Op_Type_C.Value = True Then
Cells(Hamid, 7).Value = "Barang Type C"
Else
Cells(Hamid, 7).Value = "Barang Type D"
End If
Call Bersihkan_Data
End Sub
Selamat Siang Pak,
Ma'af saya mau tanya, saya ada kendala dengan penomoran otomatis vba excel dengan error handling sebagai berikut
Run-time Error'424':
Object required
setelah saya klik debug ternyata dibaris ini yang error...
Set BarisAwal = Database.Range("A1").CurrentRegion
Mohon bantuannya, Terima Kasih
ini Sript saya
Private Sub Cmd_Tambah_Click()
Dim Hamid As Long
Dim BarisAwal As Range, BarisAkhir As Long, x As Long
Worksheets("Database").Activate
Hamid = WorksheetFunction.CountA(Range("A:A")) + 1
Set BarisAwal = Database.Range("A1").CurrentRegion
BarisAkhir = BarisAwal.Rows.Count
Hamid = BarisAkhir + 1
Cells(Hamid, 1).Value = Hamid - 1
Cells(Hamid, 2).Value = Txt_Kode_Barang.Value
Cells(Hamid, 3).Value = Txt_Nama_Barang.Value
Cells(Hamid, 4).Value = Txt_Jumlah.Value
Cells(Hamid, 5).Value = Txt_Harga.Value
If Op_Type_A.Value = True Then
Cells(Hamid, 7).Value = "Barang Type A"
ElseIf Op_Type_B.Value = True Then
Cells(Hamid, 7).Value = "Barang Type B"
ElseIf Op_Type_C.Value = True Then
Cells(Hamid, 7).Value = "Barang Type C"
Else
Cells(Hamid, 7).Value = "Barang Type D"
End If
Call Bersihkan_Data
End Sub
Luar biasa mas triii.. saya sangat berterima kasih atas apa yang mas tri lakukan buat mencerdaskan anak bangsa ini.. salam saluuuutt mas tri
Post a Comment