[belajar-excel] Digest Number 3059

Milis Belajar Microsoft Excel Group

6 Messages

Digest #3059

1a

Bls: [belajar-excel] Macro_select 1 cell dibawahnya xl down by "Liem Suliem" liemsuliem

1b

Re: Macro_select 1 cell dibawahnya xl down [1 Attachment] by "Nang Agus"

1c

Re: Macro_select 1 cell dibawahnya xl down [1 Attachment] by "Nang Agus"

1d

Bls: [belajar-excel] Macro_select 1 cell dibawahnya xl down by "Liem Suliem" liemsuliem

1e

Re: Macro_select 1 cell dibawahnya xl down by "Nang Agus"

2a

Re: Transfer Data Column menjadi Row [1 Attachment] by "hendrik karnadi" hendrikkarnadi

Messages

1a

Bls: [belajar-excel] Macro_select 1 cell dibawahnya xl down

Fri Aug 29, 2014 2:35 am (PDT) . Posted by:

"Liem Suliem" liemsuliem

dear master
dari yang sudah solved kemarin saya berusaha mengedit agar bisa browse file jadwalnya, jadi tidak ketik nama file
mohon bantuan lagi, saya sudah coba seperti dibawah.. perpaduan hasil gogling dan dari milis tapi ya memang bisanya cuma edit2 ya ujung2 nya mentok.

Private Sub CommandButton3_Click()
Dim pileku As String
Dim celladd As String
pileku = InputBox(Prompt:="Ketikkan Nama file", _
Title:="Masukkan Nama File", Default:="Jadwal HO Tanggal.xlsx")
pileku = Application.GetOpenFilename()
Windows(pileku).Activate
Sheets("Rincian").Range("C10").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 15).Address(False, False)
Sheets("Rincian").Range("C10:" & celladd).Copy
Windows("Monitoring Jadwal.xlsm").Activate
Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Windows(pileku).Activate
Sheets("Rincian").Range("C55").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 15).Address(False, False)
Sheets("Rincian").Range("C55:" & celladd).Copy
Windows("Monitoring Jadwal.xlsm").Activate
Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End Sub

salam
liem

Pada Kamis, 28 Agustus 2014 17:05, "lkm jktind lkmjktind@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


Bu,

File nya nga ada ?

(nga bisa di download)
Thu, Aug 28, 2014 at 2:02 PM

Tapi untuk email : Wed, Aug 27, 2014 at 11:02 AM
Filenya tersedia.

Salam.

Lukman

2014-08-28 14:02 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

>
>pak agus.. alhamdulilah
>
>sukses pak maksih pak, dan semua teman2..yang berkenan membantu..
>berikut saya sertakan file yang sudah solved
>
>
>liem
>
>
>
>Pada Kamis, 28 Agustus 2014 13:12, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>Pak Liem,
>
>Dicoba cekrip begini pak.
>
>Private Sub CommandButton2_Click()
>Dim pileku As String
>Dim celladd As String
>pileku = InputBox(Prompt:="Ketikkan Nama file", _
> Title:="Masukkan Nama File", Default:="A.xlsx")
> Windows(pileku).Activate
> Sheets("sheet1").Range("b2").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 12).Address(False, False)
> Sheets("sheet1").Range("B3:" & celladd).Copy
>Windows("B.xlsm").Activate
>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> Windows(pileku).Activate
> Sheets("sheet1").Range("B34:N47").Copy

