15 New Messages
Digest #1881
4c
Bls: [belajar-excel] Kombinasi Tanggal & Conditional Formatting (CF) by "Prodev SIMPLE PB" prodev_simple
Messages
Thu Nov 1, 2012 2:22 pm (PDT) . Posted by:
"Emi" emilestariklcc
Makasih Pak Kid,
Tapi masih error di baris akhir
rngDB.PasteSpecial xlPasteValues
Mohon pencerahan supaya dapat dipelajari lagi, filenya dilampirkan.
Wassalam.
Emi Lestari
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Thursday, November 1, 2012 8:32 PM
Subject: Re: [belajar-excel] Copy Paste Special ke worksheet lain
Kalau mau coba, ganti semua isinya dengan :
Dim rngDB As Range 'range di db
Dim lRecIn As Long 'jumlah record input (yang akan di simpan ke db)
'jumlah cell (jumlah cacah) berisi data bertipe numerik yang ada di kolom D sheet13 (bernama Table)
lRecIn = Application.WorksheetFunction.Count(Sheet13.Range("d1").EntireColumn)
'cek ada gak data inputnya
If lRecIn > 0 Then 'ada datanya yang mau di simpan
'set anchor cell di sheet19 (bernama database) cell B1
Set rngDB = Sheet19.Range("b1")
'dari anchor, pindah ke baris kosong pertama yang ditemui,
'yaitu lompat (offset) sebanyak jumlah baris dari area
'yang bersinggungan dengan anchor (current region dari b1)
Set rngDB = rngDB.Offset(rngDB.CurrentRegion.Rows.Count)
Sheet13.Range("b4:i4").Resize(lRecIn).Copy 'copy
rngDB.PasteSpecial xlPasteValues 'paste special values
End If 'akhir blok if
Ada apa dengan script asli yang bermasalah atau yang berpotensi bermasalah ?
1. Set SourceRange = Sheets("Sheet13").Range("B4:I4")
>> nama sheet dalam worksheet harus bernama Sheet13
>> range yang di-set hanya 1 baris, yaitu baris 4 Excel mulai kolom B sampai I
2. Set DestSheet = Sheets("Sheet19")
>> nama sheet dalam worksheet harus bernama Sheet19
3. Lr =LastRow(DestSheet)
>> harus punya prosedur function bernama LastRow dan menghasilkan (nilai balik fungsi) adalah nilai bertipe numerik long
4. With SourceRange
Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
End With>> cell di sheet tujuan (lokasi paste) akan seluas cell yang akan di copy (merah). Dan ini baru di set 1 baris yaitu B4:I4
5. DestRange.Value = SourceRange.Value
>> untuk data bertipe text tapi berisi angka yang bisa jadi lebih dari 15 digit, seperti ID sesuatu,Excel akan mengkonversi tipe data dari data text di sisi Source menjadi bertipe numerik di sisi Dest
Wassalam,
Kid.
On Thu, Nov 1, 2012 at 6:01 AM, Emi <emilestariklcc@yahoo.com > wrote:
>
>Dear Guru dan teman BeExcel.
>
>
>Saya mau copy data ke sheet lain, dengan makro di bawah ini, tetapi tidak berhasil.
>
>
>Data di sheet table adalah hasil lookup dari sheet data mentah.
>Saya mau jadikan semua data ini sebagai database dengan copy paste special ke sheet database, supaya tidak bergantung kepada formula, karena data mentah akan dihapus dan diganti dengan yg baru.
>
>
>Mohon pencerahan., apa yg kurang dalam makro ini.
>
>
>
>
>Emi Lestari
>
>
>
>
>
>
>
>
>Sub CopyToDatabase()
> Dim SourceRange As Range, DestRange As Range
> Dim DestSheet As Worksheet, Lr As Long
>
>
> With Application
> .ScreenUpdating = False
> .EnableEvents = False
> End With
>
>
> 'fill in the Source Sheet and range
> Set SourceRange = Sheets("Sheet13").Range("B4:I4")
>
>
> 'Fill in the destination sheet and call the LastRow
> 'function to find the last row
> Set DestSheet = Sheets("Sheet19")
> Lr =LastRow(DestSheet) 'Problemnya di sini
>
>
> 'With the information from the LastRow function we can create a
> 'destination cell
> Set DestRange = DestSheet.Range("B" & Lr + 1)
>
>
> 'We make DestRange the same size as SourceRange and use the Value
> 'property to give DestRange the same values
> With SourceRange
> Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
> End With
> DestRange.Value = SourceRange.Value
>
>
> With Application
> .ScreenUpdating = True
> .EnableEvents = True
> End With
>
>
>End Sub
>
>
>
Tapi masih error di baris akhir
rngDB.PasteSpecial xlPasteValues
Mohon pencerahan supaya dapat dipelajari lagi, filenya dilampirkan.
Wassalam.
Emi Lestari
____________
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Thursday, November 1, 2012 8:32 PM
Subject: Re: [belajar-excel] Copy Paste Special ke worksheet lain
Kalau mau coba, ganti semua isinya dengan :
Dim rngDB As Range 'range di db
Dim lRecIn As Long 'jumlah record input (yang akan di simpan ke db)
'jumlah cell (jumlah cacah) berisi data bertipe numerik yang ada di kolom D sheet13 (bernama Table)
lRecIn = Application.
'cek ada gak data inputnya
If lRecIn > 0 Then 'ada datanya yang mau di simpan
'set anchor cell di sheet19 (bernama database) cell B1
Set rngDB = Sheet19.Range(
'dari anchor, pindah ke baris kosong pertama yang ditemui,
'yaitu lompat (offset) sebanyak jumlah baris dari area
'yang bersinggungan dengan anchor (current region dari b1)
Set rngDB = rngDB.Offset(
Sheet13.Range(
rngDB.PasteSpecial xlPasteValues 'paste special values
End If 'akhir blok if
Ada apa dengan script asli yang bermasalah atau yang berpotensi bermasalah ?
1. Set SourceRange = Sheets("Sheet13"
>> nama sheet dalam worksheet harus bernama Sheet13
>> range yang di-set hanya 1 baris, yaitu baris 4 Excel mulai kolom B sampai I
2. Set DestSheet = Sheets("Sheet19"
>> nama sheet dalam worksheet harus bernama Sheet19
3. Lr =LastRow(DestSheet)
>> harus punya prosedur function bernama LastRow dan menghasilkan (nilai balik fungsi) adalah nilai bertipe numerik long
4. With SourceRange
Set DestRange = DestRange.Resize(
End With>> cell di sheet tujuan (lokasi paste) akan seluas cell yang akan di copy (merah). Dan ini baru di set 1 baris yaitu B4:I4
5. DestRange.Value = SourceRange.
>> untuk data bertipe text tapi berisi angka yang bisa jadi lebih dari 15 digit, seperti ID sesuatu,Excel akan mengkonversi tipe data dari data text di sisi Source menjadi bertipe numerik di sisi Dest
Wassalam,
Kid.
On Thu, Nov 1, 2012 at 6:01 AM, Emi <emilestariklcc@
>
>Dear Guru dan teman BeExcel.
>
>
>Saya mau copy data ke sheet lain, dengan makro di bawah ini, tetapi tidak berhasil.
>
>
>Data di sheet table adalah hasil lookup dari sheet data mentah.
>Saya mau jadikan semua data ini sebagai database dengan copy paste special ke sheet database, supaya tidak bergantung kepada formula, karena data mentah akan dihapus dan diganti dengan yg baru.
>
>
>Mohon pencerahan., apa yg kurang dalam makro ini.
>
>
>
>
>Emi Lestari
>
>
>
>
>
>
>
>
>Sub CopyToDatabase(
> Dim SourceRange As Range, DestRange As Range
> Dim DestSheet As Worksheet, Lr As Long
>
>
> With Application
> .ScreenUpdating = False
> .EnableEvents = False
> End With
>
>
> 'fill in the Source Sheet and range
> Set SourceRange = Sheets("Sheet13"
>
>
> 'Fill in the destination sheet and call the LastRow
> 'function to find the last row
> Set DestSheet = Sheets("Sheet19"
> Lr =LastRow(DestSheet) 'Problemnya di sini
>
>
> 'With the information from the LastRow function we can create a
> 'destination cell
> Set DestRange = DestSheet.Range(
>
>
> 'We make DestRange the same size as SourceRange and use the Value
> 'property to give DestRange the same values
> With SourceRange
> Set DestRange = DestRange.Resize(
> End With
> DestRange.Value = SourceRange.
>
>
> With Application
> .ScreenUpdating = True
> .EnableEvents = True
> End With
>
>
>End Sub
>
>
>
Thu Nov 1, 2012 5:55 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Kok di komputer saya semuanya berjalan dengan baik ya.
Wassalam,
Kid.
2012/11/2 Emi <emilestariklcc@yahoo.com >
> **
>
>
> Makasih Pak Kid,
>
> Tapi masih error di baris akhir
>
> rngDB.PasteSpecial xlPasteValues
>
> Mohon pencerahan supaya dapat dipelajari lagi, filenya dilampirkan.
>
> Wassalam.
>
> Emi Lestari
>
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, November 1, 2012 8:32 PM
> *Subject:* Re: [belajar-excel] Copy Paste Special ke worksheet lain
>
>
> Kalau mau coba, ganti semua isinya dengan :
> Dim rngDB As Range 'range di db
> Dim lRecIn As Long 'jumlah record input (yang akan di simpan
> ke db)
>
> 'jumlah cell (jumlah cacah) berisi data bertipe numerik yang ada di
> kolom D sheet13 (bernama Table)
> lRecIn =
> Application.WorksheetFunction.Count(Sheet13.Range("d1").EntireColumn)
>
> 'cek ada gak data inputnya
> If lRecIn > 0 Then 'ada
> datanya yang mau di simpan
> 'set anchor cell di sheet19 (bernama database) cell B1
> Set rngDB = Sheet19.Range("b1")
>
> 'dari anchor, pindah ke baris kosong pertama yang ditemui,
> 'yaitu lompat (offset) sebanyak jumlah baris dari area
> 'yang bersinggungan dengan anchor (current region dari b1)
> Set rngDB = rngDB.Offset(rngDB.CurrentRegion.Rows.Count)
>
> Sheet13.Range("b4:i4").Resize(lRecIn).Copy 'copy
> rngDB.PasteSpecial xlPasteValues 'paste
> special values
> End If 'akhir
> blok if
>
> Ada apa dengan script asli yang bermasalah atau yang berpotensi bermasalah
> ?
> 1. Set SourceRange = Sheets("Sheet13").Range("B4:I4")
> >> nama sheet dalam worksheet *harus* bernama Sheet13
> >> range yang di-set hanya 1 baris, yaitu baris 4 Excel mulai kolom B
> sampai I
>
> 2. Set DestSheet = Sheets("Sheet19")
> >> nama sheet dalam worksheet *harus* bernama Sheet19
>
> 3. Lr = LastRow(DestSheet)
> >> *harus *punya prosedur function bernama LastRow dan menghasilkan
> (nilai balik fungsi) adalah nilai bertipe numerik long
>
> 4. With SourceRange
> Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
> End With
> >> cell di sheet tujuan (lokasi paste) akan seluas cell yang akan di copy
> (merah). Dan ini baru di set 1 baris yaitu B4:I4
>
> 5. DestRange.Value = SourceRange.Value
> >> untuk data bertipe text tapi berisi angka yang bisa jadi lebih dari 15
> digit, seperti ID sesuatu, Excel akan mengkonversi tipe data dari data
> text di sisi Source menjadi bertipe numerik di sisi Dest
>
> Wassalam,
> Kid.
>
>
>
>
>
>
> On Thu, Nov 1, 2012 at 6:01 AM, Emi <emilestariklcc@yahoo.com > wrote:
>
> **
>
> Dear Guru dan teman BeExcel.
>
> Saya mau copy data ke sheet lain, dengan makro di bawah ini, tetapi tidak
> berhasil.
>
> Data di sheet table adalah hasil lookup dari sheet data mentah.
> Saya mau jadikan semua data ini sebagai database dengan copy paste special
> ke sheet database, supaya tidak bergantung kepada formula, karena data
> mentah akan dihapus dan diganti dengan yg baru.
>
> Mohon pencerahan., apa yg kurang dalam makro ini.
>
>
> Emi Lestari
>
>
>
>
> Sub CopyToDatabase()
> Dim SourceRange As Range, DestRange As Range
> Dim DestSheet As Worksheet, Lr As Long
>
> With Application
> .ScreenUpdating = False
> .EnableEvents = False
> End With
>
> 'fill in the Source Sheet and range
> Set SourceRange = Sheets("Sheet13").Range("B4:I4")
>
> 'Fill in the destination sheet and call the LastRow
> 'function to find the last row
> Set DestSheet = Sheets("Sheet19")
> Lr = LastRow(DestSheet) 'Problemnya di sini
>
> 'With the information from the LastRow function we can create a
> 'destination cell
> Set DestRange = DestSheet.Range("B" & Lr + 1)
>
> 'We make DestRange the same size as SourceRange and use the Value
> 'property to give DestRange the same values
> With SourceRange
> Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
> End With
> DestRange.Value = SourceRange.Value
>
> With Application
> .ScreenUpdating = True
> .EnableEvents = True
> End With
>
> End Sub
>
>
>
>
>
>
>
Wassalam,
Kid.
2012/11/2 Emi <emilestariklcc@
> **
>
>
> Makasih Pak Kid,
>
> Tapi masih error di baris akhir
>
> rngDB.PasteSpecial xlPasteValues
>
> Mohon pencerahan supaya dapat dipelajari lagi, filenya dilampirkan.
>
> Wassalam.
>
> Emi Lestari
>
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Thursday, November 1, 2012 8:32 PM
> *Subject:* Re: [belajar-excel] Copy Paste Special ke worksheet lain
>
>
> Kalau mau coba, ganti semua isinya dengan :
> Dim rngDB As Range 'range di db
> Dim lRecIn As Long 'jumlah record input (yang akan di simpan
> ke db)
>
> 'jumlah cell (jumlah cacah) berisi data bertipe numerik yang ada di
> kolom D sheet13 (bernama Table)
> lRecIn =
> Application.
>
> 'cek ada gak data inputnya
> If lRecIn > 0 Then 'ada
> datanya yang mau di simpan
> 'set anchor cell di sheet19 (bernama database) cell B1
> Set rngDB = Sheet19.Range(
>
> 'dari anchor, pindah ke baris kosong pertama yang ditemui,
> 'yaitu lompat (offset) sebanyak jumlah baris dari area
> 'yang bersinggungan dengan anchor (current region dari b1)
> Set rngDB = rngDB.Offset(
>
> Sheet13.Range(
> rngDB.PasteSpecial xlPasteValues 'paste
> special values
> End If 'akhir
> blok if
>
> Ada apa dengan script asli yang bermasalah atau yang berpotensi bermasalah
> ?
> 1. Set SourceRange = Sheets("Sheet13"
> >> nama sheet dalam worksheet *harus* bernama Sheet13
> >> range yang di-set hanya 1 baris, yaitu baris 4 Excel mulai kolom B
> sampai I
>
> 2. Set DestSheet = Sheets("Sheet19"
> >> nama sheet dalam worksheet *harus* bernama Sheet19
>
> 3. Lr = LastRow(DestSheet)
> >> *harus *punya prosedur function bernama LastRow dan menghasilkan
> (nilai balik fungsi) adalah nilai bertipe numerik long
>
> 4. With SourceRange
> Set DestRange = DestRange.Resize(
> End With
> >> cell di sheet tujuan (lokasi paste) akan seluas cell yang akan di copy
> (merah). Dan ini baru di set 1 baris yaitu B4:I4
>
> 5. DestRange.Value = SourceRange.
> >> untuk data bertipe text tapi berisi angka yang bisa jadi lebih dari 15
> digit, seperti ID sesuatu, Excel akan mengkonversi tipe data dari data
> text di sisi Source menjadi bertipe numerik di sisi Dest
>
> Wassalam,
> Kid.
>
>
>
>
>
>
> On Thu, Nov 1, 2012 at 6:01 AM, Emi <emilestariklcc@
>
> **
>
> Dear Guru dan teman BeExcel.
>
> Saya mau copy data ke sheet lain, dengan makro di bawah ini, tetapi tidak
> berhasil.
>
> Data di sheet table adalah hasil lookup dari sheet data mentah.
> Saya mau jadikan semua data ini sebagai database dengan copy paste special
> ke sheet database, supaya tidak bergantung kepada formula, karena data
> mentah akan dihapus dan diganti dengan yg baru.
>
> Mohon pencerahan., apa yg kurang dalam makro ini.
>
>
> Emi Lestari
>
>
>
>
> Sub CopyToDatabase(
> Dim SourceRange As Range, DestRange As Range
> Dim DestSheet As Worksheet, Lr As Long
>
> With Application
> .ScreenUpdating = False
> .EnableEvents = False
> End With
>
> 'fill in the Source Sheet and range
> Set SourceRange = Sheets("Sheet13"
>
> 'Fill in the destination sheet and call the LastRow
> 'function to find the last row
> Set DestSheet = Sheets("Sheet19"
> Lr = LastRow(DestSheet) 'Problemnya di sini
>
> 'With the information from the LastRow function we can create a
> 'destination cell
> Set DestRange = DestSheet.Range(
>
> 'We make DestRange the same size as SourceRange and use the Value
> 'property to give DestRange the same values
> With SourceRange
> Set DestRange = DestRange.Resize(
> End With
> DestRange.Value = SourceRange.
>
> With Application
> .ScreenUpdating = True
> .EnableEvents = True
> End With
>
> End Sub
>
>
>
>
>
>
>
Thu Nov 1, 2012 11:49 pm (PDT) . Posted by:
"Emi" emilestariklcc
Sudah ok Pak Kid.
Sekarang saya mau tambah auto numbering di kolom A, sheet 19, bermula dari baris excel yg ke 4 .Apakah kode ini sesuai dengan kasus ini?
Saya juga mau buat auto bordering.
With .Formula = "=row()-3"
Sheet19.Calculate
.Value = .Resize(, 1).Value
.BorderAround xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End With
Terima kasih
Wassalam
Emi Lestari
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, November 2, 2012 8:54 AM
Subject: Re: [belajar-excel] Copy Paste Special ke worksheet lain
Kok di komputer saya semuanya berjalan dengan baikya.
Wassalam,
Kid.
2012/11/2 Emi <emilestariklcc@yahoo.com >
>Makasih Pak Kid,
>
>
>Tapi masih error di baris akhir
>
>
>rngDB.PasteSpecial xlPasteValues
>
>
>
>Mohon pencerahan supaya dapat dipelajari lagi, filenya dilampirkan.
>
>
>Wassalam.
>
>
>Emi Lestari
>
>
>
>
>
>________________________________
>From: Mr. Kid <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, November 1, 2012 8:32 PM
>Subject: Re: [belajar-excel] Copy Paste Special ke worksheet lain
>
>
>Kalau mau coba, ganti semua isinya dengan :
> Dim rngDB As Range 'range di db
> Dim lRecIn As Long 'jumlah record input (yang akan di simpan ke db)
>
> 'jumlah cell (jumlah cacah) berisi data bertipe numerik yang ada di kolom D sheet13 (bernama Table)
> lRecIn = Application.WorksheetFunction.Count(Sheet13.Range("d1").EntireColumn)
>
> 'cek ada gak data inputnya
> If lRecIn > 0 Then 'ada datanya yang mau di simpan
> 'set anchor cell di sheet19 (bernama database) cell B1
> Set rngDB = Sheet19.Range("b1")
>
> 'dari anchor, pindah ke baris kosong pertama yang ditemui,
> 'yaitu lompat (offset) sebanyak jumlah baris dari area
> 'yang bersinggungan dengan anchor (current region dari b1)
> Set rngDB = rngDB.Offset(rngDB.CurrentRegion.Rows.Count)
>
> Sheet13.Range("b4:i4").Resize(lRecIn).Copy 'copy
> rngDB.PasteSpecial xlPasteValues 'paste special values
> End If 'akhir blok if
>
>Ada apa dengan script asli yang bermasalah atau yang berpotensi bermasalah ?
>1. Set SourceRange = Sheets("Sheet13").Range("B4:I4")
>>> nama sheet dalam worksheet harus bernama Sheet13
>>> range yang di-set hanya 1 baris, yaitu baris 4 Excel mulai kolom B sampai I
>
>2. Set DestSheet = Sheets("Sheet19")
>>> nama sheet dalam worksheet harus bernama Sheet193. Lr =LastRow(DestSheet)
>>> harus punya prosedur function bernama LastRow dan menghasilkan (nilai balik fungsi) adalah nilai bertipe numerik long4. With SourceRange
> Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
> End With>> cell di sheet tujuan (lokasi paste) akan seluas cell yang akan di copy (merah). Dan ini baru di set 1 baris yaitu B4:I4
>
>5. DestRange.Value = SourceRange.Value
>>> untuk data bertipe text tapi berisi angka yang bisa jadi lebih dari 15 digit, seperti ID sesuatu,Excel akan mengkonversi tipe data dari data text di sisi Source menjadi bertipe numerik di sisi Dest
>
>Wassalam,
>Kid.
>
>On Thu, Nov 1, 2012 at 6:01 AM, Emi <emilestariklcc@yahoo.com > wrote:
>
>>Dear Guru dan teman BeExcel.
>>
>>
>>Saya mau copy data ke sheet lain, dengan makro di bawah ini, tetapi tidak berhasil.
>>
>>
>>Data di sheet table adalah hasil lookup dari sheet data mentah.
>>Saya mau jadikan semua data ini sebagai database dengan copy paste special ke sheet database, supaya tidak bergantung kepada formula, karena data mentah akan dihapus dan diganti dengan yg baru.
>>
>>
>>Mohon pencerahan., apa yg kurang dalam makro ini.
>>
>>
>>
>>
>>Emi Lestari
>>
>>
>>
>>
>>
>>
>>
>>
>>Sub CopyToDatabase()
>> Dim SourceRange As Range, DestRange As Range
>> Dim DestSheet As Worksheet, Lr As Long
>>
>>
>> With Application
>> .ScreenUpdating = False
>> .EnableEvents = False
>> End With
>>
>>
>> 'fill in the Source Sheet and range
>> Set SourceRange = Sheets("Sheet13").Range("B4:I4")
>>
>>
>> 'Fill in the destination sheet and call the LastRow
>> 'function to find the last row
>> Set DestSheet = Sheets("Sheet19")
>> Lr =LastRow(DestSheet) 'Problemnya di sini
>>
>>
>> 'With the information from the LastRow function we can create a
>> 'destination cell
>> Set DestRange = DestSheet.Range("B" & Lr + 1)
>>
>>
>> 'We make DestRange the same size as SourceRange and use the Value
>> 'property to give DestRange the same values
>> With SourceRange
>> Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
>> End With
>> DestRange.Value = SourceRange.Value
>>
>>
>> With Application
>> .ScreenUpdating = True
>> .EnableEvents = True
>> End With
>>
>>
>>End Sub
>>
>>
Sekarang saya mau tambah auto numbering di kolom A, sheet 19, bermula dari baris excel yg ke 4 .Apakah kode ini sesuai dengan kasus ini?
Saya juga mau buat auto bordering.
With .Formula = "=row()-3"
Sheet19.Calculate
.Value = .Resize(, 1).Value
.BorderAround xlContinuous
.Borders(xlInsideHo
End With
Terima kasih
Wassalam
Emi Lestari
____________
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Friday, November 2, 2012 8:54 AM
Subject: Re: [belajar-excel] Copy Paste Special ke worksheet lain
Kok di komputer saya semuanya berjalan dengan baikya.
Wassalam,
Kid.
2012/11/2 Emi <emilestariklcc@
>Makasih Pak Kid,
>
>
>Tapi masih error di baris akhir
>
>
>rngDB.PasteSpecial xlPasteValues
>
>
>
>Mohon pencerahan supaya dapat dipelajari lagi, filenya dilampirkan.
>
>
>Wassalam.
>
>
>Emi Lestari
>
>
>
>
>
>___________
>From: Mr. Kid <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Thursday, November 1, 2012 8:32 PM
>Subject: Re: [belajar-excel] Copy Paste Special ke worksheet lain
>
>
>Kalau mau coba, ganti semua isinya dengan :
> Dim rngDB As Range 'range di db
> Dim lRecIn As Long 'jumlah record input (yang akan di simpan ke db)
>
> 'jumlah cell (jumlah cacah) berisi data bertipe numerik yang ada di kolom D sheet13 (bernama Table)
> lRecIn = Application.
>
> 'cek ada gak data inputnya
> If lRecIn > 0 Then 'ada datanya yang mau di simpan
> 'set anchor cell di sheet19 (bernama database) cell B1
> Set rngDB = Sheet19.Range(
>
> 'dari anchor, pindah ke baris kosong pertama yang ditemui,
> 'yaitu lompat (offset) sebanyak jumlah baris dari area
> 'yang bersinggungan dengan anchor (current region dari b1)
> Set rngDB = rngDB.Offset(
>
> Sheet13.Range(
> rngDB.PasteSpecial xlPasteValues 'paste special values
> End If 'akhir blok if
>
>Ada apa dengan script asli yang bermasalah atau yang berpotensi bermasalah ?
>1. Set SourceRange = Sheets("Sheet13"
>>> nama sheet dalam worksheet harus bernama Sheet13
>>> range yang di-set hanya 1 baris, yaitu baris 4 Excel mulai kolom B sampai I
>
>2. Set DestSheet = Sheets("Sheet19"
>>> nama sheet dalam worksheet harus bernama Sheet193. Lr =LastRow(DestSheet)
>>> harus punya prosedur function bernama LastRow dan menghasilkan (nilai balik fungsi) adalah nilai bertipe numerik long4. With SourceRange
> Set DestRange = DestRange.Resize(
> End With>> cell di sheet tujuan (lokasi paste) akan seluas cell yang akan di copy (merah). Dan ini baru di set 1 baris yaitu B4:I4
>
>5. DestRange.Value = SourceRange.
>>> untuk data bertipe text tapi berisi angka yang bisa jadi lebih dari 15 digit, seperti ID sesuatu,Excel akan mengkonversi tipe data dari data text di sisi Source menjadi bertipe numerik di sisi Dest
>
>Wassalam,
>Kid.
>
>On Thu, Nov 1, 2012 at 6:01 AM, Emi <emilestariklcc@
>
>>Dear Guru dan teman BeExcel.
>>
>>
>>Saya mau copy data ke sheet lain, dengan makro di bawah ini, tetapi tidak berhasil.
>>
>>
>>Data di sheet table adalah hasil lookup dari sheet data mentah.
>>Saya mau jadikan semua data ini sebagai database dengan copy paste special ke sheet database, supaya tidak bergantung kepada formula, karena data mentah akan dihapus dan diganti dengan yg baru.
>>
>>
>>Mohon pencerahan., apa yg kurang dalam makro ini.
>>
>>
>>
>>
>>Emi Lestari
>>
>>
>>
>>
>>
>>
>>
>>
>>Sub CopyToDatabase(
>> Dim SourceRange As Range, DestRange As Range
>> Dim DestSheet As Worksheet, Lr As Long
>>
>>
>> With Application
>> .ScreenUpdating = False
>> .EnableEvents = False
>> End With
>>
>>
>> 'fill in the Source Sheet and range
>> Set SourceRange = Sheets("Sheet13"
>>
>>
>> 'Fill in the destination sheet and call the LastRow
>> 'function to find the last row
>> Set DestSheet = Sheets("Sheet19"
>> Lr =LastRow(DestSheet) 'Problemnya di sini
>>
>>
>> 'With the information from the LastRow function we can create a
>> 'destination cell
>> Set DestRange = DestSheet.Range(
>>
>>
>> 'We make DestRange the same size as SourceRange and use the Value
>> 'property to give DestRange the same values
>> With SourceRange
>> Set DestRange = DestRange.Resize(
>> End With
>> DestRange.Value = SourceRange.
>>
>>
>> With Application
>> .ScreenUpdating = True
>> .EnableEvents = True
>> End With
>>
>>
>>End Sub
>>
>>
Thu Nov 1, 2012 5:37 pm (PDT) . Posted by:
"him mah"
misal begini
di userform
Private Sub cmdHapus_Click()
HapusData
End Sub
terus di module ada prosedur seperti ini
Sub HapusData()
sheets("aku").select
pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
If pesan = vbYes Then
ProsesA
ElseIf pesan = vbNo Then
ProsesB
else
txtTahun.SetFocus
End If
End Sub
ketika pilihannya VbCancel maka akan kembali ke UserForm dan Focus ke txtTahun
kira-kira bagaimana ya. kalau prosesnya masih di userform sih ngga masalah
Pada tanggal 01/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
> Coba didalam event click si CommandButton diberi baris perintah untuk set
> fokus ke combobox.
> ComboBox.setfocus
>
> Tidak semua object control bisa menerima aksi dari setfocus.
>
> Wassalam,
> Kid.
>
>
> 2012/11/1 him mah <himmah.mlg@gmail.com >
>
>> **
>>
>>
>> maaf kalau tidak merepotkan. vba nya di paste disini. karena belum
>> bisa buka lampirannya. terima kasih
>>
>>
>
di userform
Private Sub cmdHapus_Click(
HapusData
End Sub
terus di module ada prosedur seperti ini
Sub HapusData()
sheets("aku"
pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
If pesan = vbYes Then
ProsesA
ElseIf pesan = vbNo Then
ProsesB
else
txtTahun.SetFocus
End If
End Sub
ketika pilihannya VbCancel maka akan kembali ke UserForm dan Focus ke txtTahun
kira-kira bagaimana ya. kalau prosesnya masih di userform sih ngga masalah
Pada tanggal 01/11/12, Mr. Kid <mr.nmkid@gmail.
> Coba didalam event click si CommandButton diberi baris perintah untuk set
> fokus ke combobox.
> ComboBox.setfocus
>
> Tidak semua object control bisa menerima aksi dari setfocus.
>
> Wassalam,
> Kid.
>
>
> 2012/11/1 him mah <himmah.mlg@gmail.
>
>> **
>>
>>
>> maaf kalau tidak merepotkan. vba nya di paste disini. karena belum
>> bisa buka lampirannya. terima kasih
>>
>>
>
Thu Nov 1, 2012 5:38 pm (PDT) . Posted by:
"him mah"
misal begini
di userform
Private Sub cmdHapus_Click()
HapusData
End Sub
terus di module ada prosedur seperti ini
Sub HapusData()
sheets("aku").select
pesan = MsgBox("Apakah data sebelumnya akan dihapus",
vbYesNoCancel, "cek")
If pesan = vbYes Then
ProsesA
ElseIf pesan = vbNo Then
ProsesB
else
txtTahun.SetFocus
End If
End Sub
ketika pilihannya VbCancel maka akan kembali ke UserForm dan Focus ke txtTahun
kira-kira bagaimana ya. kalau prosesnya masih di userform sih ngga masalah
di userform
Private Sub cmdHapus_Click(
HapusData
End Sub
terus di module ada prosedur seperti ini
Sub HapusData()
sheets("aku"
pesan = MsgBox("Apakah data sebelumnya akan dihapus",
vbYesNoCancel, "cek")
If pesan = vbYes Then
ProsesA
ElseIf pesan = vbNo Then
ProsesB
else
txtTahun.SetFocus
End If
End Sub
ketika pilihannya VbCancel maka akan kembali ke UserForm dan Focus ke txtTahun
kira-kira bagaimana ya. kalau prosesnya masih di userform sih ngga masalah
Thu Nov 1, 2012 5:39 pm (PDT) . Posted by:
"him mah"
misal begini
di userform
Private Sub cmdHapus_Click()
HapusData
End Sub
terus di module ada prosedur seperti ini
Sub HapusData()
sheets("aku").select
pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
If pesan = vbYes Then
ProsesA
ElseIf pesan = vbNo Then
ProsesB
else
txtTahun.SetFocus
End If
End Sub
ketika pilihannya VbCancel maka akan kembali ke UserForm dan Focus ke txtTahun
kira-kira bagaimana ya. kalau prosesnya masih di userform sih ngga masalah
di userform
Private Sub cmdHapus_Click(
HapusData
End Sub
terus di module ada prosedur seperti ini
Sub HapusData()
sheets("aku"
pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
If pesan = vbYes Then
ProsesA
ElseIf pesan = vbNo Then
ProsesB
else
txtTahun.SetFocus
End If
End Sub
ketika pilihannya VbCancel maka akan kembali ke UserForm dan Focus ke txtTahun
kira-kira bagaimana ya. kalau prosesnya masih di userform sih ngga masalah
Thu Nov 1, 2012 5:44 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba ganti :
pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
menjadi :
pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNoCancel, "cek")
Wassalam,
Kid.
2012/11/2 him mah <himmah.mlg@gmail.com >
> **
>
>
> misal begini
> di userform
>
> Private Sub cmdHapus_Click()
> HapusData
> End Sub
>
> terus di module ada prosedur seperti ini
>
> Sub HapusData()
> sheets("aku").select
> pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
>
> If pesan = vbYes Then
> ProsesA
> ElseIf pesan = vbNo Then
> ProsesB
> else
> txtTahun.SetFocus
> End If
> End Sub
>
> ketika pilihannya VbCancel maka akan kembali ke UserForm dan Focus ke
> txtTahun
> kira-kira bagaimana ya. kalau prosesnya masih di userform sih ngga masalah
>
> Pada tanggal 01/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
>
> > Coba didalam event click si CommandButton diberi baris perintah untuk set
> > fokus ke combobox.
> > ComboBox.setfocus
> >
> > Tidak semua object control bisa menerima aksi dari setfocus.
> >
> > Wassalam,
> > Kid.
> >
> >
> > 2012/11/1 him mah <himmah.mlg@gmail.com >
> >
> >> **
>
> >>
> >>
> >> maaf kalau tidak merepotkan. vba nya di paste disini. karena belum
> >> bisa buka lampirannya. terima kasih
> >>
> >>
> >
>
>
>
pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
menjadi :
pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNoCancel, "cek")
Wassalam,
Kid.
2012/11/2 him mah <himmah.mlg@gmail.
> **
>
>
> misal begini
> di userform
>
> Private Sub cmdHapus_Click(
> HapusData
> End Sub
>
> terus di module ada prosedur seperti ini
>
> Sub HapusData()
> sheets("aku"
> pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
>
> If pesan = vbYes Then
> ProsesA
> ElseIf pesan = vbNo Then
> ProsesB
> else
> txtTahun.SetFocus
> End If
> End Sub
>
> ketika pilihannya VbCancel maka akan kembali ke UserForm dan Focus ke
> txtTahun
> kira-kira bagaimana ya. kalau prosesnya masih di userform sih ngga masalah
>
> Pada tanggal 01/11/12, Mr. Kid <mr.nmkid@gmail.
>
> > Coba didalam event click si CommandButton diberi baris perintah untuk set
> > fokus ke combobox.
> > ComboBox.setfocus
> >
> > Tidak semua object control bisa menerima aksi dari setfocus.
> >
> > Wassalam,
> > Kid.
> >
> >
> > 2012/11/1 him mah <himmah.mlg@gmail.
> >
> >> **
>
> >>
> >>
> >> maaf kalau tidak merepotkan. vba nya di paste disini. karena belum
> >> bisa buka lampirannya. terima kasih
> >>
> >>
> >
>
>
>
Thu Nov 1, 2012 6:00 pm (PDT) . Posted by:
"him mah"
maaf pak kid masalahnya bukan disitu, tadi saya salah ngetik
seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
vbYesNoCancel, "cek")
nah ketika kita pilih vbCancel
contoh filenya saya lampirkan
Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
> Coba ganti :
> pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
> menjadi :
> pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNoCancel, "cek")
seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
vbYesNoCancel, "cek")
nah ketika kita pilih vbCancel
contoh filenya saya lampirkan
Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
> Coba ganti :
> pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
> menjadi :
> pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNoCancel, "cek")
Thu Nov 1, 2012 6:07 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
oh jadi sudah diset vbyesnocancel dan sudah bukan di module si form.
kalau gitu set fokus nya panggil si mbahnya dulu...
misal nama form adalah userform1
control yang akan diambil adalah txtTahun
userfom1.txtTahun.setfocus
Wassalam,
Kid.
2012/11/2 him mah <himmah.mlg@gmail.com >
> **
>
>
> maaf pak kid masalahnya bukan disitu, tadi saya salah ngetik
> seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
> vbYesNoCancel, "cek")
>
> nah ketika kita pilih vbCancel
> contoh filenya saya lampirkan
>
> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
>
> > Coba ganti :
> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
> > menjadi :
> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNoCancel,
> "cek")
>
>
>
kalau gitu set fokus nya panggil si mbahnya dulu...
misal nama form adalah userform1
control yang akan diambil adalah txtTahun
userfom1.txtTahun.
Wassalam,
Kid.
2012/11/2 him mah <himmah.mlg@gmail.
> **
>
>
> maaf pak kid masalahnya bukan disitu, tadi saya salah ngetik
> seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
> vbYesNoCancel, "cek")
>
> nah ketika kita pilih vbCancel
> contoh filenya saya lampirkan
>
> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
>
> > Coba ganti :
> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
> > menjadi :
> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNoCancel,
> "cek")
>
>
>
Thu Nov 1, 2012 6:13 pm (PDT) . Posted by:
"him mah"
iya makasih pak Kid, kemarin saya coba seperti itu ngga bisa. mungkin
benar tidak semua control mau setFocus
Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
> oh jadi sudah diset vbyesnocancel dan sudah bukan di module si form.
> kalau gitu set fokus nya panggil si mbahnya dulu...
>
> misal nama form adalah userform1
> control yang akan diambil adalah txtTahun
> userfom1.txtTahun.setfocus
>
> Wassalam,
> Kid.
>
>
>
>
> 2012/11/2 him mah <himmah.mlg@gmail.com >
>
>> **
>>
>>
>> maaf pak kid masalahnya bukan disitu, tadi saya salah ngetik
>> seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
>> vbYesNoCancel, "cek")
>>
>> nah ketika kita pilih vbCancel
>> contoh filenya saya lampirkan
>>
>> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
>>
>> > Coba ganti :
>> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
>> > menjadi :
>> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNoCancel,
>> "cek")
>>
>>
>>
>
benar tidak semua control mau setFocus
Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
> oh jadi sudah diset vbyesnocancel dan sudah bukan di module si form.
> kalau gitu set fokus nya panggil si mbahnya dulu...
>
> misal nama form adalah userform1
> control yang akan diambil adalah txtTahun
> userfom1.txtTahun.
>
> Wassalam,
> Kid.
>
>
>
>
> 2012/11/2 him mah <himmah.mlg@gmail.
>
>> **
>>
>>
>> maaf pak kid masalahnya bukan disitu, tadi saya salah ngetik
>> seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
>> vbYesNoCancel, "cek")
>>
>> nah ketika kita pilih vbCancel
>> contoh filenya saya lampirkan
>>
>> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
>>
>> > Coba ganti :
>> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
>> > menjadi :
>> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNoCancel,
>> "cek")
>>
>>
>>
>
Thu Nov 1, 2012 6:25 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Kalau TextBox masih bisa di-set focus. Label control yang gak bisa.
2012/11/2 him mah <himmah.mlg@gmail.com >
> **
>
>
> iya makasih pak Kid, kemarin saya coba seperti itu ngga bisa. mungkin
> benar tidak semua control mau setFocus
>
>
> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
> > oh jadi sudah diset vbyesnocancel dan sudah bukan di module si form.
> > kalau gitu set fokus nya panggil si mbahnya dulu...
> >
> > misal nama form adalah userform1
> > control yang akan diambil adalah txtTahun
> > userfom1.txtTahun.setfocus
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> >
> > 2012/11/2 him mah <himmah.mlg@gmail.com >
> >
> >> **
>
> >>
> >>
> >> maaf pak kid masalahnya bukan disitu, tadi saya salah ngetik
> >> seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
> >> vbYesNoCancel, "cek")
> >>
> >> nah ketika kita pilih vbCancel
> >> contoh filenya saya lampirkan
> >>
> >> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
> >>
> >> > Coba ganti :
> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
> >> > menjadi :
> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNoCancel,
> >> "cek")
> >>
> >>
> >>
> >
>
>
>
2012/11/2 him mah <himmah.mlg@gmail.
> **
>
>
> iya makasih pak Kid, kemarin saya coba seperti itu ngga bisa. mungkin
> benar tidak semua control mau setFocus
>
>
> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
> > oh jadi sudah diset vbyesnocancel dan sudah bukan di module si form.
> > kalau gitu set fokus nya panggil si mbahnya dulu...
> >
> > misal nama form adalah userform1
> > control yang akan diambil adalah txtTahun
> > userfom1.txtTahun.
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> >
> > 2012/11/2 him mah <himmah.mlg@gmail.
> >
> >> **
>
> >>
> >>
> >> maaf pak kid masalahnya bukan disitu, tadi saya salah ngetik
> >> seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
> >> vbYesNoCancel, "cek")
> >>
> >> nah ketika kita pilih vbCancel
> >> contoh filenya saya lampirkan
> >>
> >> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
> >>
> >> > Coba ganti :
> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo, "cek")
> >> > menjadi :
> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNoCancel,
> >> "cek")
> >>
> >>
> >>
> >
>
>
>
Thu Nov 1, 2012 7:19 pm (PDT) . Posted by:
"HaDi SyaH" face_call15
dear para master ada yg ingin sy tanyakan lagi
mas pada file yg saya lampirkan bagaimana cara mengubah tabel pada
sheets 1 menjadi tabel seperti pada sheets 2, kalau harus di rubah satu2 datanya ribuan, mohon pencerahannya, apakah mengunakan formula, macro
atau vba, trimakasih
mas pada file yg saya lampirkan bagaimana cara mengubah tabel pada
sheets 1 menjadi tabel seperti pada sheets 2, kalau harus di rubah satu2 datanya ribuan, mohon pencerahannya, apakah mengunakan formula, macro
atau vba, trimakasih
Thu Nov 1, 2012 7:46 pm (PDT) . Posted by:
"Prodev SIMPLE PB" prodev_simple
Assalamu'alaikum Wr. Wb.
Mohon maaf ... kite nongol lagi nih.
Terima kasih banyak atas solusi permasalahan sebelumnya.
Hari ini aye mau nanya lagi nih ... masih seputar penggunaan 'Tanggal' (masih seneng utak-atik menu ini)
Pertanyaannye :
Bagaimana rumus untuk menggunakan CF untuk tanggal pada tabel yang sesuai dengan tanggal hari ini (TODAY)
Untuk lebih jelasnya, file terlampir.
Demikian sekilas pertanyaannya, atas perhatian dan solusinya diucapkan terima kasih banyak.
Wassalam.
- prodev simple -
Mohon maaf ... kite nongol lagi nih.
Terima kasih banyak atas solusi permasalahan sebelumnya.
Hari ini aye mau nanya lagi nih ... masih seputar penggunaan 'Tanggal' (masih seneng utak-atik menu ini)
Pertanyaannye :
Bagaimana rumus untuk menggunakan CF untuk tanggal pada tabel yang sesuai dengan tanggal hari ini (TODAY)
Untuk lebih jelasnya, file terlampir.
Demikian sekilas pertanyaannya, atas perhatian dan solusinya diucapkan terima kasih banyak.
Wassalam.
- prodev simple -
Thu Nov 1, 2012 8:57 pm (PDT) . Posted by:
"Bagus" bagus4bls
Wa'alaikum salam warohmatullohi wabarokatuhu.
File terlampir semoga sesuai harapan;
Wassalam..
Bagus
----- Original Message -----
From: Prodev SIMPLE PB
To: Belajar Excel Milis
Sent: Friday, November 02, 2012 9:36 AM
Subject: [belajar-excel] Kombinasi Tanggal & Conditional Formatting (CF)
Assalamu'alaikum Wr. Wb.
Mohon maaf ... kite nongol lagi nih.
Terima kasih banyak atas solusi permasalahan sebelumnya.
Hari ini aye mau nanya lagi nih ... masih seputar penggunaan 'Tanggal' (masih seneng utak-atik menu ini)
Pertanyaannye :
Bagaimana rumus untuk menggunakan CF untuk tanggal pada tabel yang sesuai dengan tanggal hari ini (TODAY)
Untuk lebih jelasnya, file terlampir.
Demikian sekilas pertanyaannya, atas perhatian dan solusinya diucapkan terima kasih banyak.
Wassalam.
- prodev simple -
File terlampir semoga sesuai harapan;
Wassalam..
Bagus
----- Original Message -----
From: Prodev SIMPLE PB
To: Belajar Excel Milis
Sent: Friday, November 02, 2012 9:36 AM
Subject: [belajar-excel] Kombinasi Tanggal & Conditional Formatting (CF)
Assalamu'alaikum Wr. Wb.
Mohon maaf ... kite nongol lagi nih.
Terima kasih banyak atas solusi permasalahan sebelumnya.
Hari ini aye mau nanya lagi nih ... masih seputar penggunaan 'Tanggal' (masih seneng utak-atik menu ini)
Pertanyaannye :
Bagaimana rumus untuk menggunakan CF untuk tanggal pada tabel yang sesuai dengan tanggal hari ini (TODAY)
Untuk lebih jelasnya, file terlampir.
Demikian sekilas pertanyaannya, atas perhatian dan solusinya diucapkan terima kasih banyak.
Wassalam.
- prodev simple -
Thu Nov 1, 2012 9:26 pm (PDT) . Posted by:
"Prodev SIMPLE PB" prodev_simple
Terima kasih banyak Mr. Bagus atas solusinya.
Insya Alloh sangat bermanfaat.
- prodev simple -
________________________________
Dari: Bagus <bagus@kingjim.co.id >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 2 November 2012 10:55
Judul: Re: [belajar-excel] Kombinasi Tanggal & Conditional Formatting (CF)
Wa'alaikum salam warohmatullohi
wabarokatuhu.
File terlampir semoga sesuai
harapan;
Wassalam..
Bagus
----- Original Message -----
>From: Prodev SIMPLE PB
>To: Belajar Excel Milis
>Sent: Friday, November 02, 2012 9:36 AM
>Subject: [belajar-excel] Kombinasi Tanggal & Conditional Formatting (CF)
>
>
>Assalamu'alaikum Wr. Wb.
>
>
>Mohon maaf ... kite nongol lagi nih.
>Terima kasih banyak atas solusi permasalahan sebelumnya.
>Hari ini aye mau nanya lagi nih ... masih seputar penggunaan 'Tanggal' (masih seneng utak-atik menu ini)
>
>
>Pertanyaannye :
>Bagaimana rumus untuk menggunakan CF untuk tanggal pada tabel yang sesuai dengan tanggal hari ini (TODAY)
>Untuk lebih jelasnya, file terlampir.
>
>
>Demikian sekilas pertanyaannya, atas perhatian dan solusinya diucapkan terima kasih banyak.
>Wassalam.
>
>- prodev simple -
>
Insya Alloh sangat bermanfaat.
- prodev simple -
____________
Dari: Bagus <bagus@kingjim.
Kepada: belajar-excel@
Dikirim: Jumat, 2 November 2012 10:55
Judul: Re: [belajar-excel] Kombinasi Tanggal & Conditional Formatting (CF)
Wa'alaikum salam warohmatullohi
wabarokatuhu.
File terlampir semoga sesuai
harapan;
Wassalam..
Bagus
----- Original Message -----
>From: Prodev SIMPLE PB
>To: Belajar Excel Milis
>Sent: Friday, November 02, 2012 9:36 AM
>Subject: [belajar-excel] Kombinasi Tanggal & Conditional Formatting (CF)
>
>
>Assalamu'alaikum Wr. Wb.
>
>
>Mohon maaf ... kite nongol lagi nih.
>Terima kasih banyak atas solusi permasalahan sebelumnya.
>Hari ini aye mau nanya lagi nih ... masih seputar penggunaan 'Tanggal' (masih seneng utak-atik menu ini)
>
>
>Pertanyaannye :
>Bagaimana rumus untuk menggunakan CF untuk tanggal pada tabel yang sesuai dengan tanggal hari ini (TODAY)
>Untuk lebih jelasnya, file terlampir.
>
>
>Demikian sekilas pertanyaannya, atas perhatian dan solusinya diucapkan terima kasih banyak.
>Wassalam.
>
>- prodev simple -
>
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