[belajar-excel] Digest Number 1617

Milis Belajar Microsoft Excel

Messages In This Digest (19 Messages)

1a.

Setting akhir hasil Pivot Tabel From: Bastian Margolang

1b.

Re: Setting akhir hasil Pivot Tabel From: Kid Mr.

2a.

hitung jml bulan dg kriteria From: Absolute - Udin

2b.

Re: hitung jml bulan dg kriteria From: Rara Wilis

3a.

Re: run makro terhenti krn klik mouse From: Markonah

3b.

Re: run makro terhenti krn klik mouse From: Reza F

3c.

Re: run makro terhenti krn klik mouse From: slametharto@gmail.com

3d.

Re: run makro terhenti krn klik mouse From: Reza F

4a.

Hasil Optimasi From: Hadi Sukisno

4b.

Re: Hasil Optimasi From: Rara Wilis

4c.

Re: Hasil Optimasi From: Rara Wilis

4d.

Re: Hasil Optimasi From: Kid Mr.

5a.

44010132114 menjadi 32114 From: Indra JB

5b.

Re: 44010132114 menjadi 32114 From: Kid Mr.

5c.

Re: 44010132114 menjadi 32114 From: Rara Wilis

6a.

memisahkan data yang sama From: depi Hariyanto

6b.

Re: memisahkan data yang sama From: dwint ruswanto

6c.

Re: memisahkan data yang sama From: Kid Mr.

7a.

Bls: [belajar-excel] memindahan nomor yang sama ke sheet lain From: depi Hariyanto

View All Topics | Create New Topic

Messages

1a.

Setting akhir hasil Pivot Tabel

Posted by: "Bastian Margolang" margolang.bastian@gmail.com   bastian.psp13

Thu May 17, 2012 6:33 am (PDT)

Salam excel

Mohon bantuannya untuk setting hasil pivottabel seperti pada sheet 1
latihan (terlampir)

terima kasih

salam

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

1b.

Re: Setting akhir hasil Pivot Tabel

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu May 17, 2012 6:44 am (PDT)

Bagaimana jika subtotal setiap item di turnoff (klik kanan nama field,
hilangkan centang). Remove field yang tidak digunakan.

Wassalam,
Kid.

2012/5/17 Bastian Margolang <margolang.bastian@gmail.com>

> **
>
>
> Salam excel
>
> Mohon bantuannya untuk setting hasil pivottabel seperti pada sheet 1
> latihan (terlampir)
>
> terima kasih
>
> salam
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

2a.

hitung jml bulan dg kriteria

Posted by: "Absolute - Udin" omnivora@yahoo.com   omnivora

Thu May 17, 2012 6:33 am (PDT)

menghitung jml bulan dengan kriteria:jika tanggal masuk <= 10 maka bulan tanggal masuk dihitung
jika tanggal masuk > 10 maka bulan tanggal masuk dihitung mulai bulan berikutnya

terima kasih

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

2b.

Re: hitung jml bulan dg kriteria

Posted by: "Rara Wilis" ra2wilis@gmail.com   rr_wilis

Thu May 17, 2012 8:39 am (PDT)

rumusnya
kalau dipanjang-panjangkan

=DATEDIF(
IF(DAY(B3)<11; B3-DAY(B3);DATE(YEAR(B3);MONTH(B3)+1;1));
DATE(YEAR(C3);MONTH(C3)+1;0);
"M")

2012/5/17 Absolute - Udin <omnivora@yahoo.com>

> **
> menghitung jml bulan dengan kriteria:
> jika tanggal masuk <= 10 maka bulan tanggal masuk dihitung
> jika tanggal masuk > 10 maka bulan tanggal masuk dihitung mulai bulan
> berikutnya
> terima kasih
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

3a.

Re: run makro terhenti krn klik mouse

Posted by: "Markonah" markonatul@gmail.com   m_tulqiyem

Thu May 17, 2012 9:01 am (PDT)

'alaikum salam..
tiada dokter mampu mendiagnose suatu penyakit (kemudian memberikan tindakan
&/ obatnya) tanpa melihat pasiennya.
kalau dukun mungkin bisa...

ada kemungkinan VBA Script anda (yg tidak boleh dilihat orang itu)
mengandung statement "DoEvents";
hilangkan / ubahlah menjadi 'remark' dengan menambahkan karakter '
(aphostrof) atau kata Rem di depannya

2012/5/17 Reza F <puhaba2005@yahoo.com>

> **
> Assalamualaikum teman2 semua dan pengasuh milis be excel...
> Saya punya problem seperti ini..
> Saya punya makro yg cukup panjang untuk menyimpan hasil dari sheet input
> ke beberapa sheet database yg sudah disiapkan. Selama ini tidak ada masalah
> dengan makro tersebut (makro hasil utak atik dari milis ini :)), hanya saja
> saat makro tersebut sedang berproses (run) dan saya klik mouse, proses
> makro menjadi berhenti yg mengakibatkan data dari sheet input tidak
> seluruhnya dapat tersimpan ke sheet database. Ini bagaimana caranya ya agar
> saat mouse ter-klik tapi proses makro dapat tetap berjalan hingga selesai?
> Apakah ada tambahan kode makronya?
> Terima kasih bantuannya.
> Reza

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

3b.

Re: run makro terhenti krn klik mouse

Posted by: "Reza F" puhaba2005@yahoo.com   puhaba2005

Thu May 17, 2012 6:17 pm (PDT)

Makasi tanggapannya.
Hehehe... boleh diliat kok, wong saya juga ngambil dari milis ini VBAnya.
Ini VBAnya:

