[belajar-excel] edit data tabel induk dan tabel anak

classic Classic list List threaded Threaded
11 messages Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] edit data tabel induk dan tabel anak

ahmadzidanealfarizy
Dear Master
 mohon bantuannya master
 saya ada 2 buah sheet sebagai penyimpanan data yang diinput melalui user form yaitu :
 1.tabelinduk
 2.tabelanak
 pada saat entri pada form spt dan spd maka data akan tersimpan kedalam kedua tabel tersebut dengan referensi kode nomor spt.
 

 Permasalahannya :
 bagaimanakah code vba pada form edit spt data yang terubah pada tabelinduk maka pada tabelanak juga akan ikut terupdate.
 dari code yang saya buat pd tabel anak hanya 1 record saja yg bisa terubah sedangkan data yg memiliki kode nomor spt yg sama ada beberapa record.
 

 berikut contoh form saya lampirkan

 mohon pencerahaannya master
 trims
 

 Heru

 

 --- momod ---
 File lampiran dilepas dari email karena lebih dari 250KB
 ----------------


Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Re: edit data tabel induk dan tabel anak

ahmadzidanealfarizy
mohon maaf admin file hanya bisa terpangkas menjadi 550 kb
 untuk file contoh masalah bisa di unduh di
 https://drive.google.com/file/d/1EOmy-11D26MwRgc43HgLfMdaedMCckx3/view?usp=sharing https://drive.google.com/file/d/1EOmy-11D26MwRgc43HgLfMdaedMCckx3/view?usp=sharing

 

Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Re: edit data tabel induk dan tabel anak

ahmadzidanealfarizy
In reply to this post by ahmadzidanealfarizy
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] edit data tabel induk dan tabel anak [1 Attachment]

hendrik karnadi
In reply to this post by ahmadzidanealfarizy
 Coba cek bagian ini (sptnya jalan di tempat) :


Salam,HK

    On Tuesday, 10 July 2018, 12:57:35 PM GMT+7, [hidden email] [belajar-excel] <[hidden email]> wrote:  
 
    

Dear Mastermohon bantuannya mastersaya ada 2 buah sheet sebagai penyimpanan data yang diinput melalui user form yaitu :1.tabelinduk2.tabelanakpada saat entri pada form spt dan spd maka data akan tersimpan kedalam kedua tabel tersebut dengan referensi kode nomor spt.
Permasalahannya :bagaimanakah code vba pada form edit spt data yang terubah pada tabelinduk maka pada tabelanak juga akan ikut terupdate.dari code yang saya buat pd tabel anak hanya 1 record saja yg bisa terubah sedangkan data yg memiliki kode nomor spt yg sama ada beberapa record.
berikut contoh form saya lampirkan
mohon pencerahaannya mastertrims
Heru

--- momod ---File lampiran dilepas dari email karena lebih dari 250KB----------------    

1531217281010blob.jpg (37K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] edit data tabel induk dan tabel anak

ahmadzidanealfarizy
Benar sekali pak hendrik, syntax tersebut jalan ditempat, pada saat dilakukan edit data pada form edit, pada sheet datainduk bisa berubah, sedangkan pada tabel anak hanya baris pertama yg memiliki kode kunci dari sheet data induk yg ikut terubah sedangkan baris kedua dan selanjutnya yg memiliki kode kunci yang sama tidak berubah. udah cari2 referensi masih belum menemukan caranya pak .

 Apakah harus menggunakan fungsi vlookup untuk merujuk kode kuci tersebut dan bagaimana syntaxnya ya pak??

 

 Terima Kasih
 Heru

 

 

Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] edit data tabel induk dan tabel anak

hendrik karnadi
 Hai Heru,Coba uraikan dahulu langkah2 manualnya (pinjam istilah Mr. Kid - bhs manusianya) kemudian cek loopingnya (sekian kaii, sesuai dengan jumlah baris untuk setiap "kodeSPT" pada tabel anak).
Salam,HK

    On Wednesday, 11 July 2018, 9:28:25 AM GMT+7, ahmadzidanealfarizy@gmail..com [belajar-excel] <[hidden email]> wrote:  
 
    

