Funcion InputBox para cualquier celda - Macros

[CiberPunk]

Hola me explico.

este tema corresponde a macros con excel estuve intentando para q me pida en q celda deseas ingresar el dato (sea la celda A1, A2,B1....) en cualquier celda.

aqui el codigo q solo me vota a una celda estblecida:

Public Sub Entradas()
Dim texto As String
texto = InputBox("Introducir un Texto" & Chr(13) & "Para la casilla A1", "Entrada de datos")
ActiveSheet.Ra nge("A1").Value = texto
End Sub

Saludos 

[ranefi]

Hola CiberPunk. Aquí te dejo lo que necesitas:

En un módulo REPLACEar el siguiente código

Código:

Sub Ejemplillo()
Comienza:
On Error GoTo ups
    Dim Mensaje As String
    Dim Celda As String
   
    Mensaje = InputBox("Introduce un mensaje aquí", _
        "Mensaje cochino", "Texto predeterminado")
       
    Celda = InputBox("Introduce la celda en donde quieres tu mensaje", _
        "Celda cochina", "B5")
       
    ActiveSheet.Range(Celda).Value = Mensaje
    Exit Sub
ups:
    MsgBox "La celda no es válida", _
        vbCritical, "Quiúbole qué cuá maistro"
    GoTo Comienza
End Sub

Espero te sirva. Nos vemos.

[CiberPunk]

Excelente ese codigo estuve buenazo con algunas mejoras asu mas de lo q pedi la verdad te pasaste Ranefi eso si q no me olvido ahora mi codigo quedo asi

Código:

Public Sub Entrada()
comienza:
On Error GoTo ups
    Dim Mensaje As String
    Dim Celda As String
   
    Mensaje = InputBox("REPLACEe un dato", _
        "Entrada de datos", "En una celda cualquiera")
       
    Celda = InputBox("Introduce la celda en donde quieres tu mensaje", _
        "Celda a escoger", "B5")
       
    ActiveSheet.Range(Celda).Value = Mensaje
    Exit Sub
ups:
    MsgBox "La celda no es válida", _
        vbCritical, "Dato no valido"
    GoTo comienza
End Sub