Private Sub CommandButton3_Click()
    Dim lOffset As Long
    Dim rngData As Range
    Dim sMsg As String
    Dim lNewRec As Long
    Dim shtTrn1 As Worksheet
    Dim shtTrn2 As Worksheet
    Dim shtTrn3 As Worksheet
    Dim shtTrn4 As Worksheet
    Dim shtTrn5 As Worksheet
    Dim shtTrn6 As Worksheet
    Dim shtTrn7 As Worksheet
    Dim shtTrn8 As Worksheet
    
    
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Proteksi ActiveSheet, False
    
    
          
    Set shtTrn1 = Sheets("PsnTrx")
    shtTrn1.Visible = xlSheetVisible
    
    Set shtTrn2 = Sheets("ListTrx")
    shtTrn2.Visible = xlSheetVisible
    
    Set shtTrn3 = Sheets("DrgTrx")
    shtTrn3.Visible = xlSheetVisible
    
    Set shtTrn4 = Sheets("LbrTrx")
    shtTrn4.Visible = xlSheetVisible
    
    Set shtTrn5 = Sheets("Transaksi")
    Proteksi shtTrn5, False
    shtTrn5.Visible = xlSheetVisible
    
    Set shtTrn6 = Sheets("Macem2")
    shtTrn6.Visible = xlSheetVisible
    
    Set shtTrn7 = Sheets("Kasir")
    
    Set shtTrn8 = Sheets("Laporan Bulanan")

     sMsg = vbNullString
    If Range("K5").Value = 0 Then sMsg = "- No Register" & vbCrLf
    If Range("F35").Value = 0 Then sMsg = sMsg & "- Bayar" & vbCrLf
    If Range("D4").Value = 0 Then sMsg = sMsg & "- Diagnosa" & vbCrLf
    'cek jika smsg ada isinya, berarti ada yang belum diisi
    If LenB(sMsg) <> 0 Then
        MsgBox "Hal-hal yang BELUM diisi :" & vbCrLf & sMsg & vbCrLf & _
        "Coba diperbaiki lebih dulu!!" & vbCrLf & vbCrLf, vbExclamation, "Peringatan !!!"
            Application.CommandBars.ActiveMenuBar.Enabled = False
            Application.DisplayFullScreen = True
            Application.CommandBars("Full Screen").Enabled = False
            ActiveSheet.EnableSelection = xlUnlockedCells
            Sheets("Transaksi").EnableSelection = xlUnlockedCells
            Proteksi ActiveSheet
            Proteksi Sheets("Transaksi")
            Proteksi Sheets("Laporan Bulanan")
            shtTrn1.Visible = xlSheetVeryHidden
            shtTrn2.Visible = xlSheetVeryHidden
            shtTrn3.Visible = xlSheetVeryHidden
            shtTrn4.Visible = xlSheetVeryHidden
            shtTrn6.Visible = xlSheetVeryHidden
            ActiveSheet.EnableSelection = xlUnlockedCells
            Exit Sub
        End If
        sMsg = vbNullString

    sMsg = vbNullString
    If Range("L5").Value = 0 Then sMsg = "- Kode Pelayanan" & vbCrLf
    If Range("M5").Value = 0 Then sMsg = sMsg & "- Kode Obat" & vbCrLf
    If Range("N5").Value = 0 Then sMsg = sMsg & "- Kode Lab" & vbCrLf
    If LenB(sMsg) <> 0 Then
        If MsgBox("Hal-hal yang 'TIDAK/BELUM' diisi :" & vbCrLf & sMsg & vbCrLf & _
                    "Akan diperbaiki lebih dulu ?" & vbCrLf & vbCrLf & _
                    "Tekan YES untuk memperbaiki lebih dulu" & vbCrLf & _
                    "Tekan NO untuk melanjutkan", vbYesNo, "Peringatan !!!") = vbYes Then
            ActiveSheet.EnableSelection = xlUnlockedCells
            Proteksi ActiveSheet
            Proteksi Sheets("Transaksi")
            shtTrn1.Visible = xlSheetVeryHidden
            shtTrn2.Visible = xlSheetVeryHidden
            shtTrn3.Visible = xlSheetVeryHidden
            shtTrn4.Visible = xlSheetVeryHidden
            shtTrn6.Visible = xlSheetVeryHidden
            ActiveSheet.EnableSelection = xlUnlockedCells
            Exit Sub
        End If
        sMsg = vbNullString
    End If

    shtTrn6.Select
        shtTrn6.PageSetup.PrintArea = "V11:AG27"
        ActiveWindow.SelectedSheets.PrintOut
    shtTrn7.Select
    
    If MsgBox("    Kembalian = Rp " & Sheets("Kasir").Range("D38").Value & vbCrLf & vbCrLf & _
    " " & vbCrLf & vbCrLf & _
    "      Ada yang mau di perbaiki lagi?", vbYesNo, "Konfirmasi") = vbYes Then
       ActiveSheet.EnableSelection = xlUnlockedCells
            Proteksi ActiveSheet
            Proteksi Sheets("Transaksi")
            shtTrn1.Visible = xlSheetVeryHidden
            shtTrn2.Visible = xlSheetVeryHidden
            shtTrn3.Visible = xlSheetVeryHidden
            shtTrn4.Visible = xlSheetVeryHidden
            shtTrn6.Visible = xlSheetVeryHidden
            ActiveSheet.EnableSelection = xlUnlockedCells
            Exit Sub
       End If
    
     'TRANSAKSI
    ActiveSheet.Calculate
    lOffset = Range("O3").Value
    
  
    lNewRec = Range("O5").Value
    If lNewRec > 0 Then
        Range("K82:X82").Copy Range("K84").Resize(lNewRec)
        'ActiveSheet.Calculate
    End If
    
   
    Set rngData = Range("K83")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn5.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
          
    Else
    End If
   
    
  
    'PSN-TRX
    ActiveSheet.Calculate
    lOffset = Range("K3").Value
    
    
    lNewRec = Range("K5").Value
    If lNewRec > 0 Then
        Range("K45:X45").Copy Range("K47").Resize(lNewRec)
        
    End If
    
   
    Set rngData = Range("K46")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn1.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
    
    End If
   
   
   'LIST-TRX
   lOffset = Range("L3").Value
    lNewRec = Range("L5").Value
    If lNewRec > 0 Then
        Range("K50:W50").Copy Range("K52").Resize(lNewRec)
      
    End If
    
   
    Set rngData = Range("K51")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn2.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
        
    Else
    End If
    
  
    'DRG-TRX
    lOffset = Range("M3").Value
    
    lNewRec = Range("M5").Value
    If lNewRec > 0 Then
        Range("K59:W59").Copy Range("K61").Resize(lNewRec)
        
    End If
    
    
    Set rngData = Range("K60")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn3.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
    Else
    End If
   
      

    'LBR-TRX
    
    lOffset = Range("N3").Value
    lNewRec = Range("N5").Value
    If lNewRec > 0 Then
        Range("K73:W73").Copy Range("K75").Resize(lNewRec)
        'ActiveSheet.Calculate
    End If
    
    Set rngData = Range("K74")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn4.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
    Else
    End If
     
    'Printing
    If MsgBox("Minta Kwitansi?", vbYesNo, "Print Kwitansi") = vbYes Then
        shtTrn6.Select
        shtTrn6.PageSetup.PrintArea = "V31:AH47"
        ActiveWindow.SelectedSheets.PrintOut
    End If
    
    shtTrn7.Select
    ActiveSheet.Calculate
    
    Range("B4").ClearContents
    Range("D4:F4").ClearContents
    Range("K47:X47").ClearContents
    
    lNewRec = Range("L5").Value
    If lNewRec > 0 Then
        Range("B6:B10").ClearContents
        Range("K52:W56").ClearContents
    End If
    
    lNewRec = Range("M5").Value
    If lNewRec > 0 Then
        Range("B14:B23").ClearContents
        Range("E14:E23").ClearContents
        Range("K61:W70").ClearContents
    End If
    
    lNewRec = Range("N5").Value
    If lNewRec > 0 Then
        Range("B27:B30").ClearContents
        Range("K75:W78").ClearContents
    End If
 
    Range("K84:X93").ClearContents
        
    Range("F35").ClearContents
  
    
    shtTrn1.Visible = xlSheetVeryHidden
    shtTrn2.Visible = xlSheetVeryHidden
    shtTrn3.Visible = xlSheetVeryHidden
    shtTrn4.Visible = xlSheetVeryHidden
    shtTrn6.Visible = xlSheetVeryHidden
    
    
    ActiveSheet.EnableSelection = xlUnlockedCells
    Sheets("Transaksi").EnableSelection = xlUnlockedCells
    Proteksi shtTrn7
    Proteksi shtTrn5
    Proteksi shtTrn8
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.CutCopyMode = False

    Application.CommandBars.ActiveMenuBar.Enabled = False
    Application.DisplayFullScreen = True
    Application.CommandBars("Full Screen").Enabled = False
    ActiveWorkbook.Save
     
