Coba ubah : ActiveCell.FormulaR1C1 = "=Sheets(txtNama.Text)!RC[9]" menjadi : ActiveCell.FormulaR1C1 = "=" & "'" & txtNama.Text & "'" & "!RC[9]" yang bisa juga ditulis dengan : ActiveCell.FormulaR1C1 = "='" & txtNama.Text & "'!RC[9]"
2015-04-06 16:44 GMT+10:00 Danny Prasetyo [email protected] [belajar-excel] <[email protected]>: > > > 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. > > >