Benar sekali pak hendrik, syntax tersebut jalan ditempat, pada saat dilakukan edit data pada form edit, pada sheet datainduk bisa berubah, sedangkan pada tabel anak hanya baris pertama yg memiliki kode kunci dari sheet data induk yg ikut terubah sedangkan baris kedua dan selanjutnya yg memiliki kode kunci yang sama tidak berubah. udah cari2 referensi masih belum menemukan caranya pak .
Apakah harus menggunakan fungsi vlookup untuk merujuk kode kuci tersebut dan bagaimana syntaxnya ya pak??

Terima KasihHeru

 
   
Reply | Threaded
Open this post in threaded view
|

Fw: Re: [belajar-excel] edit data tabel induk dan tabel anak

hendrik karnadi
 Kalau mau tanpa looping bisa gunakan resize, seperti berikut ini,With Worksheets("tabelanak").Range("B3:B100")                     '<<<< diedit,Set c = .Find(kodeSPT, LookIn:=xlValues)If Not c Is Nothing ThenFor xx = 1 To 3baris = c.Row + 1Worksheets("tabelanak").Cells(baris, 2).Value = tbnospt.ValueWorksheets("tabelanak").Cells(baris, 10).Value = tbberangkat.ValueWorksheets("tabelanak").Cells(baris, 11).Value = tbtujuan.ValueWorksheets("tabelanak").Cells(baris, 12).Value = tbtglpergi.ValueWorksheets("tabelanak").Cells(baris, 13).Value = tbtglpulang.ValueWorksheets("tabelanak").Cells(baris, 14).Value = tblamanya.ValueWorksheets("tabelanak").Cells(baris, 15).Value = cbanggaran.ValueWorksheets("tabelanak").Cells(baris, 16).Value = tbmaksud.Value
NextEnd IfEnd With




   ----- Forwarded message ----- From: hendrik karnadi hendrikkarnadi@yahoo..com [belajar-excel] <[hidden email]>To: [hidden email] [belajar-excel] <[hidden email]>Sent: Wednesday, 11 July 2018, 9:48:18 AM GMT+7Subject: Re: [belajar-excel] edit data tabel induk dan tabel anak
    

 Hai Heru,Coba uraikan dahulu langkah2 manualnya (pinjam istilah Mr. Kid - bhs manusianya) kemudian cek loopingnya (sekian kaii, sesuai dengan jumlah baris untuk setiap "kodeSPT" pada tabel anak).
Salam,HK

    On Wednesday, 11 July 2018, 9:28:25 AM GMT+7, ahmadzidanealfarizy@gmail..com [belajar-excel] <[hidden email]> wrote:  
 
    

Benar sekali pak hendrik, syntax tersebut jalan ditempat, pada saat dilakukan edit data pada form edit, pada sheet datainduk bisa berubah, sedangkan pada tabel anak hanya baris pertama yg memiliki kode kunci dari sheet data induk yg ikut terubah sedangkan baris kedua dan selanjutnya yg memiliki kode kunci yang sama tidak berubah. udah cari2 referensi masih belum menemukan caranya pak .
Apakah harus menggunakan fungsi vlookup untuk merujuk kode kuci tersebut dan bagaimana syntaxnya ya pak??

Terima KasihHeru

 
       
Reply | Threaded
Open this post in threaded view
|

Fw: Re: [belajar-excel] edit data tabel induk dan tabel anak

hendrik karnadi
 Maaf, sdh lgs sent....
Baris yang merah dihilangkan diganti baris2 yang biru.
   ----- Forwarded message ----- From: hendrik karnadi <[hidden email]>To: BeExcel <[hidden email]>Sent: Wednesday, 11 July 2018, 10:21:20 AM GMT+7Subject: Fw: Re: [belajar-excel] edit data tabel induk dan tabel anak
  Kalau mau tanpa looping bisa gunakan resize, seperti berikut ini,