End Sub

________________________________
From: Markonah <markonatul@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, May 17, 2012 10:56 PM
Subject: Re: [belajar-excel] run makro terhenti krn klik mouse


 
'alaikum salam..
tiada dokter mampu mendiagnose suatu penyakit (kemudian memberikan tindakan &/ obatnya) tanpa melihat pasiennya.
kalau dukun mungkin bisa...

ada kemungkinan VBA Script anda (yg tidak boleh dilihat orang itu) mengandung statement "DoEvents";
hilangkan / ubahlah menjadi 'remark' dengan menambahkan karakter ' (aphostrof) atau kata Rem di depannya

2012/5/17 Reza F <puhaba2005@yahoo.com>

>Assalamualaikum teman2 semua dan pengasuh milis be excel...
>Saya punya problem seperti ini..
>Saya punya makro yg cukup panjang untuk menyimpan hasil dari sheet input ke beberapa sheet database yg sudah disiapkan. Selama ini tidak ada masalah dengan makro tersebut (makro hasil utak atik dari milis ini :)), hanya saja saat makro tersebut sedang berproses (run) dan saya klik mouse, proses makro menjadi berhenti yg mengakibatkan data dari sheet input tidak seluruhnya dapat tersimpan ke sheet database. Ini bagaimana caranya ya agar saat mouse ter-klik tapi proses makro dapat tetap berjalan hingga selesai? Apakah ada tambahan kode makronya?
>Terima kasih bantuannya.
>Reza

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

3c.

Re: run makro terhenti krn klik mouse

Posted by: "slametharto@gmail.com" slametharto@gmail.com   slametharto

Thu May 17, 2012 6:41 pm (PDT)

Pernah coba dgn property Interactive mode? set ke False, dan jgn lupa set lagi ke true di akhir script.

Excel will block all input from the keyboard and mouse (except dialog boxes that are set in your code)

Application.interactive = True / False
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: Reza F <puhaba2005@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 17 May 2012 18:17:19
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] run makro terhenti krn klik mouse

Makasi tanggapannya.
Hehehe... boleh diliat kok, wong saya juga ngambil dari milis ini VBAnya.
Ini VBAnya:

Private Sub CommandButton3_Click()
    Dim lOffset As Long
    Dim rngData As Range
    Dim sMsg As String
    Dim lNewRec As Long
    Dim shtTrn1 As Worksheet
    Dim shtTrn2 As Worksheet
    Dim shtTrn3 As Worksheet
    Dim shtTrn4 As Worksheet
    Dim shtTrn5 As Worksheet
    Dim shtTrn6 As Worksheet
    Dim shtTrn7 As Worksheet
    Dim shtTrn8 As Worksheet
    
    
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Proteksi ActiveSheet, False
    
    
          
    Set shtTrn1 = Sheets("PsnTrx")
    shtTrn1.Visible = xlSheetVisible
    
    Set shtTrn2 = Sheets("ListTrx")
    shtTrn2.Visible = xlSheetVisible
    
    Set shtTrn3 = Sheets("DrgTrx")
    shtTrn3.Visible = xlSheetVisible
    
    Set shtTrn4 = Sheets("LbrTrx")
    shtTrn4.Visible = xlSheetVisible
    
    Set shtTrn5 = Sheets("Transaksi")
    Proteksi shtTrn5, False
    shtTrn5.Visible = xlSheetVisible
    
    Set shtTrn6 = Sheets("Macem2")
    shtTrn6.Visible = xlSheetVisible
    
    Set shtTrn7 = Sheets("Kasir")
    
    Set shtTrn8 = Sheets("Laporan Bulanan")

     sMsg = vbNullString
    If Range("K5").Value = 0 Then sMsg = "- No Register" & vbCrLf
    If Range("F35").Value = 0 Then sMsg = sMsg & "- Bayar" & vbCrLf
    If Range("D4").Value = 0 Then sMsg = sMsg & "- Diagnosa" & vbCrLf
    'cek jika smsg ada isinya, berarti ada yang belum diisi
    If LenB(sMsg) <> 0 Then
        MsgBox "Hal-hal yang BELUM diisi :" & vbCrLf & sMsg & vbCrLf & _
        "Coba diperbaiki lebih dulu!!" & vbCrLf & vbCrLf, vbExclamation, "Peringatan !!!"
            Application.CommandBars.ActiveMenuBar.Enabled = False
            Application.DisplayFullScreen = True
            Application.CommandBars("Full Screen").Enabled = False
            ActiveSheet.EnableSelection = xlUnlockedCells
            Sheets("Transaksi").EnableSelection = xlUnlockedCells
            Proteksi ActiveSheet
            Proteksi Sheets("Transaksi")
            Proteksi Sheets("Laporan Bulanan")
            shtTrn1.Visible = xlSheetVeryHidden
            shtTrn2.Visible = xlSheetVeryHidden
            shtTrn3.Visible = xlSheetVeryHidden
            shtTrn4.Visible = xlSheetVeryHidden
            shtTrn6.Visible = xlSheetVeryHidden
            ActiveSheet.EnableSelection = xlUnlockedCells
            Exit Sub
        End If
        sMsg = vbNullString

    sMsg = vbNullString
    If Range("L5").Value = 0 Then sMsg = "- Kode Pelayanan" & vbCrLf
    If Range("M5").Value = 0 Then sMsg = sMsg & "- Kode Obat" & vbCrLf
    If Range("N5").Value = 0 Then sMsg = sMsg & "- Kode Lab" & vbCrLf
    If LenB(sMsg) <> 0 Then
        If MsgBox("Hal-hal yang 'TIDAK/BELUM' diisi :" & vbCrLf & sMsg & vbCrLf & _
                    "Akan diperbaiki lebih dulu ?" & vbCrLf & vbCrLf & _
                    "Tekan YES untuk memperbaiki lebih dulu" & vbCrLf & _
                    "Tekan NO untuk melanjutkan", vbYesNo, "Peringatan !!!") = vbYes Then
            ActiveSheet.EnableSelection = xlUnlockedCells
            Proteksi ActiveSheet
            Proteksi Sheets("Transaksi")
            shtTrn1.Visible = xlSheetVeryHidden
            shtTrn2.Visible = xlSheetVeryHidden
            shtTrn3.Visible = xlSheetVeryHidden
            shtTrn4.Visible = xlSheetVeryHidden
            shtTrn6.Visible = xlSheetVeryHidden
            ActiveSheet.EnableSelection = xlUnlockedCells
            Exit Sub
        End If
        sMsg = vbNullString
    End If

    shtTrn6.Select
        shtTrn6.PageSetup.PrintArea = "V11:AG27"
        ActiveWindow.SelectedSheets.PrintOut
    shtTrn7.Select
    
    If MsgBox("    Kembalian = Rp " & Sheets("Kasir").Range("D38").Value & vbCrLf & vbCrLf & _
    " " & vbCrLf & vbCrLf & _
    "      Ada yang mau di perbaiki lagi?", vbYesNo, "Konfirmasi") = vbYes Then
       ActiveSheet.EnableSelection = xlUnlockedCells
            Proteksi ActiveSheet
            Proteksi Sheets("Transaksi")
            shtTrn1.Visible = xlSheetVeryHidden
            shtTrn2.Visible = xlSheetVeryHidden
            shtTrn3.Visible = xlSheetVeryHidden
            shtTrn4.Visible = xlSheetVeryHidden
            shtTrn6.Visible = xlSheetVeryHidden
            ActiveSheet.EnableSelection = xlUnlockedCells
            Exit Sub
       End If
    
     'TRANSAKSI
    ActiveSheet.Calculate
    lOffset = Range("O3").Value
    
  
    lNewRec = Range("O5").Value
    If lNewRec > 0 Then
        Range("K82:X82").Copy Range("K84").Resize(lNewRec)
        'ActiveSheet.Calculate
    End If
    
   
    Set rngData = Range("K83")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn5.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
          
    Else
    End If
   
    
  
    'PSN-TRX
    ActiveSheet.Calculate
    lOffset = Range("K3").Value
    
    
    lNewRec = Range("K5").Value
    If lNewRec > 0 Then
        Range("K45:X45").Copy Range("K47").Resize(lNewRec)
        
    End If
    
   
    Set rngData = Range("K46")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn1.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
    
    End If
   
   
   'LIST-TRX
   lOffset = Range("L3").Value
    lNewRec = Range("L5").Value
    If lNewRec > 0 Then
        Range("K50:W50").Copy Range("K52").Resize(lNewRec)
      
    End If
    
   
    Set rngData = Range("K51")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn2.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
        
    Else
    End If
    
  
    'DRG-TRX
    lOffset = Range("M3").Value
    
    lNewRec = Range("M5").Value
    If lNewRec > 0 Then
        Range("K59:W59").Copy Range("K61").Resize(lNewRec)
        
    End If
    
    
    Set rngData = Range("K60")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn3.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
    Else
    End If
   
      

    'LBR-TRX
    
    lOffset = Range("N3").Value
    lNewRec = Range("N5").Value
    If lNewRec > 0 Then
        Range("K73:W73").Copy Range("K75").Resize(lNewRec)
        'ActiveSheet.Calculate
    End If
    
    Set rngData = Range("K74")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn4.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
    Else
    End If
     
    'Printing
    If MsgBox("Minta Kwitansi?", vbYesNo, "Print Kwitansi") = vbYes Then
        shtTrn6.Select
        shtTrn6.PageSetup.PrintArea = "V31:AH47"
        ActiveWindow.SelectedSheets.PrintOut
    End If
    
    shtTrn7.Select
    ActiveSheet.Calculate
    
    Range("B4").ClearContents
    Range("D4:F4").ClearContents
    Range("K47:X47").ClearContents
    
    lNewRec = Range("L5").Value
    If lNewRec > 0 Then
        Range("B6:B10").ClearContents
        Range("K52:W56").ClearContents
    End If
    
    lNewRec = Range("M5").Value
    If lNewRec > 0 Then
        Range("B14:B23").ClearContents
        Range("E14:E23").ClearContents
        Range("K61:W70").ClearContents
    End If
    
    lNewRec = Range("N5").Value
    If lNewRec > 0 Then
        Range("B27:B30").ClearContents
        Range("K75:W78").ClearContents
    End If
 
    Range("K84:X93").ClearContents
        
    Range("F35").ClearContents
  
    
    shtTrn1.Visible = xlSheetVeryHidden
    shtTrn2.Visible = xlSheetVeryHidden
    shtTrn3.Visible = xlSheetVeryHidden
    shtTrn4.Visible = xlSheetVeryHidden
    shtTrn6.Visible = xlSheetVeryHidden
    
    
    ActiveSheet.EnableSelection = xlUnlockedCells
    Sheets("Transaksi").EnableSelection = xlUnlockedCells
    Proteksi shtTrn7
    Proteksi shtTrn5
    Proteksi shtTrn8
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.CutCopyMode = False

    Application.CommandBars.ActiveMenuBar.Enabled = False
    Application.DisplayFullScreen = True
    Application.CommandBars("Full Screen").Enabled = False
    ActiveWorkbook.Save
     
End Sub


________________________________
From: Markonah <markonatul@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, May 17, 2012 10:56 PM
Subject: Re: [belajar-excel] run makro terhenti krn klik mouse


 
'alaikum salam..
tiada dokter mampu mendiagnose suatu penyakit (kemudian memberikan tindakan &/ obatnya) tanpa melihat pasiennya.
kalau dukun mungkin bisa...