>Windows("B.xlsm").Activate
>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>End Sub
>
>Untuk cell N47 belum saya buat, coba diganti.
>Salam
>
>NangAgus
>
>
>
>
>2014-08-27 14:51 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>>
>>sudah saya coba beginii tapi yang tercopi hanya data B yang paling bawah
>>
>>
>>Private Sub CommandButton2_Click()
>>Dim pileku As String
>>pileku = InputBox(Prompt:="Ketikkan Nama file", _
>>Title:="Masukkan Nama
File", Default:="A.xlsx")
>>Windows(pileku).Activate
>>Sheets("sheet1").Range("B3:N3").End(xlDown).Copy
>>
>>Windows("B.xlsm").Activate
>>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>Windows(pileku).Activate
>>Sheets("sheet1").Range("B34:N34").End(xlDown).Copy
>>
>>Windows("B.xlsm").Activate
>>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>
>>End Sub
>>
>>salam
>>liem
>>
>>
>>
>>
>>Pada Rabu, 27 Agustus 2014 14:10, "Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>>
>>
>>makasih pak agus.. sesuai yang dimaksud.. tapi ada kendala sedikit
>>untuk bunyi yang ini
>>
>>Sheets("sheet1").Range("B3:N16").Copy
>>kan data tidak selalu sampai N16 atau bahkan lebih dari N16 bisa nggak kalo yang di copy itu
>>B3:N3 lalu di xldown baru di kopy.
>>
>>
>>untuk yang dari pak kid belum saya coba
>>
>>
>>
>>salam
>>liem
>>
>>
>>
>>
>>Pada Rabu, 27 Agustus 2014 12:19, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>>
>>Dear Pak Liem!
>>Coba Macronya dicoba dahulu seperti ini:
>>
>>Private Sub CommandButton2_Click()
>>Dim pileku As String
>>pileku = InputBox(Prompt:="Ketikkan Nama file", _
>>Title:="Masukkan Nama File", Default:="A.xlsx")
>>Windows(pileku).Activate
>>Sheets("sheet1").Range("B3:N16").Copy
>>Windows("B.xlsm").Activate
>>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>Windows(pileku).Activate
>>Sheets("sheet1").Range("B34:N47").Copy
>>Windows("B.xlsm").Activate
>>Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>
>>End Sub
>>
>>
>>Salam
>>NangAgus
>>
>>On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
>><belajar-excel@yahoogroups.com> wrote:
>>> ini saya coba lampirkan file yang sudah saya dumi kan.
>>>
>>>
>>>
>>>
>>>
>>>
>>> Pada Rabu, 27 Agustus 2014 10:11, "Nang Agus nangagus@gmail.com
>>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>>
>>>
>>>
>>>
>>>
>>>
>>> Dear Pak Liem.
>>>
>>>
>>> Bagaimana apabila perintah copynya masih di VBA tapi perintah tempat
>>> ngopinya yang manual.
>>> Misalnya Range yang akan dikopi diketik pada workbook A Sheet1 Range
>>> A1. atau dapat pula diketikkan di userform yang kita buat. Range
>>> tersebut kita gunakan untuk acuan Kopi.
>>> Kira-kira begini cekripnya:
>>> Range(sheet1.range(A1).value).copy
>>>
>>>
>>> Wasalam
>>> NangAgus
>>>
>>>
>>> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
>>> <belajar-excel@yahoogroups.com> wrote:
>>>> pak agus..
>>>> nah itu pak agus masalahnya..
>>>> gambaran manualnya begini pak
>>>>
>>>>
>>>> saya buka 2 workbok A dan B.
>>>> saya kopi B2:B10 yang ada di worbok A(ini memang yang saya ingin manual)
>>>> lalu saya pindah ke wrkbook B saya pilih cell F3 saya tekan
>>>> ctrl+shift+tanda
>>>> panah bawah...lalu saya pilih satu cell dibawahnya
>>>> lalu saya paste spesial.
>>>>
>>>>
>>>> nah yang ingin saya wakilkan ke makro adalah proses
>>>> pilih cell F3 saya tekan ctrl+shift+tanda panah bawah...lalu saya pilih
>>>> satu
>>>> cell dibawahnya
>>>> lalu saya paste spesial value.
>>>>
>>>>
>>>> tapi sepertinya waktu jalankan sekrip, proses kopi di workbok A sudah
>>>> tidah
>>>> aktip.
>>>>
>>>>
>>>> Pada Rabu, 27 Agustus 2014 9:35, "Nang Agus nangagus@gmail.com
>>>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> Dear Pak Liem,
>>>>
>>>>
>>>> Cekrip yang dibuat sudah betul pak, tapi si Excel bingung, disuruh
>>>> mem-Paste special dengan masakan yang paling enak, tetapi bahan yang
>>>> untuk masak belum ada. belikan dulu dong pak!
>>>> Tambahkan cekrip Kopi di atasnya baru si excel bis kerja.
>>>>
>>>>
>>>> Saya pernah dipesen sama Mr. Kid, sebaiknya cekrip tersebut disingkat
>>>> menjadi:
>>>> Range("F3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>>>
>>>>
>>>> Salam
>>>> NangAgus
>>>>
>>>>
>>>> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
>>>> <belajar-excel@yahoogroups.com> wrote:
>>>>> pak hk dan mr.kid
>>>>
>>>>>
>>>>>
>>>>> Sub Macro4()
>>>>> Range("f3").End(xlDown).Offset(1).Select
>>>>> Selection.PasteSpecial Paste:=xlPasteValues
>>>>> End Sub
>>>>>
>>>>>
>>>>> memilih cell akir +1 setelah data sudah bisa, akan tetapi ketika mau
>>>>> menambahkan sekrip paste spesial masih debug.
>>>>> (karena keterbatasan pengetahuan saya)

>>>>>
>>>>>
>>>>> jadi ceritanya begini saya punya 2 worbook A dan B lha isi workbook A
>>>>> itu
>>>>> datanya per tanggal
>>>>> misal A1 berisi 28 agt 2014 B2:K10 berisi data
>>>>> A12 berisi 29 agt 2014 B14:K30 berisi data
>>>>>
>>>>>
>>>>> nah maksud saya ingin copi data B2:B10 secara manual dan saya pastekan
>>>>> ke
>>>>> workbook B dengan bantuan si makro tersebut.
>>>>> begitu juga seterusnya saya ingin lagi mengulang kopi B14:B30 secara
>>>>> manual
>>>
>>>>> lalu saya pastekan lagi di workbok B dibawahnya data yang sudah ada.
>>>>> (kedua
>>>>> workbook dalam keadaan terbuka)
>>>>>
>>>>>
>>>>> (maksudnya biar workbook B bisa berkaidah data yang baik)
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> salam
>>>>> liem
>>>>>
>>>>>
>>>>>
>>>>>
>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> Pada Rabu, 27 Agustus 2014 6:39, "'Mr. Kid' mr.nmkid@gmail.com
>>>>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> Hai Liem,
>>>>>
>>>>>
>>>>> Misal F3 adalah range awal. Data kontinyu sampai F10. Ingin cell aktif
>>>>> di
>>>>> F11 (1 cell dibawah cell terakhir data kontinyu)
>>>>> Range("f3").end(xldown).offset(1).activate
>>>>> *** ganti activate dengan copy (jika ingin copy cell), pastespecial
>>>>> xlpastevalues (jika ingin paste special values), dsb
>>>>>
>>>>>
>>>>> Bagaimana kalau coba jalan-jalan lihat-lihat tentang range mulai dari
>>>>> sini.
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> Wassalam,
>>>>> Kid.
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> 2014-08-26 19:58 GMT+10:00 Liem Suliem liemsuliem@yahoo.co.id
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>
>>>>>
>>>>>>
>>>>>>dh dear master saya coba rekam makro dengan bunyi seperti dibawah..
>>>>>>yang ingisaya tanyakan bagaimana bunyi sekrip untuk memilih atau select
>>>>>> 1
>>>>>> cel dibawahnya setelah dilakukan xldown
>>>>>>misal saya lakukan xldown F3:F10 tapi setelah saya lakukan xldown saya
>>>>>> ingin cell terplih adalah 1 cell dibawahnya yaitu F11
>>>>>>mohon arahan skripnya seperti apa..
>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>>Sub Macro4()
>>>>>> Range("F3").Select
>>>>>> Range(Selection, Selection.End(xlDown)).Select
>>>>>>End Sub
>>>>>>
>>>>>>
>>>>>>salam
>>>>>>
>>>>>
>>>>>>
>>>>
>>>>>>liem
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>>
>>
>>
>>
>>
>>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (20) . Top ^

1b

Re: Macro_select 1 cell dibawahnya xl down [1 Attachment]

Fri Aug 29, 2014 8:35 pm (PDT) . Posted by:

"Nang Agus"

Dear Pak Liem,

Coba ganti cekript
pileku = Application.GetOpenFilename()
menjadi :
pileku = Application.GetOpenFilename()
Workbooks.Open pileku

Tanpa cekrip yang kedua, hanya akan mengambil path file secara lengkap,
tetapi belum membuka file.
Jangan lupa fileku adalah path lengkap, harus dipotong dahulu menjadi file
name untuk membuka antar workbook. untuk mengambil nama workbook saja bisa
digunakan split.

Kira-kira cekripttc nya adalah sebagai berikut:
Private Sub CommandButton2_Click()
Dim pileku As String
Dim celladd As String
Dim splitlist As Variant
pileku = Application.GetOpenFilename(Title:="Tulung Bikak Setunggal File
Mawon", _
FileFilter:="Excel Files *.xls* (*.xls*),")
splitlist = VBA.Split(pileku, "\")
aduhh = splitlist(UBound(splitlist, 1))
Workbooks.Open pileku
Sheets("sheet1").Range("b2").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 12).Address(False, False)
Sheets("sheet1").Range("B3:" & celladd).Copy
Windows("B.xlsm").Activate
Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
Windows(aduhh).Activate
Sheets("sheet1").Range("b33").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 12).Address(False, False)
Sheets("sheet1").Range("B34:" & celladd).Copy
Windows("B.xlsm").Activate
Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
End Sub

Semoga tidak ada kesalahan.

Salam

NangAgus

2014-08-29 16:34 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> dear master
> dari yang sudah solved kemarin saya berusaha mengedit agar bisa browse
> file jadwalnya, jadi tidak ketik nama file
> mohon bantuan lagi, saya sudah coba seperti dibawah.. perpaduan hasil
> gogling dan dari milis tapi ya memang bisanya cuma edit2 ya ujung2 nya
> mentok.
>
> Private Sub CommandButton3_Click()
>
> Dim pileku As String
> Dim celladd As String
> pileku = InputBox(Prompt:="Ketikkan Nama file", _
> Title:="Masukkan Nama File", Default:="Jadwal HO Tanggal.xlsx")
> pileku = Application.GetOpenFilename()
> Windows(pileku).Activate
> Sheets("Rincian").Range("C10").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 15).Address(False, False)
> Sheets("Rincian").Range("C10:" & celladd).Copy
> Windows("Monitoring Jadwal.xlsm").Activate
> Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
> Paste:=xlPasteValues
> Windows(pileku).Activate
> Sheets("Rincian").Range("C55").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 15).Address(False, False)
> Sheets("Rincian").Range("C55:" & celladd).Copy
> Windows("Monitoring Jadwal.xlsm").Activate
> Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
> Paste:=xlPasteValues
> End Sub
>
> salam
> liem
>
>
> Pada Kamis, 28 Agustus 2014 17:05, "lkm jktind lkmjktind@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Bu,
>
> File nya nga ada ?
>
> (nga bisa di download)
> Thu, Aug 28, 2014 at 2:02 PM
>
>
> Tapi untuk email : Wed, Aug 27, 2014 at 11:02 AM
> Filenya tersedia.
>
> Salam.
>
> Lukman
>
>
>
>
> 2014-08-28 14:02 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> pak agus.. alhamdulilah
> sukses pak maksih pak, dan semua teman2..yang berkenan membantu..
> berikut saya sertakan file yang sudah solved
>
> liem
>
>
> Pada Kamis, 28 Agustus 2014 13:12, "Nang Agus nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Pak Liem,
>
> Dicoba cekrip begini pak.
>
> Private Sub CommandButton2_Click()
> Dim pileku As String
> Dim celladd As String
> pileku = InputBox(Prompt:="Ketikkan Nama file", _
> Title:="Masukkan Nama File", Default:="A.xlsx")
> Windows(pileku).Activate
> Sheets("sheet1").Range("b2").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 12).Address(False, False)
> Sheets("sheet1").Range("B3:" & celladd).Copy
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> Windows(pileku).Activate
> Sheets("sheet1").Range("B34:N47").Copy
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> End Sub
>
> Untuk cell N47 belum saya buat, coba diganti.
> Salam
>
> NangAgus
>
>
> 2014-08-27 14:51 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> sudah saya coba beginii tapi yang tercopi hanya data B yang paling bawah
>
> Private Sub CommandButton2_Click()
> Dim pileku As String
> pileku = InputBox(Prompt:="Ketikkan Nama file", _
> Title:="Masukkan Nama File", Default:="A.xlsx")
> Windows(pileku).Activate
> Sheets("sheet1").Range("B3:N3").End(xlDown).Copy
>
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> Windows(pileku).Activate
> Sheets("sheet1").Range("B34:N34").End(xlDown).Copy
>
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>
> End Sub
> salam
> liem
>
>
> Pada Rabu, 27 Agustus 2014 14:10, "Liem Suliem liemsuliem@yahoo.co.id
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> makasih pak agus.. sesuai yang dimaksud.. tapi ada kendala sedikit
> untuk bunyi yang ini
>
> Sheets("sheet1").Range("B3:N16").Copy
> kan data tidak selalu sampai N16 atau bahkan lebih dari N16 bisa nggak
> kalo yang di copy itu
> B3:N3 lalu di xldown baru di kopy.
>
> untuk yang dari pak kid belum saya coba
>
> salam
> liem
>
>
> Pada Rabu, 27 Agustus 2014 12:19, "Nang Agus nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Dear Pak Liem!
> Coba Macronya dicoba dahulu seperti ini:
>
> Private Sub CommandButton2_Click()
> Dim pileku As String
> pileku = InputBox(Prompt:="Ketikkan Nama file", _
> Title:="Masukkan Nama File", Default:="A.xlsx")
> Windows(pileku).Activate
> Sheets("sheet1").Range("B3:N16").Copy
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> Windows(pileku).Activate
> Sheets("sheet1").Range("B34:N47").Copy
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>
> End Sub
>
>
> Salam
> NangAgus
>
> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
> > ini saya coba lampirkan file yang sudah saya dumi kan.
> >
> >
> >
> >
> >
> >
> > Pada Rabu, 27 Agustus 2014 10:11, "Nang Agus nangagus@gmail.com
> > [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
> >
> >
> >
> >
> >
> >
> > Dear Pak Liem.
> >
> >
> > Bagaimana apabila perintah copynya masih di VBA tapi perintah tempat
> > ngopinya yang manual.
> > Misalnya Range yang akan dikopi diketik pada workbook A Sheet1 Range
> > A1. atau dapat pula diketikkan di userform yang kita buat. Range
> > tersebut kita gunakan untuk acuan Kopi.
> > Kira-kira begini cekripnya:
> > Range(sheet1.range(A1).value).copy
> >
> >
> > Wasalam
> > NangAgus
> >
> >
> > On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
> > <belajar-excel@yahoogroups.com> wrote:
> >> pak agus..
> >> nah itu pak agus masalahnya..
> >> gambaran manualnya begini pak
> >>
> >>
> >> saya buka 2 workbok A dan B.
> >> saya kopi B2:B10 yang ada di worbok A(ini memang yang saya ingin manual)
> >> lalu saya pindah ke wrkbook B saya pilih cell F3 saya tekan
> >> ctrl+shift+tanda
> >> panah bawah...lalu saya pilih satu cell dibawahnya
> >> lalu saya paste spesial.
> >>
> >>
> >> nah yang ingin saya wakilkan ke makro adalah proses
> >> pilih cell F3 saya tekan ctrl+shift+tanda panah bawah...lalu saya pilih
> >> satu
> >> cell dibawahnya
> >> lalu saya paste spesial value.
> >>
> >>
> >> tapi sepertinya waktu jalankan sekrip, proses kopi di workbok A sudah
> >> tidah
> >> aktip.
> >>
> >>
> >> Pada Rabu, 27 Agustus 2014 9:35, "Nang Agus nangagus@gmail.com
> >> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
> >>
> >>
> >>
> >>
> >>
> >>
> >> Dear Pak Liem,
> >>
> >>
> >> Cekrip yang dibuat sudah betul pak, tapi si Excel bingung, disuruh
> >> mem-Paste special dengan masakan yang paling enak, tetapi bahan yang
> >> untuk masak belum ada. belikan dulu dong pak!
> >> Tambahkan cekrip Kopi di atasnya baru si excel bis kerja.
> >>
> >>
> >> Saya pernah dipesen sama Mr. Kid, sebaiknya cekrip tersebut disingkat
> >> menjadi:
> >> Range("F3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> >>
> >>
> >> Salam
> >> NangAgus
> >>
> >>
> >> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
> >> <belajar-excel@yahoogroups.com> wrote:
> >>> pak hk dan mr.kid
> >>
> >>>
> >>>
> >>> Sub Macro4()
> >>> Range("f3").End(xlDown).Offset(1).Select
> >>> Selection.PasteSpecial Paste:=xlPasteValues
> >>> End Sub
> >>>
> >>>
> >>> memilih cell akir +1 setelah data sudah bisa, akan tetapi ketika mau
> >>> menambahkan sekrip paste spesial masih debug.
> >>> (karena keterbatasan pengetahuan saya)
> >>>
> >>>
> >>> jadi ceritanya begini saya punya 2 worbook A dan B lha isi workbook A
> >>> itu
> >>> datanya per tanggal
> >>> misal A1 berisi 28 agt 2014 B2:K10 berisi data
> >>> A12 berisi 29 agt 2014 B14:K30 berisi data
> >>>
> >>>
> >>> nah maksud saya ingin copi data B2:B10 secara manual dan saya pastekan
> >>> ke
> >>> workbook B dengan bantuan si makro tersebut.
> >>> begitu juga seterusnya saya ingin lagi mengulang kopi B14:B30 secara
> >>> manual
> >
> >>> lalu saya pastekan lagi di workbok B dibawahnya data yang sudah ada.
> >>> (kedua
> >>> workbook dalam keadaan terbuka)
> >>>
> >>>
> >>> (maksudnya biar workbook B bisa berkaidah data yang baik)
> >>>
> >>>
> >>>
> >>>
> >>> salam
> >>> liem
> >>>
> >>>
> >>>
> >>>
> >
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>> Pada Rabu, 27 Agustus 2014 6:39, "'Mr. Kid' mr.nmkid@gmail.com
> >>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>> Hai Liem,
> >>>
> >>>
> >>> Misal F3 adalah range awal. Data kontinyu sampai F10. Ingin cell aktif
> >>> di
> >>> F11 (1 cell dibawah cell terakhir data kontinyu)
> >>> Range("f3").end(xldown).offset(1).activate
> >>> *** ganti activate dengan copy (jika ingin copy cell), pastespecial
> >>> xlpastevalues (jika ingin paste special values), dsb
> >>>
> >>>
> >>> Bagaimana kalau coba jalan-jalan lihat-lihat tentang range mulai dari
> >>> sini.
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>> Wassalam,
> >>> Kid.
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>>
> >>> 2014-08-26 19:58 GMT+10:00 Liem Suliem liemsuliem@yahoo.co.id
> >>> [belajar-excel] <belajar-excel@yahoogroups.com>:
> >>>
> >>>
> >>>
> >>>>
> >>>>dh dear master saya coba rekam makro dengan bunyi seperti dibawah..
> >>>>yang ingisaya tanyakan bagaimana bunyi sekrip untuk memilih atau select
> >>>> 1
> >>>> cel dibawahnya setelah dilakukan xldown
> >>>>misal saya lakukan xldown F3:F10 tapi setelah saya lakukan xldown saya
> >>>> ingin cell terplih adalah 1 cell dibawahnya yaitu F11
> >>>>mohon arahan skripnya seperti apa..
> >>>
> >>>>
> >>>>
> >>>>
> >>>>Sub Macro4()
> >>>> Range("F3").Select
> >>>> Range(Selection, Selection.End(xlDown)).Select
> >>>>End Sub
> >>>>
> >>>>
> >>>>salam
> >>>>
> >>>
> >>>>
> >>
> >>>>liem
> >>>>
> >>>
> >>>
> >>>
> >>
> >>
> >>
> >
> >
> >
>
>
>
>
>
>
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (20) . Top ^

1c

Re: Macro_select 1 cell dibawahnya xl down [1 Attachment]

Fri Aug 29, 2014 8:40 pm (PDT) . Posted by:

"Nang Agus"

Dear Pak Liem,

Cekripttt yang baru saja saya kirimkan ada beberapa kekurangan, tolong
dilengkapi. antara lain:
1. belum didefinisikan variabel untuk aduhh dengan tipe string.
2. belum ada trap untuk cancel open file. (jika cancel open file akan error)

Wasalam
NangAgus

2014-08-30 10:35 GMT+07:00 Nang Agus <nangagus@gmail.com>:

> Dear Pak Liem,
>
> Coba ganti cekript
> pileku = Application.GetOpenFilename()
> menjadi :
> pileku = Application.GetOpenFilename()
> Workbooks.Open pileku
>
> Tanpa cekrip yang kedua, hanya akan mengambil path file secara lengkap,
> tetapi belum membuka file.
> Jangan lupa fileku adalah path lengkap, harus dipotong dahulu menjadi file
> name untuk membuka antar workbook. untuk mengambil nama workbook saja bisa
> digunakan split.
>
> Kira-kira cekripttc nya adalah sebagai berikut:
>
> Private Sub CommandButton2_Click()
> Dim pileku As String
> Dim celladd As String
> Dim splitlist As Variant
> pileku = Application.GetOpenFilename(Title:="Tulung Bikak Setunggal File
> Mawon", _
> FileFilter:="Excel Files *.xls* (*.xls*),")
> splitlist = VBA.Split(pileku, "\")
> aduhh = splitlist(UBound(splitlist, 1))
> Workbooks.Open pileku
>
> Sheets("sheet1").Range("b2").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 12).Address(False, False)
> Sheets("sheet1").Range("B3:" & celladd).Copy
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> Windows(aduhh).Activate
> Sheets("sheet1").Range("b33").End(xlDown).Offset(1).Select
>
> celladd = ActiveCell.Offset(-1, 12).Address(False, False)
> Sheets("sheet1").Range("B34:" & celladd).Copy
>
> Windows("B.xlsm").Activate
> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
> End Sub
>
> Semoga tidak ada kesalahan.
>
> Salam
>
> NangAgus
>
>
>
> 2014-08-29 16:34 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>>
>> dear master
>> dari yang sudah solved kemarin saya berusaha mengedit agar bisa browse
>> file jadwalnya, jadi tidak ketik nama file
>> mohon bantuan lagi, saya sudah coba seperti dibawah.. perpaduan hasil
>> gogling dan dari milis tapi ya memang bisanya cuma edit2 ya ujung2 nya
>> mentok.
>>
>> Private Sub CommandButton3_Click()
>>
>> Dim pileku As String
>> Dim celladd As String
>> pileku = InputBox(Prompt:="Ketikkan Nama file", _
>> Title:="Masukkan Nama File", Default:="Jadwal HO Tanggal.xlsx")
>> pileku = Application.GetOpenFilename()
>> Windows(pileku).Activate
>> Sheets("Rincian").Range("C10").End(xlDown).Offset(1).Select
>> celladd = ActiveCell.Offset(-1, 15).Address(False, False)
>> Sheets("Rincian").Range("C10:" & celladd).Copy
>> Windows("Monitoring Jadwal.xlsm").Activate
>> Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
>> Paste:=xlPasteValues
>> Windows(pileku).Activate
>> Sheets("Rincian").Range("C55").End(xlDown).Offset(1).Select
>> celladd = ActiveCell.Offset(-1, 15).Address(False, False)
>> Sheets("Rincian").Range("C55:" & celladd).Copy
>> Windows("Monitoring Jadwal.xlsm").Activate
>> Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial
>> Paste:=xlPasteValues
>> End Sub
>>
>> salam
>> liem
>>
>>
>> Pada Kamis, 28 Agustus 2014 17:05, "lkm jktind lkmjktind@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>> Bu,
>>
>> File nya nga ada ?
>>
>> (nga bisa di download)
>> Thu, Aug 28, 2014 at 2:02 PM
>>
>>
>> Tapi untuk email : Wed, Aug 27, 2014 at 11:02 AM
>> Filenya tersedia.
>>
>> Salam.
>>
>> Lukman
>>
>>
>>
>>
>> 2014-08-28 14:02 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>> pak agus.. alhamdulilah
>> sukses pak maksih pak, dan semua teman2..yang berkenan membantu..
>> berikut saya sertakan file yang sudah solved
>>
>> liem
>>
>>
>> Pada Kamis, 28 Agustus 2014 13:12, "Nang Agus nangagus@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>> Pak Liem,
>>
>> Dicoba cekrip begini pak.
>>
>> Private Sub CommandButton2_Click()
>> Dim pileku As String
>> Dim celladd As String
>> pileku = InputBox(Prompt:="Ketikkan Nama file", _
>> Title:="Masukkan Nama File", Default:="A.xlsx")
>> Windows(pileku).Activate
>> Sheets("sheet1").Range("b2").End(xlDown).Offset(1).Select
>> celladd = ActiveCell.Offset(-1, 12).Address(False, False)
>> Sheets("sheet1").Range("B3:" & celladd).Copy
>> Windows("B.xlsm").Activate
>> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>> Windows(pileku).Activate
>> Sheets("sheet1").Range("B34:N47").Copy
>> Windows("B.xlsm").Activate
>> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>> End Sub
>>
>> Untuk cell N47 belum saya buat, coba diganti.
>> Salam
>>
>> NangAgus
>>
>>
>> 2014-08-27 14:51 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>> sudah saya coba beginii tapi yang tercopi hanya data B yang paling bawah
>>
>> Private Sub CommandButton2_Click()
>> Dim pileku As String
>> pileku = InputBox(Prompt:="Ketikkan Nama file", _
>> Title:="Masukkan Nama File", Default:="A.xlsx")
>> Windows(pileku).Activate
>> Sheets("sheet1").Range("B3:N3").End(xlDown).Copy
>>
>> Windows("B.xlsm").Activate
>> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>> Windows(pileku).Activate
>> Sheets("sheet1").Range("B34:N34").End(xlDown).Copy
>>
>> Windows("B.xlsm").Activate
>> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>
>> End Sub
>> salam
>> liem
>>
>>
>> Pada Rabu, 27 Agustus 2014 14:10, "Liem Suliem liemsuliem@yahoo.co.id
>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>> makasih pak agus.. sesuai yang dimaksud.. tapi ada kendala sedikit
>> untuk bunyi yang ini
>>
>> Sheets("sheet1").Range("B3:N16").Copy
>> kan data tidak selalu sampai N16 atau bahkan lebih dari N16 bisa nggak
>> kalo yang di copy itu
>> B3:N3 lalu di xldown baru di kopy.
>>
>> untuk yang dari pak kid belum saya coba
>>
>> salam
>> liem
>>
>>
>> Pada Rabu, 27 Agustus 2014 12:19, "Nang Agus nangagus@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>> Dear Pak Liem!
>> Coba Macronya dicoba dahulu seperti ini:
>>
>> Private Sub CommandButton2_Click()
>> Dim pileku As String
>> pileku = InputBox(Prompt:="Ketikkan Nama file", _
>> Title:="Masukkan Nama File", Default:="A.xlsx")
>> Windows(pileku).Activate
>> Sheets("sheet1").Range("B3:N16").Copy
>> Windows("B.xlsm").Activate
>> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>> Windows(pileku).Activate
>> Sheets("sheet1").Range("B34:N47").Copy
>> Windows("B.xlsm").Activate
>> Range("f3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>>
>> End Sub
>>
>>
>> Salam
>> NangAgus
>>
>> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
>> <belajar-excel@yahoogroups.com> wrote:
>> > ini saya coba lampirkan file yang sudah saya dumi kan.
>> >
>> >
>> >
>> >
>> >
>> >
>> > Pada Rabu, 27 Agustus 2014 10:11, "Nang Agus nangagus@gmail.com
>> > [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>> >
>> >
>> >
>> >
>> >
>> >
>> > Dear Pak Liem.
>> >
>> >
>> > Bagaimana apabila perintah copynya masih di VBA tapi perintah tempat
>> > ngopinya yang manual.
>> > Misalnya Range yang akan dikopi diketik pada workbook A Sheet1 Range
>> > A1. atau dapat pula diketikkan di userform yang kita buat. Range
>> > tersebut kita gunakan untuk acuan Kopi.
>> > Kira-kira begini cekripnya:
>> > Range(sheet1.range(A1).value).copy
>> >
>> >
>> > Wasalam
>> > NangAgus
>> >
>> >
>> > On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
>> > <belajar-excel@yahoogroups.com> wrote:
>> >> pak agus..
>> >> nah itu pak agus masalahnya..
>> >> gambaran manualnya begini pak
>> >>
>> >>
>> >> saya buka 2 workbok A dan B.
>> >> saya kopi B2:B10 yang ada di worbok A(ini memang yang saya ingin
>> manual)
>> >> lalu saya pindah ke wrkbook B saya pilih cell F3 saya tekan
>> >> ctrl+shift+tanda
>> >> panah bawah...lalu saya pilih satu cell dibawahnya
>> >> lalu saya paste spesial.
>> >>
>> >>
>> >> nah yang ingin saya wakilkan ke makro adalah proses
>> >> pilih cell F3 saya tekan ctrl+shift+tanda panah bawah...lalu saya pilih
>> >> satu
>> >> cell dibawahnya
>> >> lalu saya paste spesial value.
>> >>
>> >>
>> >> tapi sepertinya waktu jalankan sekrip, proses kopi di workbok A sudah
>> >> tidah
>> >> aktip.
>> >>
>> >>
>> >> Pada Rabu, 27 Agustus 2014 9:35, "Nang Agus nangagus@gmail.com
>> >> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>> >>
>> >>
>> >>
>> >>
>> >>
>> >>
>> >> Dear Pak Liem,
>> >>
>> >>
>> >> Cekrip yang dibuat sudah betul pak, tapi si Excel bingung, disuruh
>> >> mem-Paste special dengan masakan yang paling enak, tetapi bahan yang
>> >> untuk masak belum ada. belikan dulu dong pak!
>> >> Tambahkan cekrip Kopi di atasnya baru si excel bis kerja.
>> >>
>> >>
>> >> Saya pernah dipesen sama Mr. Kid, sebaiknya cekrip tersebut disingkat
>> >> menjadi:
>> >> Range("F3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues
>> >>
>> >>
>> >> Salam
>> >> NangAgus
>> >>
>> >>
>> >> On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
>> >> <belajar-excel@yahoogroups.com> wrote:
>> >>> pak hk dan mr.kid
>> >>
>> >>>
>> >>>
>> >>> Sub Macro4()
>> >>> Range("f3").End(xlDown).Offset(1).Select
>> >>> Selection.PasteSpecial Paste:=xlPasteValues
>> >>> End Sub
>> >>>
>> >>>
>> >>> memilih cell akir +1 setelah data sudah bisa, akan tetapi ketika mau
>> >>> menambahkan sekrip paste spesial masih debug.
>> >>> (karena keterbatasan pengetahuan saya)
>> >>>
>> >>>
>> >>> jadi ceritanya begini saya punya 2 worbook A dan B lha isi workbook A
>> >>> itu
>> >>> datanya per tanggal
>> >>> misal A1 berisi 28 agt 2014 B2:K10 berisi data
>> >>> A12 berisi 29 agt 2014 B14:K30 berisi data
>> >>>
>> >>>
>> >>> nah maksud saya ingin copi data B2:B10 secara manual dan saya pastekan
>> >>> ke
>> >>> workbook B dengan bantuan si makro tersebut.
>> >>> begitu juga seterusnya saya ingin lagi mengulang kopi B14:B30 secara
>> >>> manual
>> >
>> >>> lalu saya pastekan lagi di workbok B dibawahnya data yang sudah ada.
>> >>> (kedua
>> >>> workbook dalam keadaan terbuka)
>> >>>
>> >>>
>> >>> (maksudnya biar workbook B bisa berkaidah data yang baik)
>> >>>
>> >>>
>> >>>
>> >>>
>> >>> salam
>> >>> liem
>> >>>
>> >>>
>> >>>
>> >>>
>> >
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>> Pada Rabu, 27 Agustus 2014 6:39, "'Mr. Kid' mr.nmkid@gmail.com
>> >>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>> Hai Liem,
>> >>>
>> >>>
>> >>> Misal F3 adalah range awal. Data kontinyu sampai F10. Ingin cell aktif
>> >>> di
>> >>> F11 (1 cell dibawah cell terakhir data kontinyu)
>> >>> Range("f3").end(xldown).offset(1).activate
>> >>> *** ganti activate dengan copy (jika ingin copy cell), pastespecial
>> >>> xlpastevalues (jika ingin paste special values), dsb
>> >>>
>> >>>
>> >>> Bagaimana kalau coba jalan-jalan lihat-lihat tentang range mulai dari
>> >>> sini.
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>> Wassalam,
>> >>> Kid.
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>>
>> >>> 2014-08-26 19:58 GMT+10:00 Liem Suliem liemsuliem@yahoo.co.id
>> >>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>> >>>
>> >>>
>> >>>
>> >>>>
>> >>>>dh dear master saya coba rekam makro dengan bunyi seperti dibawah..
>> >>>>yang ingisaya tanyakan bagaimana bunyi sekrip untuk memilih atau
>> select
>> >>>> 1
>> >>>> cel dibawahnya setelah dilakukan xldown
>> >>>>misal saya lakukan xldown F3:F10 tapi setelah saya lakukan xldown saya
>> >>>> ingin cell terplih adalah 1 cell dibawahnya yaitu F11
>> >>>>mohon arahan skripnya seperti apa..
>> >>>
>> >>>>
>> >>>>
>> >>>>
>> >>>>Sub Macro4()
>> >>>> Range("F3").Select
>> >>>> Range(Selection, Selection.End(xlDown)).Select
>> >>>>End Sub
>> >>>>
>> >>>>
>> >>>>salam
>> >>>>
>> >>>
>> >>>>
>> >>
>> >>>>liem
>> >>>>
>> >>>
>> >>>
>> >>>
>> >>
>> >>
>> >>
>> >
>> >
>> >
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (20) . Top ^

1d

Bls: [belajar-excel] Macro_select 1 cell dibawahnya xl down

Fri Aug 29, 2014 9:34 pm (PDT) . Posted by:

"Liem Suliem" liemsuliem

niki pak agus sing pun kulo edit.. dan berjalan sesuai yang dinginkan


tapi sing niki maksute pripun
1. belum didefinisikan variabel untuk aduhh dengan tipe string.


saya tambahai dim aduhh as string seprtinya sama..



Private Sub CommandButton3_Click()
Dim pileku As String
Dim celladd As String
Dim splitlist As Variant
Dim aduhh As String 'tambah ini atau tidak sekrip jalan

On Error GoTo Err
pileku = Application.GetOpenFilename(Title:="Tulung Bikak Setunggal File Mawon", _
FileFilter:="Excel Files *.xls* (*.xls*),")
splitlist = VBA.Split(pileku, "\")
aduhh = splitlist(UBound(splitlist, 1))
Workbooks.Open pileku
Sheets("Rincian").Range("C10").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 15).Address(False, False)
Sheets("Rincian").Range("C10:" & celladd).Copy
Windows("Monitoring Jadwal.xlsm").Activate
Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Workbooks.Open pileku
Sheets("Rincian").Range("C55").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 15).Address(False, False)
Sheets("Rincian").Range("C55:" & celladd).Copy
Windows("Monitoring Jadwal.xlsm").Activate
Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

Exit Sub
Err:
MsgBox "Mboten Tamtu Mbikak", vbExclamation, "Error"
End Sub


salam
liem




Pada Sabtu, 30 Agustus 2014 10:41, "Nang Agus nangagus@gmail.com [belajar-excel]" menulis:



Dear Pak Liem,


Cekripttt yang baru saja saya kirimkan ada beberapa kekurangan, tolong dilengkapi. antara lain:

1. belum didefinisikan variabel untuk aduhh dengan tipe string.

2. belum ada trap untuk cancel open file. (jika cancel open file akan error)


Wasalam

NangAgus

Reply to sender . Reply to group . Reply via Web Post . All Messages (20) . Top ^

1e

Re: Macro_select 1 cell dibawahnya xl down

Fri Aug 29, 2014 9:45 pm (PDT) . Posted by:

"Nang Agus"

Der PaK Liem,

Mohon maaf ternyata saya salah tentang variabel aduhh,
silahkan variabel aduhh beserta formulanyua dapat dibuang.
jadi cekrip panjenengan dapat dipersingkat menjadi:

Private Sub CommandButton3_Click()
Dim pileku As String
Dim celladd As String
On Error GoTo Err

pileku = Application.GetOpenFilename(Title:="Tulung Bikak Setunggal File
Mawon", _
FileFilter:="Excel Files *.xls* (*.xls*),")
Workbooks.Open pileku
Sheets("Rincian").Range("C10").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 15).Address(False, False)
Sheets("Rincian").Range("C10:" celladd).Copy
Windows("Monitoring Jadwal.xlsm").Activate
Range("F" Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Workbooks.Open pileku

Sheets("Rincian").Range("C55").End(xlDown).Offset(1).Select
celladd = ActiveCell.Offset(-1, 15).Address(False, False)
Sheets("Rincian").Range("C55:" celladd).Copy
Windows("Monitoring Jadwal.xlsm").Activate
Range("F" Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

Exit Sub
Err:
MsgBox "Mboten Tamtu Mbikak", vbExclamation, "Error"
End Sub

Dicobi rumiyin,

Salam

Nang Agus

2014-08-30 11:13 GMT+07:00 Liem Suliem liemsuliem@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> niki pak agus sing pun kulo edit.. dan berjalan sesuai yang dinginkan
>
> tapi sing niki maksute pripun
>
> 1. belum didefinisikan variabel untuk aduhh dengan tipe string.
>
> saya tambahai dim aduhh as string seprtinya sama..
>
> Private Sub CommandButton3_Click()
> Dim pileku As String
> Dim celladd As String
> Dim splitlist As Variant
> Dim aduhh As String 'tambah ini atau tidak sekrip jalan
> On Error GoTo Err
>
> pileku = Application.GetOpenFilename(Title:="Tulung Bikak Setunggal File
> Mawon", _
> FileFilter:="Excel Files *.xls* (*.xls*),")
> splitlist = VBA.Split(pileku, "\")
> aduhh = splitlist(UBound(splitlist, 1))
> Workbooks.Open pileku
> Sheets("Rincian").Range("C10").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 15).Address(False, False)
> Sheets("Rincian").Range("C10:" celladd).Copy
> Windows("Monitoring Jadwal.xlsm").Activate
> Range("F" Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
> Workbooks.Open pileku
>
> Sheets("Rincian").Range("C55").End(xlDown).Offset(1).Select
> celladd = ActiveCell.Offset(-1, 15).Address(False, False)
> Sheets("Rincian").Range("C55:" celladd).Copy
> Windows("Monitoring Jadwal.xlsm").Activate
> Range("F" Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
>
> Exit Sub
> Err:
> MsgBox "Mboten Tamtu Mbikak", vbExclamation, "Error"
> End Sub
>
> salam
> liem
>
>
> Pada Sabtu, 30 Agustus 2014 10:41, "Nang Agus nangagus@gmail.com
> [belajar-excel]" menulis:
>
>
>
> Dear Pak Liem,
>
> Cekripttt yang baru saja saya kirimkan ada beberapa kekurangan, tolong
> dilengkapi. antara lain:
> 1. belum didefinisikan variabel untuk aduhh dengan tipe string.
> 2. belum ada trap untuk cancel open file. (jika cancel open file akan
> error)
>
> Wasalam
> NangAgus
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (20) . Top ^

2a

Re: Transfer Data Column menjadi Row [1 Attachment]

Fri Aug 29, 2014 10:16 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Ada 2 tahapan yang diperlukan:
1. Mencari Unique Values (pake User Defined Function (UDF) "LOUV" nya mbak Siti, array formula ada #N/A) --> Kolom di Group (bisa disembunyikan)
2. Menggabungkan Unique Values tsb dgn separator "," (koma)...bukan array formula (#N/A tidak disorot)
Semoga membantu.

Salam,
HK

On Friday, 29 August 2014, 16:44, "ris ha har1sn.excel@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


Assalamu'alaikum. Maaf tanya lagi...,

Bagaimana caranya mentransfer data Column menjadi satu Row dan data yang sama pada Column tidak ditampilkan kembali pada Row. File terlampir.

Terima Kasih Banyak dan sukses selalu pada para master excel

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

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

Visit Your Group

• New Members 12

• Privacy • Unsubscribe • Terms of Use