With Worksheets("tabelanak").Range("B3:B100")                     '<<<< diedit,Set c = .Find(kodeSPT, LookIn:=xlValues)If Not c Is Nothing Then
For xx = 1 To 3baris = c.Row + 1
Worksheets("tabelanak").Cells(c.Row, 2).Resize(3,1).Value = tbnospt.Value
Worksheets("tabelanak").Cells(c.Row, 10).Resize(3,1).Value = tbberangkat.ValueWorksheets("tabelanak").Cells(c.Row, 11).Resize(3,1).Value = tbtujuan.ValueWorksheets("tabelanak").Cells(c.Row, 12).Resize(3,1).Value = tbtglpergi.ValueWorksheets("tabelanak").Cells(c.Row, 13).Resize(3,1).Value = tbtglpulang.ValueWorksheets("tabelanak").Cells(c.Row, 14).Resize(3,1).Value = tblamanya.ValueWorksheets("tabelanak").Cells(c.Row, 15).Resize(3,1).Value = cbanggaran.ValueWorksheets("tabelanak").Cells(c.Row, 16).Resize(3,1)..Value = tbmaksud.Value
'Worksheets("tabelanak").Cells(baris, 2).Value = tbnospt.Value'Worksheets("tabelanak").Cells(baris, 10).Value = tbberangkat.Value'Worksheets("tabelanak").Cells(baris, 11).Value = tbtujuan.Value'Worksheets("tabelanak").Cells(baris, 12).Value = tbtglpergi.Value'Worksheets("tabelanak").Cells(baris, 13).Value = tbtglpulang.Value'Worksheets("tabelanak").Cells(baris, 14).Value = tblamanya.Value'Worksheets("tabelanak").Cells(baris, 15).Value = cbanggaran.Value'Worksheets("tabelanak").Cells(baris, 16).Value = tbmaksud.Value
Next
End IfEnd With
Salam,HK

   ----- Forwarded message ----- From: hendrik karnadi hendrikkarnadi@yahoo..com [belajar-excel] <[hidden email]>To: [hidden email] [belajar-excel] <[hidden email]>Sent: Wednesday, 11 July 2018, 9:48:18 AM GMT+7Subject: Re: [belajar-excel] edit data tabel induk dan tabel anak
    

 Hai Heru,Coba uraikan dahulu langkah2 manualnya (pinjam istilah Mr. Kid - bhs manusianya) kemudian cek loopingnya (sekian kaii, sesuai dengan jumlah baris untuk setiap "kodeSPT" pada tabel anak).
Salam,HK

    On Wednesday, 11 July 2018, 9:28:25 AM GMT+7, ahmadzidanealfarizy@gmail..com [belajar-excel] <[hidden email]> wrote:  
 
    

Benar sekali pak hendrik, syntax tersebut jalan ditempat, pada saat dilakukan edit data pada form edit, pada sheet datainduk bisa berubah, sedangkan pada tabel anak hanya baris pertama yg memiliki kode kunci dari sheet data induk yg ikut terubah sedangkan baris kedua dan selanjutnya yg memiliki kode kunci yang sama tidak berubah. udah cari2 referensi masih belum menemukan caranya pak .
Apakah harus menggunakan fungsi vlookup untuk merujuk kode kuci tersebut dan bagaimana syntaxnya ya pak??

Terima KasihHeru

 
         
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] edit data tabel induk dan tabel anak

Sony Ario
In reply to this post by ahmadzidanealfarizy
Hai Heru,

Maaf saya cuma mau ikut kasih pendapat. Terus terang saya belum coba. Tapi
kelihatan nya si logika nya bisa ya ? Kalau misalnya ditambahkan 1 Sheet
baru, katakanlah TabelGabungan. Tabelinduk dan TabelAnak di link dengan
menggunakan MS Query (atau mungkin PowerQuery), dan hasilnya di paste di
TabelGabungan gimana ? Jadi tinggal menyisipkan satu prosedur untuk
merefresh TabelGabungan tersebut (Thisworkbook.refreshall) sehingga
perubahan setelah proses input / edit bisa di tampilkan di Userform ?

Itu aja sih.. mungkin para suhu disini punya pendapat lain. Maaf kalau
belum sesuai.

Salam
Sony



On Tue, Jul 10, 2018 at 12:57 PM [hidden email]
[belajar-excel] <[hidden email]> wrote:

>
>
> Dear Master
> mohon bantuannya master
> saya ada 2 buah sheet sebagai penyimpanan data yang diinput melalui user
> form yaitu :
> 1.tabelinduk
> 2.tabelanak
> pada saat entri pada form spt dan spd maka data akan tersimpan kedalam
> kedua tabel tersebut dengan referensi kode nomor spt.
>
> Permasalahannya :
> bagaimanakah code vba pada form edit spt data yang terubah pada tabelinduk
> maka pada tabelanak juga akan ikut terupdate.
> dari code yang saya buat pd tabel anak hanya 1 record saja yg bisa terubah
> sedangkan data yg memiliki kode nomor spt yg sama ada beberapa record.
>
> berikut contoh form saya lampirkan
> mohon pencerahaannya master
> trims
>
> Heru
>
> --- momod ---
> File lampiran dilepas dari email karena lebih dari 250KB
> ----------------
>
>
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Re: edit data tabel induk dan tabel anak

ahmadzidanealfarizy
In reply to this post by hendrik karnadi
wahhhh mantaf Mr.HK...... saya baru belajar vb excel karena rasa ingin coba coba buat aplikasi  biar pekerjaan dikantor bisa terecord dan laporan bisa disuguhkan secepat mungkin bilamana diperlukan. Dan untuk coding sendiri sebenarnya asal comot sana comot sini lalu di gabungin baru dipelajari kembali,  dan untuk fungsi resize saya baru mengetahui bisa digunakan untuk masalah diatas, karena blm tau maksud fungsi resize
 

 sekali lagi Terima Kasih banyak atas bimbingannya @ Mr.HK, Mr.Mr.Sony
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Re: edit data tabel induk dan tabel anak

hendrik karnadi
Awalnya saya juga begitu.....namun kemudian banyak belajar dari milis ini.Resize sering dipakai oleh alm "mbak Siti".Coding "serupa tapi tak sama" pernah dibuat oleh beliau bbrp tahun yang lalu, kalau ndak salah judulnya ctv_find something.
Salam,HK

Sent from Yahoo Mail on Android
 
  On Thu, Jul 12, 2018 at 21:17, [hidden email] [belajar-excel]<[hidden email]> wrote:      