ada kemungkinan VBA Script anda (yg tidak boleh dilihat orang itu) mengandung statement "DoEvents";
hilangkan / ubahlah menjadi 'remark' dengan menambahkan karakter ' (aphostrof) atau kata Rem di depannya





2012/5/17 Reza F <puhaba2005@yahoo.com>


>Assalamualaikum teman2 semua dan pengasuh milis be excel...
>Saya punya problem seperti ini..
>Saya punya makro yg cukup panjang untuk menyimpan hasil dari sheet input ke beberapa sheet database yg sudah disiapkan. Selama ini tidak ada masalah dengan makro tersebut (makro hasil utak atik dari milis ini :)), hanya saja saat makro tersebut sedang berproses (run) dan saya klik mouse, proses makro menjadi berhenti yg mengakibatkan data dari sheet input tidak seluruhnya dapat tersimpan ke sheet database. Ini bagaimana caranya ya agar saat mouse ter-klik tapi proses makro dapat tetap berjalan hingga selesai? Apakah ada tambahan kode makronya?
>Terima kasih bantuannya.
>Reza

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

3d.

Re: run makro terhenti krn klik mouse

Posted by: "Reza F" puhaba2005@yahoo.com   puhaba2005

Thu May 17, 2012 9:55 pm (PDT)

belom pernah coba mas. dan setelah dicoba eeeehh BERHASIL!! hehehe....

Thanks bantuannya. :)

Reza

________________________________
From: "slametharto@gmail.com" <slametharto@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, May 18, 2012 8:40 AM
Subject: Re: [belajar-excel] run makro terhenti krn klik mouse


 
Pernah coba dgn property Interactive mode? set ke False, dan jgn lupa set lagi ke true di akhir script.

Excel will block all input from the keyboard and mouse (except dialog boxes that are set in your code)

Application.interactive = True / False
Powered by Telkomsel BlackBerry®
________________________________

From: Reza F <puhaba2005@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 17 May 2012 18:17:19 -0700 (PDT)
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] run makro terhenti krn klik mouse
 
Makasi tanggapannya.
Hehehe... boleh diliat kok, wong saya juga ngambil dari milis ini VBAnya.
Ini VBAnya:

Private Sub CommandButton3_Click()
    Dim lOffset As Long
    Dim rngData As Range
    Dim sMsg As String
    Dim lNewRec As Long
    Dim shtTrn1 As Worksheet
    Dim shtTrn2 As Worksheet
    Dim shtTrn3 As Worksheet
    Dim shtTrn4 As Worksheet
    Dim shtTrn5 As Worksheet
    Dim shtTrn6 As Worksheet
    Dim shtTrn7 As Worksheet
    Dim shtTrn8 As Worksheet
    
    
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Proteksi ActiveSheet, False
    
    
          
    Set shtTrn1 = Sheets("PsnTrx")
    shtTrn1.Visible = xlSheetVisible
    
    Set shtTrn2 = Sheets("ListTrx")
    shtTrn2.Visible = xlSheetVisible
    
    Set shtTrn3 = Sheets("DrgTrx")
    shtTrn3.Visible = xlSheetVisible
    
    Set shtTrn4 = Sheets("LbrTrx")
    shtTrn4.Visible = xlSheetVisible
    
    Set shtTrn5 = Sheets("Transaksi")
    Proteksi shtTrn5, False
    shtTrn5.Visible = xlSheetVisible
    
    Set shtTrn6 = Sheets("Macem2")
    shtTrn6.Visible = xlSheetVisible
    
    Set shtTrn7 = Sheets("Kasir")
    
    Set shtTrn8 = Sheets("Laporan Bulanan")

     sMsg = vbNullString
    If Range("K5").Value = 0 Then sMsg = "- No Register" & vbCrLf
    If Range("F35").Value = 0 Then sMsg = sMsg & "- Bayar" & vbCrLf
    If Range("D4").Value = 0 Then sMsg = sMsg & "- Diagnosa" & vbCrLf
    'cek jika smsg ada isinya, berarti ada yang belum diisi
    If LenB(sMsg) <> 0 Then
        MsgBox "Hal-hal yang BELUM diisi :" & vbCrLf & sMsg & vbCrLf & _
        "Coba diperbaiki lebih dulu!!" & vbCrLf & vbCrLf, vbExclamation, "Peringatan !!!"
            Application.CommandBars.ActiveMenuBar.Enabled = False
            Application.DisplayFullScreen = True
            Application.CommandBars("Full Screen").Enabled = False
            ActiveSheet.EnableSelection = xlUnlockedCells
            Sheets("Transaksi").EnableSelection = xlUnlockedCells
            Proteksi ActiveSheet
            Proteksi Sheets("Transaksi")
            Proteksi Sheets("Laporan Bulanan")
            shtTrn1.Visible = xlSheetVeryHidden
            shtTrn2.Visible = xlSheetVeryHidden
            shtTrn3.Visible = xlSheetVeryHidden
            shtTrn4.Visible = xlSheetVeryHidden
            shtTrn6.Visible = xlSheetVeryHidden
            ActiveSheet.EnableSelection = xlUnlockedCells
            Exit Sub
        End If
        sMsg = vbNullString

    sMsg = vbNullString
    If Range("L5").Value = 0 Then sMsg = "- Kode Pelayanan" & vbCrLf
    If Range("M5").Value = 0 Then sMsg = sMsg & "- Kode Obat" & vbCrLf
    If Range("N5").Value = 0 Then sMsg = sMsg & "- Kode Lab" & vbCrLf
    If LenB(sMsg) <> 0 Then
        If MsgBox("Hal-hal yang 'TIDAK/BELUM' diisi :" & vbCrLf & sMsg & vbCrLf & _
                    "Akan diperbaiki lebih dulu ?" & vbCrLf & vbCrLf & _
                    "Tekan YES untuk memperbaiki lebih dulu" & vbCrLf & _
                    "Tekan NO untuk melanjutkan", vbYesNo, "Peringatan !!!") = vbYes Then
            ActiveSheet.EnableSelection = xlUnlockedCells
            Proteksi ActiveSheet
            Proteksi Sheets("Transaksi")
            shtTrn1.Visible = xlSheetVeryHidden
            shtTrn2.Visible = xlSheetVeryHidden
            shtTrn3.Visible = xlSheetVeryHidden
            shtTrn4.Visible = xlSheetVeryHidden
            shtTrn6.Visible = xlSheetVeryHidden
            ActiveSheet.EnableSelection = xlUnlockedCells
            Exit Sub
        End If
        sMsg = vbNullString
    End If

    shtTrn6.Select
        shtTrn6.PageSetup.PrintArea = "V11:AG27"
        ActiveWindow.SelectedSheets.PrintOut
    shtTrn7.Select
    
    If MsgBox("    Kembalian = Rp " & Sheets("Kasir").Range("D38").Value & vbCrLf & vbCrLf & _
    " " & vbCrLf & vbCrLf & _
    "      Ada yang mau di perbaiki lagi?", vbYesNo, "Konfirmasi") = vbYes Then
       ActiveSheet.EnableSelection = xlUnlockedCells
            Proteksi ActiveSheet
            Proteksi Sheets("Transaksi")
            shtTrn1.Visible = xlSheetVeryHidden
            shtTrn2.Visible = xlSheetVeryHidden
            shtTrn3.Visible = xlSheetVeryHidden
            shtTrn4.Visible = xlSheetVeryHidden
            shtTrn6.Visible = xlSheetVeryHidden
            ActiveSheet.EnableSelection = xlUnlockedCells
            Exit Sub
       End If
    
     'TRANSAKSI
    ActiveSheet.Calculate
    lOffset = Range("O3").Value
    
  
    lNewRec = Range("O5").Value
    If lNewRec > 0 Then
        Range("K82:X82").Copy Range("K84").Resize(lNewRec)
        'ActiveSheet.Calculate
    End If
    
   
    Set rngData = Range("K83")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn5.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
          
    Else
    End If
   
    
  
    'PSN-TRX
    ActiveSheet.Calculate
    lOffset = Range("K3").Value
    
    
    lNewRec = Range("K5").Value
    If lNewRec > 0 Then
        Range("K45:X45").Copy Range("K47").Resize(lNewRec)
        
    End If
    
   
    Set rngData = Range("K46")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn1.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
    
    End If
   
   
   'LIST-TRX
   lOffset = Range("L3").Value
    lNewRec = Range("L5").Value
    If lNewRec > 0 Then
        Range("K50:W50").Copy Range("K52").Resize(lNewRec)
      
    End If
    
   
    Set rngData = Range("K51")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn2.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
        
    Else
    End If
    
  
    'DRG-TRX
    lOffset = Range("M3").Value
    
    lNewRec = Range("M5").Value
    If lNewRec > 0 Then
        Range("K59:W59").Copy Range("K61").Resize(lNewRec)
        
    End If
    
    
    Set rngData = Range("K60")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn3.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
    Else
    End If
   
      

    'LBR-TRX
    
    lOffset = Range("N3").Value
    lNewRec = Range("N5").Value
    If lNewRec > 0 Then
        Range("K73:W73").Copy Range("K75").Resize(lNewRec)
        'ActiveSheet.Calculate
    End If
    
    Set rngData = Range("K74")
    If rngData.Value <> 0 Then
        rngData.Offset(1, 2).CurrentRegion.Copy
        shtTrn4.Range("a1").Offset(lOffset).PasteSpecial xlPasteValuesAndNumberFormats
    Else
    End If
     
    'Printing
    If MsgBox("Minta Kwitansi?", vbYesNo, "Print Kwitansi") = vbYes Then
        shtTrn6.Select
        shtTrn6.PageSetup.PrintArea = "V31:AH47"
        ActiveWindow.SelectedSheets.PrintOut
    End If
    
    shtTrn7.Select
    ActiveSheet.Calculate
    
    Range("B4").ClearContents
    Range("D4:F4").ClearContents
    Range("K47:X47").ClearContents
    
    lNewRec = Range("L5").Value
    If lNewRec > 0 Then
        Range("B6:B10").ClearContents
        Range("K52:W56").ClearContents
    End If
    
    lNewRec = Range("M5").Value
    If lNewRec > 0 Then
        Range("B14:B23").ClearContents
        Range("E14:E23").ClearContents
        Range("K61:W70").ClearContents
    End If
    
    lNewRec = Range("N5").Value
    If lNewRec > 0 Then
        Range("B27:B30").ClearContents
        Range("K75:W78").ClearContents
    End If
 
    Range("K84:X93").ClearContents
        
    Range("F35").ClearContents
  
    
    shtTrn1.Visible = xlSheetVeryHidden
    shtTrn2.Visible = xlSheetVeryHidden
    shtTrn3.Visible = xlSheetVeryHidden
    shtTrn4.Visible = xlSheetVeryHidden
    shtTrn6.Visible = xlSheetVeryHidden
    
    
    ActiveSheet.EnableSelection = xlUnlockedCells
    Sheets("Transaksi").EnableSelection = xlUnlockedCells
    Proteksi shtTrn7
    Proteksi shtTrn5
    Proteksi shtTrn8
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.CutCopyMode = False

    Application.CommandBars.ActiveMenuBar.Enabled = False
    Application.DisplayFullScreen = True
    Application.CommandBars("Full Screen").Enabled = False
    ActiveWorkbook.Save
     
End Sub

________________________________
From: Markonah <markonatul@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, May 17, 2012 10:56 PM
Subject: Re: [belajar-excel] run makro terhenti krn klik mouse


 
'alaikum salam..
tiada dokter mampu mendiagnose suatu penyakit (kemudian memberikan tindakan &/ obatnya) tanpa melihat pasiennya.
kalau dukun mungkin bisa...

ada kemungkinan VBA Script anda (yg tidak boleh dilihat orang itu) mengandung statement "DoEvents";
hilangkan / ubahlah menjadi 'remark' dengan menambahkan karakter ' (aphostrof) atau kata Rem di depannya

2012/5/17 Reza F <puhaba2005@yahoo.com>

>Assalamualaikum teman2 semua dan pengasuh milis be excel...
>Saya punya problem seperti ini..
>Saya punya makro yg cukup panjang untuk menyimpan hasil dari sheet input ke beberapa sheet database yg sudah disiapkan. Selama ini tidak ada masalah dengan makro tersebut (makro hasil utak atik dari milis ini :)), hanya saja saat makro tersebut sedang berproses (run) dan saya klik mouse, proses makro menjadi berhenti yg mengakibatkan data dari sheet input tidak seluruhnya dapat tersimpan ke sheet database. Ini bagaimana caranya ya agar saat mouse ter-klik tapi proses makro dapat tetap berjalan hingga selesai? Apakah ada tambahan kode makronya?
>Terima kasih bantuannya.
>Reza

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

4a.

Hasil Optimasi

Posted by: "Hadi Sukisno" hadi_sukisno@ymail.com   hadi_sukisno@ymail.com

Thu May 17, 2012 10:20 am (PDT)

Para pakar excel

