Sore Pak Danny Coba untuk kode ini: ActiveCell.FormulaR1C1 = "=Sheets(txtNama.Text)!RC[9]"
Diganti seperti ini: ActiveCell.Value= Sheets(txtNama.Text).range(“A1”).value Misal data yang akan diambil ada di range A1. Terima kasih Suyono From: [email protected] [mailto:[email protected]] Sent: Monday, April 06, 2015 1:45 PM To: [email protected] Subject: [belajar-excel] Kode VBA Application.ScreenUpdating = 0 Sheets(txtNama.Text).Range("C8").Select ActiveCell.FormulaR1C1 = "=Sheets(txtNama.Text)!RC[9]" Sheets(txtNama.Text).Range("C8").Select Selection.AutoFill Destination:=Sheets(txtNama.Text).Range("C8:C136"), Type:=xlFillDefault Sheets(txtNama.Text).Range("C8:C136").Select Sheets(txtNama.Text).Range("C8").Select Tolong dibantu ya. Bagaimana caranya agar kode ini ActiveCell.FormulaR1C1 = "=Sheets(txtNama.Text)!RC[9]" bisa berjalan dengan baik. Jadi saya ingin mengisi cell dengan hasil yang ada di sheet lain. Seharusnya kan kodenya seperti dibawah ini ActiveCell.FormulaR1C1 = "='2 April'!RC[9]" Tapi saya inginnya 2 april nya itu dipilih dari txtnama.text yang ada dalam userform. Terima kasih sebelumnya.