wahhhh mantaf Mr.HK...... saya baru belajar vb excel karena rasa ingin coba coba buat aplikasi  biar pekerjaan dikantor bisa terecord dan laporan bisa disuguhkan secepat mungkin bilamana diperlukan. Dan untuk coding sendiri sebenarnya asal comot sana comot sini lalu di gabungin baru dipelajari kembali, 
dan untuk fungsi resize saya baru mengetahui bisa digunakan untuk masalah diatas, karena blm tau maksud fungsi resize
sekali lagi Terima Kasih banyak atas bimbingannya @ Mr.HK, Mr.Mr.Sony  #yiv1520100645 #yiv1520100645 -- #yiv1520100645ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1520100645 #yiv1520100645ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1520100645 #yiv1520100645ygrp-mkp #yiv1520100645hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1520100645 #yiv1520100645ygrp-mkp #yiv1520100645ads {margin-bottom:10px;}#yiv1520100645 #yiv1520100645ygrp-mkp .yiv1520100645ad {padding:0 0;}#yiv1520100645 #yiv1520100645ygrp-mkp .yiv1520100645ad p {margin:0;}#yiv1520100645 #yiv1520100645ygrp-mkp .yiv1520100645ad a {color:#0000ff;text-decoration:none;}#yiv1520100645 #yiv1520100645ygrp-sponsor #yiv1520100645ygrp-lc {font-family:Arial;}#yiv1520100645 #yiv1520100645ygrp-sponsor #yiv1520100645ygrp-lc #yiv1520100645hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1520100645 #yiv1520100645ygrp-sponsor #yiv1520100645ygrp-lc .yiv1520100645ad {margin-bottom:10px;padding:0 0;}#yiv1520100645 #yiv1520100645actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1520100645 #yiv1520100645activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1520100645 #yiv1520100645activity span {font-weight:700;}#yiv1520100645 #yiv1520100645activity span:first-child {text-transform:uppercase;}#yiv1520100645 #yiv1520100645activity span a {color:#5085b6;text-decoration:none;}#yiv1520100645 #yiv1520100645activity span span {color:#ff7900;}#yiv1520100645 #yiv1520100645activity span .yiv1520100645underline {text-decoration:underline;}#yiv1520100645 .yiv1520100645attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1520100645 .yiv1520100645attach div a {text-decoration:none;}#yiv1520100645 .yiv1520100645attach img {border:none;padding-right:5px;}#yiv1520100645 .yiv1520100645attach label {display:block;margin-bottom:5px;}#yiv1520100645 .yiv1520100645attach label a {text-decoration:none;}#yiv1520100645 blockquote {margin:0 0 0 4px;}#yiv1520100645 .yiv1520100645bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1520100645 .yiv1520100645bold a {text-decoration:none;}#yiv1520100645 dd.yiv1520100645last p a {font-family:Verdana;font-weight:700;}#yiv1520100645 dd.yiv1520100645last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1520100645 dd.yiv1520100645last p span.yiv1520100645yshortcuts {margin-right:0;}#yiv1520100645 div.yiv1520100645attach-table div div a {text-decoration:none;}#yiv1520100645 div.yiv1520100645attach-table {width:400px;}#yiv1520100645 div.yiv1520100645file-title a, #yiv1520100645 div.yiv1520100645file-title a:active, #yiv1520100645 div.yiv1520100645file-title a:hover, #yiv1520100645 div.yiv1520100645file-title a:visited {text-decoration:none;}#yiv1520100645 div.yiv1520100645photo-title a, #yiv1520100645 div.yiv1520100645photo-title a:active, #yiv1520100645 div.yiv1520100645photo-title a:hover, #yiv1520100645 div.yiv1520100645photo-title a:visited {text-decoration:none;}#yiv1520100645 div#yiv1520100645ygrp-mlmsg #yiv1520100645ygrp-msg p a span.yiv1520100645yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1520100645 .yiv1520100645green {color:#628c2a;}#yiv1520100645 .yiv1520100645MsoNormal {margin:0 0 0 0;}#yiv1520100645 o {font-size:0;}#yiv1520100645 #yiv1520100645photos div {float:left;width:72px;}#yiv1520100645 #yiv1520100645photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv1520100645 #yiv1520100645photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1520100645 #yiv1520100645reco-category {font-size:77%;}#yiv1520100645 #yiv1520100645reco-desc {font-size:77%;}#yiv1520100645 .yiv1520100645replbq {margin:4px;}#yiv1520100645 #yiv1520100645ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1520100645 #yiv1520100645ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1520100645 #yiv1520100645ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1520100645 #yiv1520100645ygrp-mlmsg select, #yiv1520100645 input, #yiv1520100645 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1520100645 #yiv1520100645ygrp-mlmsg pre, #yiv1520100645 code {font:115% monospace;}#yiv1520100645 #yiv1520100645ygrp-mlmsg * {line-height:1.22em;}#yiv1520100645 #yiv1520100645ygrp-mlmsg #yiv1520100645logo {padding-bottom:10px;}#yiv1520100645 #yiv1520100645ygrp-msg p a {font-family:Verdana;}#yiv1520100645 #yiv1520100645ygrp-msg p#yiv1520100645attach-count span {color:#1E66AE;font-weight:700;}#yiv1520100645 #yiv1520100645ygrp-reco #yiv1520100645reco-head {color:#ff7900;font-weight:700;}#yiv1520100645 #yiv1520100645ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1520100645 #yiv1520100645ygrp-sponsor #yiv1520100645ov li a {font-size:130%;text-decoration:none;}#yiv1520100645 #yiv1520100645ygrp-sponsor #yiv1520100645ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1520100645 #yiv1520100645ygrp-sponsor #yiv1520100645ov ul {margin:0;padding:0 0 0 8px;}#yiv1520100645 #yiv1520100645ygrp-text {font-family:Georgia;}#yiv1520100645 #yiv1520100645ygrp-text p {margin:0 0 1em 0;}#yiv1520100645 #yiv1520100645ygrp-text tt {font-size:120%;}#yiv1520100645 #yiv1520100645ygrp-vital ul li:last-child {border-right:none !important;}#yiv1520100645