seba0088

leone respondió: La solución con el guion que indicas seria así: ActiveCell.FormulaR1C1 = "=Left(R[-1]C,Len(R[-1]C)-2) + 1 & """ & "-" & Left(Format(Date, "mmm"), 1) & """"

kelrock respondió: Creo que lo que preguntas es esto: Private Sub userform_initialize() TextBox1 = Range("a1").Value End Sub Ponlo dentro del código del formulario, cuando lo arranques en el textbox1 te pondrá el valor de la celda A1.