Saya menggunakan software optimasi dalam menyelesaikan pekerjaan. Keluaran software tersebut perlu diolah lebih lanjut dengan Excel. Yang menjadi persoalan adalah ketika keluaran tersebut di copy paste ke excel formatnya tidak sesuai dengan yang diinginkan.

Contohnya : 

     QB1A1      1872.205811          0.000000
 
tertulis di dalam 1 cell. Padahal yang diinginkan adalah QB1A1, 1872.205811 dan 0.000000, masing-masing tertulis di dalam cell sendiri-sendiri.

Contoh file terlampir.

Terima KAsih

sukisno hadi

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

4b.

Re: Hasil Optimasi

Posted by: "Rara Wilis" ra2wilis@gmail.com   rr_wilis

Thu May 17, 2012 12:09 pm (PDT)

usul kepada pak hadi

Bgmana kalau digunakan *DATA > TEXT-TO-COLUMN*
*opsi : *
Delimited
Delimiter = SPACE
kolom pertama (hanya berisi data "5 spasi") : di Skip

2012/5/17 Hadi Sukisno <hadi_sukisno@ymail.com>

> **
> Para pakar excel
> Saya menggunakan software optimasi dalam menyelesaikan pekerjaan. Keluaran
> software tersebut perlu diolah lebih lanjut dengan Excel. Yang menjadi
> persoalan adalah ketika keluaran tersebut di copy paste ke excel formatnya
> tidak sesuai dengan yang diinginkan.
>
> Contohnya :
>
> QB1A1 1872.205811 0.000000
>
> tertulis di dalam 1 cell. Padahal yang diinginkan adalah QB1A1,
> 1872.205811 dan 0.000000, masing-masing tertulis di dalam cell
> sendiri-sendiri.
> Contoh file terlampir.
> Terima KAsih
> sukisno hadi
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

4c.

Re: Hasil Optimasi

Posted by: "Rara Wilis" ra2wilis@gmail.com   rr_wilis

Thu May 17, 2012 5:48 pm (PDT)

atau...
kalau ingin tinggal KLIK TOMBOL; ini makro tombolnya

Private Sub CommandButton1_Click()
' Rara Wilis / 17 Mei 2012
' Koversi Text-To-Columns Istimewa
'---------------------------------

Dim dTbl As Range, dHasil As Range
Dim n As Long, c As Integer
Dim StrRec As String, strDat As String
On Error Goto EndBatal
Set dTbl = _
Application.InputBox("Tentukan / Select Range yg akan diproses", _
"TEXT to COLUMNS special", Selection.Address, , , , , 8)
Set dHasil = dTbl.Offset(0, dTbl.Columns.Count + 4)
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

*For n = 1 To dTbl.Rows.Count*
c = 0
StrRec = Trim(dTbl(n, 1).Value) & " "
dHasil(n, 0).Value = n
*Do While Len(StrRec) > 1*
c = c + 1
strDat = Mid(StrRec, 1, InStr(1, StrRec, " ") - 1)
* dHasil(n, c).NumberFormat = "@"*
* dHasil(n, c).Value = strDat*
StrRec = Trim(Mid(StrRec, Len(strDat) + 1, Len(StrRec))) & " "
*Loop*
* Next n*

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
EndBatal:

End Sub

> 2012/5/18 Rara Wilis <ra2wilis@gmail.com>
>
> usul kepada pak hadi
>
> Bgmana kalau digunakan DATA > TEXT-TO-COLUMN
> opsi :
> Delimited
> Delimiter = SPACE
> kolom pertama (hanya berisi data "5 spasi") : di Skip
>
>
> 2012/5/17 Hadi Sukisno <hadi_sukisno@ymail.com>
>>
>> Para pakar excel
>> Saya menggunakan software optimasi dalam menyelesaikan pekerjaan.
Keluaran software tersebut perlu diolah lebih lanjut dengan Excel. Yang
menjadi persoalan adalah ketika keluaran tersebut di copy paste ke excel
formatnya tidak sesuai dengan yang diinginkan.
>>
>> Contohnya :
>>
>> QB1A1 1872.205811 0.000000
>>
>> tertulis di dalam 1 cell. Padahal yang diinginkan adalah QB1A1,
1872.205811 dan 0.000000, masing-masing tertulis di dalam cell
sendiri-sendiri.
>> Contoh file terlampir.
>> Terima KAsih
>> sukisno hadi
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

4d.

Re: Hasil Optimasi

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu May 17, 2012 11:32 pm (PDT)

Mungkin mau mencoba dengan formula. Asumsi, data yang diproses memiliki
jumlah karakter yang tetap selalu dan regional setting selalu menggunakan
tanda titik sebagai pemisah desimal (yang digunakan teks yang akan
diproses).

Kolom H :
=TRIM(LEFT(B5,10))

Kolom i :
=MID(B5,11,17)*1

Kolom J :
=RIGHT(B5,17)*1

Wassalam,
Kid.

2012/5/17 Hadi Sukisno <hadi_sukisno@ymail.com>

> **
>
>
> Para pakar excel
>
> Saya menggunakan software optimasi dalam menyelesaikan pekerjaan. Keluaran
> software tersebut perlu diolah lebih lanjut dengan Excel. Yang menjadi
> persoalan adalah ketika keluaran tersebut di copy paste ke excel formatnya
> tidak sesuai dengan yang diinginkan.
>
> Contohnya :
>
> QB1A1 1872.205811 0.000000
>
> tertulis di dalam 1 cell. Padahal yang diinginkan adalah QB1A1,
> 1872.205811 dan 0.000000, masing-masing tertulis di dalam cell
> sendiri-sendiri.
>
> Contoh file terlampir.
>
> Terima KAsih
>
> sukisno hadi
>
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

5a.

44010132114 menjadi 32114

Posted by: "Indra JB" indrajb@ymail.com   indrajb@ymail.com

Thu May 17, 2012 3:49 pm (PDT)

dear mastah2 @belajar-excel@yahoogroups.com

mohon bantuannya dong ...
gimana caranya menghilangkan angka didepan angka...( bingung sendiri bacanya....:D)

Contoh 44010132114 menjadi 32114

thanks

Rgds
Indra JB

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

5b.

Re: 44010132114 menjadi 32114

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu May 17, 2012 3:58 pm (PDT)

Coba :
= 44010132114 - Int( 44010132114 / 10^5 ) * 10^5

angka yang diproses (44010132114) bisa berupa referensi.

Wassalam,
Kid.

2012/5/18 Indra JB <indrajb@ymail.com>

