5 Messages
Digest #4813
2a
Re: menampilkan hasil tanpa formula di excel denganscript macro [1 A by "Zainul Ulum" zainul_ulum
Messages
Mon Aug 5, 2019 2:46 am (PDT) . Posted by:
"Stephen Saputro"
Selamat sore semuanya,
Mohon kiranya dapat di bantu kasus saya ini. Saya membuat sebuah database
sederhana, di mana ada satu workbook yang saya gunakan sebagai Table
master. dan satu lagi worbook excel yang saya gunakan untuk mengirimkan
data ke table master dengan menggunakan VBA.
Permasalahan nya adalah script yang saya pakai di bawah ini, terkadang
mengirimkan data dengan baik ke data row paling akhir dari sebuah table
master, tapi terkadang data tersebut malah menimpa data lain yang sudah ada
dengan row yang berbeda ( data yang masuk ke kolom2 nya sudah tepat hanya
saja row nya yang berbeda, seharus nya adalah konsisten di row data sesudah
row terakhir )
Script nya adalah sbb :
Private Sub Kirimdata_Click()
If TextBox1.Value = "" Or TextBox4.Value = "" Then
If MsgBox("Form is not complete. Please fill the data No and the amount
!", vbQuestion + vbYesNo) <> yes Then
Exit Sub
End If
End If
Dim rc As Long
Dim path As String
Dim wb As Workbook
Application.ScreenUpdating = False
path = "\\blabla\blabla\blabla\master.xlsm"
rc = ActiveSheet.UsedRange.Rows.Count
Workbooks.Open " \\blabla\blabla\blabla\master.xlsm "
Set wb = ActiveWorkbook
rc = ActiveSheet.UsedRange.Rows.Count
With Sheets(1).Range("A1")
...Offset(rc, 0).Value = Me.ListBox1.Value
...Offset(rc, 1).Value = Me.ListBox2.Value
...Offset(rc, 2).Value = Me.ListBox3.Value
...Offset(rc, 3).Value = Me.ListBox4.Value
...Offset(rc, 4).Value = Me.ListBox5.Value
...Offset(rc, 5).Value = Me.TextBox1.Value
...Offset(rc, 6).Value = Me.TextBox2.Value
...Offset(rc, 7).Value = Me.TextBox3.Value
...Offset(rc, 8).Value = Me.ListBox6.Value
...Offset(rc, 9).Value = Me.TextBox5.Value
...Offset(rc, 10).Value = Me.TextBox4.Value
...Offset(rc, 11).Value = Me.TextBox7.Value
...Offset(rc, 12).Value = Me.TextBox8.Value
...Offset(rc, 13).Value = Me.ListBox7.Value
...Offset(rc, 14).Value = Me.TextBox6.Value
End With
wb.Save
wb.Close
Application.ScreenUpdating = True
Unload Me
Inputdata.Show
End Sub
Terima kasih sekali lagi untuk bantuan nya
Mohon kiranya dapat di bantu kasus saya ini. Saya membuat sebuah database
sederhana, di mana ada satu workbook yang saya gunakan sebagai Table
master. dan satu lagi worbook excel yang saya gunakan untuk mengirimkan
data ke table master dengan menggunakan VBA.
Permasalahan nya adalah script yang saya pakai di bawah ini, terkadang
mengirimkan data dengan baik ke data row paling akhir dari sebuah table
master, tapi terkadang data tersebut malah menimpa data lain yang sudah ada
dengan row yang berbeda ( data yang masuk ke kolom2 nya sudah tepat hanya
saja row nya yang berbeda, seharus nya adalah konsisten di row data sesudah
row terakhir )
Script nya adalah sbb :
Private Sub Kirimdata_Click(
If TextBox1.Value = "" Or TextBox4.Value = "" Then
If MsgBox("
!", vbQuestion + vbYesNo) <> yes Then
Exit Sub
End If
End If
Dim rc As Long
Dim path As String
Dim wb As Workbook
Application.
path = "\&#
rc = ActiveSheet.
Workbooks.Open " \\blabla&#
Set wb = ActiveWorkbook
rc = ActiveSheet.
With Sheets(1).Range(
...Offset(rc, 0).Value = Me.ListBox1.
...Offset(rc, 1).Value = Me.ListBox2.
...Offset(rc, 2).Value = Me.ListBox3.
...Offset(rc, 3).Value = Me.ListBox4.
...Offset(rc, 4).Value = Me.ListBox5.
...Offset(rc, 5).Value = Me.TextBox1.
...Offset(rc, 6).Value = Me.TextBox2.
...Offset(rc, 7).Value = Me.TextBox3.
...Offset(rc, 8).Value = Me.ListBox6.
...Offset(rc, 9).Value = Me.TextBox5.
...Offset(rc, 10).Value = Me.TextBox4.
...Offset(rc, 11).Value = Me.TextBox7.
...Offset(rc, 12).Value = Me.TextBox8.
...Offset(rc, 13).Value = Me.ListBox7.
...Offset(rc, 14).Value = Me.TextBox6.
End With
wb.Save
wb.Close
Application.
Unload Me
Inputdata.Show
End Sub
Terima kasih sekali lagi untuk bantuan nya
Mon Aug 5, 2019 6:48 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Hai Stephen,
Coba code ini...rc = Range("A" & Rows.Count).End(xlUp).Row
untuk mencari baris terakhir pada kolom A.
Salam,HK
Pada Senin, 5 Agustus 2019 16.47.29 GMT+7, Stephen Saputro stephensaputro@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Selamat sore semuanya,
Mohon kiranya dapat di bantu kasus saya ini. Saya membuat sebuah database sederhana, di mana ada satu workbook yang saya gunakan sebagai Table master. dan satu lagi worbook excel yang saya gunakan untuk mengirimkan data ke table master dengan menggunakan VBA.
Permasalahan nya adalah script yang saya pakai di bawah ini, terkadang mengirimkan data dengan baik ke data row paling akhir dari sebuah table master, tapi terkadang data tersebut malah menimpa data lain yang sudah ada dengan row yang berbeda ( data yang masuk ke kolom2 nya sudah tepat hanya saja row nya yang berbeda, seharus nya adalah konsisten di row data sesudah row terakhir )
Script nya adalah sbb :
Private Sub Kirimdata_Click()
If TextBox1.Value = "" Or TextBox4..Value = "" Then
If MsgBox("Form is not complete.. Please fill the data No and the amount !", vbQuestion + vbYesNo) <> yes Then
Exit Sub
End If
End If
Dim rc As Long
Dim path As String
Dim wb As Workbook
Application.ScreenUpdating = False
path = "\\blabla\blabla\blabla\master.xlsm"
rc = ActiveSheet.UsedRange.Rows.Count
Workbooks.Open "\\blabla\blabla\blabla\master.xlsm "
Set wb = ActiveWorkbook
rc = ActiveSheet.UsedRange.Rows.Count
With Sheets(1).Range("A1")
..Offset(rc, 0).Value = Me.ListBox1.Value
..Offset(rc, 1).Value = Me.ListBox2.Value
..Offset(rc, 2).Value = Me.ListBox3..Value
..Offset(rc, 3).Value = Me.ListBox4.Value
..Offset(rc, 4).Value = Me.ListBox5.Value
..Offset(rc, 5).Value = Me..TextBox1.Value
..Offset(rc, 6).Value = Me.TextBox2.Value
..Offset(rc, 7).Value = Me.TextBox3.Value
..Offset(rc, 8).Value = Me.ListBox6.Value
..Offset(rc, 9).Value = Me.TextBox5.Value
..Offset(rc, 10).Value = Me.TextBox4.Value
..Offset(rc, 11).Value = Me.TextBox7.Value
..Offset(rc, 12).Value = Me.TextBox8.Value
..Offset(rc, 13).Value = Me.ListBox7.Value
..Offset(rc, 14).Value = Me.TextBox6.Value
End With
wb.Save
wb.Close
Application.ScreenUpdating = True
Unload Me
Inputdata.Show
End Sub
Terima kasih sekali lagi untuk bantuan nya
Coba code ini...rc = Range("A" & Rows.Count).End(xlUp).Row
untuk mencari baris terakhir pada kolom A.
Salam,HK
Pada Senin, 5 Agustus 2019 16.47.29 GMT+7, Stephen Saputro stephensaputro@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Selamat sore semuanya,
Mohon kiranya dapat di bantu kasus saya ini. Saya membuat sebuah database sederhana, di mana ada satu workbook yang saya gunakan sebagai Table master. dan satu lagi worbook excel yang saya gunakan untuk mengirimkan data ke table master dengan menggunakan VBA.
Permasalahan nya adalah script yang saya pakai di bawah ini, terkadang mengirimkan data dengan baik ke data row paling akhir dari sebuah table master, tapi terkadang data tersebut malah menimpa data lain yang sudah ada dengan row yang berbeda ( data yang masuk ke kolom2 nya sudah tepat hanya saja row nya yang berbeda, seharus nya adalah konsisten di row data sesudah row terakhir )
Script nya adalah sbb :
Private Sub Kirimdata_Click(
If TextBox1.Value = "" Or TextBox4..Value = "" Then
If MsgBox("
Exit Sub
End If
End If
Dim rc As Long
Dim path As String
Dim wb As Workbook
Application.
path = "\&#
rc = ActiveSheet.
Workbooks.Open "\&#
Set wb = ActiveWorkbook
rc = ActiveSheet.
With Sheets(1).Range(
..Offset(rc, 0).Value = Me.ListBox1.
..Offset(rc, 1).Value = Me.ListBox2.
..Offset(rc, 2).Value = Me.ListBox3.
..Offset(rc, 3).Value = Me.ListBox4.
..Offset(rc, 4).Value = Me.ListBox5.
..Offset(rc, 5).Value = Me..TextBox1.
..Offset(rc, 6).Value = Me.TextBox2.
..Offset(rc, 7).Value = Me.TextBox3.
..Offset(rc, 8).Value = Me.ListBox6.
..Offset(rc, 9).Value = Me.TextBox5.
..Offset(rc, 10).Value = Me.TextBox4.
..Offset(rc, 11).Value = Me.TextBox7.
..Offset(rc, 12).Value = Me.TextBox8.
..Offset(rc, 13).Value = Me.ListBox7.
..Offset(rc, 14).Value = Me.TextBox6.
End With
wb.Save
wb.Close
Application.
Unload Me
Inputdata.Show
End Sub
Terima kasih sekali lagi untuk bantuan nya
Mon Aug 5, 2019 9:47 am (PDT) . Posted by:
"Zainul Ulum" zainul_ulum
Stephen,
Coba ganti di nilai di variable rc memnjadi :
rc= Sheets(1).Range("A10000").end(xlup).row 'asumsi maksimal baris/record=10000
Thanks,
-zainul
Sent from Mail for Windows 10
From: Stephen Saputro stephensaputro@gmail.com [belajar-excel]
Sent: Monday, August 5, 2019 4:47 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Kirim data ke excel lain menggunakan VBA
Selamat sore semuanya,
Mohon kiranya dapat di bantu kasus saya ini. Saya membuat sebuah database sederhana, di mana ada satu workbook yang saya gunakan sebagai Table master. dan satu lagi worbook excel yang saya gunakan untuk mengirimkan data ke table master dengan menggunakan VBA.
Permasalahan nya adalah script yang saya pakai di bawah ini, terkadang mengirimkan data dengan baik ke data row paling akhir dari sebuah table master, tapi terkadang data tersebut malah menimpa data lain yang sudah ada dengan row yang berbeda ( data yang masuk ke kolom2 nya sudah tepat hanya saja row nya yang berbeda, seharus nya adalah konsisten di row data sesudah row terakhir )
Script nya adalah sbb :
Private Sub Kirimdata_Click()
If TextBox1.Value = "" Or TextBox4..Value = "" Then
If MsgBox("Form is not complete.. Please fill the data No and the amount !", vbQuestion + vbYesNo) <> yes Then
Exit Sub
End If
End If
Dim rc As Long
Dim path As String
Dim wb As Workbook
Application.ScreenUpdating = False
path = "\\blabla\blabla\blabla\master.xlsm"
rc = ActiveSheet.UsedRange.Rows.Count
Workbooks.Open " \\blabla\blabla\blabla\master.xlsm "
Set wb = ActiveWorkbook
rc = ActiveSheet.UsedRange.Rows.Count
With Sheets(1).Range("A1")
..Offset(rc, 0).Value = Me.ListBox1.Value
..Offset(rc, 1).Value = Me.ListBox2.Value
..Offset(rc, 2).Value = Me.ListBox3..Value
..Offset(rc, 3).Value = Me.ListBox4.Value
..Offset(rc, 4).Value = Me.ListBox5.Value
..Offset(rc, 5).Value = Me..TextBox1.Value
..Offset(rc, 6).Value = Me.TextBox2.Value
..Offset(rc, 7).Value = Me.TextBox3.Value
..Offset(rc, 8).Value = Me.ListBox6.Value
..Offset(rc, 9).Value = Me.TextBox5.Value
..Offset(rc, 10).Value = Me.TextBox4.Value
..Offset(rc, 11).Value = Me.TextBox7.Value
..Offset(rc, 12).Value = Me.TextBox8.Value
..Offset(rc, 13).Value = Me.ListBox7.Value
..Offset(rc, 14).Value = Me.TextBox6.Value
End With
wb.Save
wb.Close
Application.ScreenUpdating = True
Unload Me
Inputdata.Show
End Sub
Terima kasih sekali lagi untuk bantuan nya
Coba ganti di nilai di variable rc memnjadi :
rc= Sheets(1).Range("A10000").end(xlup).row 'asumsi maksimal baris/record=10000
Thanks,
-zainul
Sent from Mail for Windows 10
From: Stephen Saputro stephensaputro@gmail.com [belajar-excel]
Sent: Monday, August 5, 2019 4:47 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Kirim data ke excel lain menggunakan VBA
Selamat sore semuanya,
Mohon kiranya dapat di bantu kasus saya ini. Saya membuat sebuah database sederhana, di mana ada satu workbook yang saya gunakan sebagai Table master. dan satu lagi worbook excel yang saya gunakan untuk mengirimkan data ke table master dengan menggunakan VBA.
Permasalahan nya adalah script yang saya pakai di bawah ini, terkadang mengirimkan data dengan baik ke data row paling akhir dari sebuah table master, tapi terkadang data tersebut malah menimpa data lain yang sudah ada dengan row yang berbeda ( data yang masuk ke kolom2 nya sudah tepat hanya saja row nya yang berbeda, seharus nya adalah konsisten di row data sesudah row terakhir )
Script nya adalah sbb :
Private Sub Kirimdata_Click(
If TextBox1.Value = "" Or TextBox4..Value = "" Then
If MsgBox("
Exit Sub
End If
End If
Dim rc As Long
Dim path As String
Dim wb As Workbook
Application.
path = "\&#
rc = ActiveSheet.
Workbooks.Open " \\blabla&#
Set wb = ActiveWorkbook
rc = ActiveSheet.
With Sheets(1).Range(
..Offset(rc, 0).Value = Me.ListBox1.
..Offset(rc, 1).Value = Me.ListBox2.
..Offset(rc, 2).Value = Me.ListBox3.
..Offset(rc, 3).Value = Me.ListBox4.
..Offset(rc, 4).Value = Me.ListBox5.
..Offset(rc, 5).Value = Me..TextBox1.
..Offset(rc, 6).Value = Me.TextBox2.
..Offset(rc, 7).Value = Me.TextBox3.
..Offset(rc, 8).Value = Me.ListBox6.
..Offset(rc, 9).Value = Me.TextBox5.
..Offset(rc, 10).Value = Me.TextBox4.
..Offset(rc, 11).Value = Me.TextBox7.
..Offset(rc, 12).Value = Me.TextBox8.
..Offset(rc, 13).Value = Me.ListBox7.
..Offset(rc, 14).Value = Me.TextBox6.
End With
wb.Save
wb.Close
Application.
Unload Me
Inputdata.Show
End Sub
Terima kasih sekali lagi untuk bantuan nya
Mon Aug 5, 2019 9:19 am (PDT) . Posted by:
"Zainul Ulum" zainul_ulum
Mas Hairul Anam,
Apakah maksud atau penjelasan rumusnya bagaimana? Barangkali rekan-rekan bias bantu menyederhanakan.
Terimakasih,
-zainul
Sent from Mail for Windows 10
From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Saturday, August 3, 2019 4:35 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro [1 Attachment]
Maaf
Bila bukan vlookup melainkan rumus seperti file terlampir, seperti apa code macro copy pastenya agar rumusnya tidak tampil, dan hanya hasil formulanya saja
Terimakasih
Pada Jumat, 2 Agustus 2019 23.31.56 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Langsung ke TKP aja ya di file terlampir.
Salam,
HK
Pada Jumat, 2 Agustus 2019 19.32.08 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Makasih Mas HK
Maaf, Jika menggunakan
code Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
hanya apa digunakan untuk 1 baris, kalau misalkan barisnya sampai 1000 code copy paste hasilnya seperti apa ya
Terimakasih bayak
Maaf, jika saya kurang paham masalah code macro
Pada Selasa, 30 Juli 2019 14.04.04 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Coba ganti codenya spt ini :
Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
Salam,
HK
Pada Selasa, 30 Juli 2019 07.47.34 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Salam
Para Master
mohon pencerahahannya dengan code script macro menampilkan hasil formula tanpa menampilkan rumus di cell excel, seperti file terlampir
Terimakasih
Assalamualaikum
Hairul Alam
Apakah maksud atau penjelasan rumusnya bagaimana? Barangkali rekan-rekan bias bantu menyederhanakan.
Terimakasih,
-zainul
Sent from Mail for Windows 10
From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Saturday, August 3, 2019 4:35 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro [1 Attachment]
Maaf
Bila bukan vlookup melainkan rumus seperti file terlampir, seperti apa code macro copy pastenya agar rumusnya tidak tampil, dan hanya hasil formulanya saja
Terimakasih
Pada Jumat, 2 Agustus 2019 23.31.56 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Langsung ke TKP aja ya di file terlampir.
Salam,
HK
Pada Jumat, 2 Agustus 2019 19.32.08 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Makasih Mas HK
Maaf, Jika menggunakan
code Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
hanya apa digunakan untuk 1 baris, kalau misalkan barisnya sampai 1000 code copy paste hasilnya seperti apa ya
Terimakasih bayak
Maaf, jika saya kurang paham masalah code macro
Pada Selasa, 30 Juli 2019 14.04.04 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Coba ganti codenya spt ini :
Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
Salam,
HK
Pada Selasa, 30 Juli 2019 07.47.34 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Salam
Para Master
mohon pencerahahannya dengan code script macro menampilkan hasil formula tanpa menampilkan rumus di cell excel, seperti file terlampir
Terimakasih
Assalamualaikum
Hairul Alam
Mon Aug 5, 2019 9:58 am (PDT) . Posted by:
"Zainul Ulum" zainul_ulum
Sambil menunggu penjelasan rumsunya,
Silakan dipelajari macro terlampir, semoga sesuai harapan.
Wassalam
-zainul
Sent from Mail for Windows 10
From: Zainul Ulum zainul_ulum@yahoo.com [belajar-excel]
Sent: Monday, August 5, 2019 11:19 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro
Mas Hairul Anam,
Apakah maksud atau penjelasan rumusnya bagaimana? Barangkali rekan-rekan bias bantu menyederhanakan.
Terimakasih,
-zainul
Sent from Mail for Windows 10
From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Saturday, August 3, 2019 4:35 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro [1 Attachment]
Maaf
Bila bukan vlookup melainkan rumus seperti file terlampir, seperti apa code macro copy pastenya agar rumusnya tidak tampil, dan hanya hasil formulanya saja
Terimakasih
Pada Jumat, 2 Agustus 2019 23.31.56 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Langsung ke TKP aja ya di file terlampir.
Salam,
HK
Pada Jumat, 2 Agustus 2019 19.32.08 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Makasih Mas HK
Maaf, Jika menggunakan
code Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
hanya apa digunakan untuk 1 baris, kalau misalkan barisnya sampai 1000 code copy paste hasilnya seperti apa ya
Terimakasih bayak
Maaf, jika saya kurang paham masalah code macro
Pada Selasa, 30 Juli 2019 14.04.04 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Coba ganti codenya spt ini :
Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
Salam,
HK
Pada Selasa, 30 Juli 2019 07.47.34 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Salam
Para Master
mohon pencerahahannya dengan code script macro menampilkan hasil formula tanpa menampilkan rumus di cell excel, seperti file terlampir
Terimakasih
Assalamualaikum
Hairul Alam
Silakan dipelajari macro terlampir, semoga sesuai harapan.
Wassalam
-zainul
Sent from Mail for Windows 10
From: Zainul Ulum zainul_ulum@yahoo.com [belajar-excel]
Sent: Monday, August 5, 2019 11:19 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro
Mas Hairul Anam,
Apakah maksud atau penjelasan rumusnya bagaimana? Barangkali rekan-rekan bias bantu menyederhanakan.
Terimakasih,
-zainul
Sent from Mail for Windows 10
From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Saturday, August 3, 2019 4:35 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro [1 Attachment]
Maaf
Bila bukan vlookup melainkan rumus seperti file terlampir, seperti apa code macro copy pastenya agar rumusnya tidak tampil, dan hanya hasil formulanya saja
Terimakasih
Pada Jumat, 2 Agustus 2019 23.31.56 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Langsung ke TKP aja ya di file terlampir.
Salam,
HK
Pada Jumat, 2 Agustus 2019 19.32.08 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Makasih Mas HK
Maaf, Jika menggunakan
code Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
hanya apa digunakan untuk 1 baris, kalau misalkan barisnya sampai 1000 code copy paste hasilnya seperti apa ya
Terimakasih bayak
Maaf, jika saya kurang paham masalah code macro
Pada Selasa, 30 Juli 2019 14.04.04 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Coba ganti codenya spt ini :
Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
Salam,
HK
Pada Selasa, 30 Juli 2019 07.47.34 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Salam
Para Master
mohon pencerahahannya dengan code script macro menampilkan hasil formula tanpa menampilkan rumus di cell excel, seperti file terlampir
Terimakasih
Assalamualaikum
Hairul Alam
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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