> **
>
>
> dear mastah2 @belajar-excel@yahoogroups.com
>
> mohon bantuannya dong ...
> gimana caranya menghilangkan angka didepan angka...( bingung sendiri
> bacanya....:D)
>
> Contoh 44010132114 menjadi 32114
>
> thanks
>
> Rgds
> Indra JB
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

5c.

Re: 44010132114 menjadi 32114

Posted by: "Rara Wilis" ra2wilis@gmail.com   rr_wilis

Thu May 17, 2012 5:59 pm (PDT)

karena maksud dan syarat2-nya tidak jelas dan kerelaan mengirim contoh data
pun hanya se"biji"
maka boleh dong dijawab dengan :

=--RIGHT(A1,5)

Diandaikan: Angka yg mau diproses sudah tertulis di cell A1

*
*
*2012/5/18 Indra JB <indrajb@ymail.com>
*
>
> * *
>
> *mohon bantuannya dong ...
> gimana caranya menghilangkan angka didepan angka...( bingung sendiri
> bacanya....:D)
> Contoh 44010132114 menjadi 32114
>
> thanks
> Rgds
> Indra JB
> *
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

6a.

memisahkan data yang sama

Posted by: "depi Hariyanto" depi.hari_yanto@yahoo.co.id   depi.hari_yanto

Thu May 17, 2012 10:48 pm (PDT)

Salam master Excel,

jika dalam satu kolom terdapat data yang sama bahkan terdapat tiga data yang sama, bagai mana formula untuk memisahkan data yang sama tersebut ke kolom yang lainnya ...?

terima kasih atas solusi selama ini yang telah disampaikan.

salam
Dep_Har

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

6b.

Re: memisahkan data yang sama

Posted by: "dwint ruswanto" dwint.ruswanto@gmail.com

Thu May 17, 2012 11:14 pm (PDT)

coba gunakan formula CountIf, jika hasilnya 1 maka data tidak ada yang
sama, jika hasilnya 2 atau lebih berarti ada data yang sama

untuk memasukkan data ke kolom sama atau tidak gunakan formula If

btw, saya masih bingung dengan contoh hasil yang diharapkan, karena ada
data yang sama tetapi juga dimasukkan ke dalam kolom data tidak sama,
mungkin bisa diberikan penjelasan lebih lanjut.

wassalam,

-dwint-

2012/5/18 depi Hariyanto <depi.hari_yanto@yahoo.co.id>

> **
>
>
> Salam master Excel,
>
> jika dalam satu kolom terdapat data yang sama bahkan terdapat tiga data
> yang sama, bagai mana formula untuk memisahkan data yang sama tersebut ke
> kolom yang lainnya ...?
>
> terima kasih atas solusi selama ini yang telah disampaikan.
>
> salam
> Dep_Har
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

6c.

Re: memisahkan data yang sama

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu May 17, 2012 11:21 pm (PDT)

Coba memanfaatkan fitur pivot table sebagai penyusun laporan, dengan
menambah kolom data berformula agar menjadi data source pivot table yang
bisa memenuhi kebutuhan.

Kid.

2012/5/18 depi Hariyanto <depi.hari_yanto@yahoo.co.id>

> **
>
>
> Salam master Excel,
>
> jika dalam satu kolom terdapat data yang sama bahkan terdapat tiga data
> yang sama, bagai mana formula untuk memisahkan data yang sama tersebut ke
> kolom yang lainnya ...?
>
> terima kasih atas solusi selama ini yang telah disampaikan.
>
> salam
> Dep_Har
>
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

7a.

Bls: [belajar-excel] memindahan nomor yang sama ke sheet lain

Posted by: "depi Hariyanto" depi.hari_yanto@yahoo.co.id   depi.hari_yanto

Thu May 17, 2012 10:48 pm (PDT)

terima kasih respon mbak markonah, tapi saya masih belum paham.
mohon solusi rekan2 excel yang lain.

terima kasih

salam
dep_Har

________________________________
Dari: Markonah <markonatul@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 16 Mei 2012 22:18
Judul: Re: [belajar-excel] memindahan nomor yang sama ke sheet lain


 
Mari kita coba pakai cara termudah namun cukup cepat (kalau mau !)

Kata mbak siti... di Excel ada cara menSelect CELLS baris/range) yg VISIBLE ONLY...
Agar anda mudah memBLOK cells/range/baris baris yg VISIBLE ONLY sebaiknya Icon-ShortCutnya anda pasang di *Q.A.T. *(Quick Access Toolbar); caranya: lihat gambar di bawah ini

[image: Inline image 1]

gambar QAT di excel ku

[image: Inline image 2]

Kata mbak siti pula,,, di Excel ada filer untuk menyaring tabel agar hanya menampakkan baris-baris data yg kolom (kolom-kolom)nya memenuhi kriteria. Misal kriteria untuk kolom H = "Begin with "D")
maka semua baris yg kolom Hnya ndak dimulai oleh hurup "D" akan di
sembunyikan.

Kalau area tabel tsb kita BLOK kemudian kita copy lalu kita paste ke Sheet lain, kadang kita akan kecewa... karena hasil nya adalah SEMUA baris pada tabel (records tersembunyi ikut tercopy !!)

Untuk meyakinkan data yg dicopy hanya baris baris dlm tabel yg VISIBLE
SAJA, and hanya perlu mengKLIK Ikon "SELECT VISIBLE CELLS" yg sekarang sudah mudah anda jangkau di QAT anda..

Pindah ke sheet "hasil" dan kerjakan operasi PASTE maka Keinginan 1 sudah terpenuni.
Keinginan 2 tinggal mengulang seperti keinginan 1 hanya berbeda kriteria filetrnya ( yaitu pakai 2 kriteria : H = Begin with "U" dan H = Blank )

Cara lain, menggunakan :
- rumus (gak begitu cucokk kalau untuk ribuan baris data)
- pivot tabel
- dan tentunya MAKRO

2012/5/16 depi Hariyanto <depi.hari_yanto@yahoo.co.id>
>
> mohon bantuan kembali, saya akan memindahkan nomor yang sama pada satu
> sheet ke sheet lain bagai mana formulanya ..? karena nomor yang sama
> tersebut diantara ribuan nomor.
>
> terlampir detail yang ingin saya tanyakan.
>
> atas bantuannya saya ucapkan banyak terima kasih.*
>
>
> salam
> Dep_Har.
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

Recent Activity

•  11
  New Members

Visit Your Group

Yahoo! Groups

Small Business Group

Ask questions,

share experiences

Yahoo! Groups

Cat Group

Join a group for

people who love cats

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
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
---------------------------------------------------------------------

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe