Como puedo hacer para que en Excel el programa me pregunte en que hoja me quiero situarme y en que celda y que quiero escribir
Como hacer para que en excel un programa me pegunte lo siguiente
¿En qué hoja me quiero situar?
¿En qué celda?
¿Qué quiero escribir?
Hasta el momento llevo esto:
Sub Ejer02()
Dim hoja As String, tex As String, celda As String
celda = InputBox("En que celda desea situarse")
tex = InputBox("Que desea escribir")
hoja = InputBox("En que hoja desea situarse")
Worksheets("Hoja2").Activate
ActiveSheet.Range(celda).Value = tex
ActiveSheet.Range(celda).Font.Color = RGB(0, 255, 0)
End Sub
1 Respuesta
Respuesta de Dante Amor
2
Te anexo la macro con algunas validaciones
Sub Ejer02()
Dim hoja As String, tex As String, celda As String
celda = InputBox("En que celda desea situarse")
tex = InputBox("Que desea escribir")
hoja = InputBox("En que hoja desea situarse")
'
If celda = "" Then Exit Sub
If hoja = "" Then Exit Sub
'
existe = False
For Each h In Sheets
If LCase(h.Name) = LCase(hoja) Then
existe = True
Exit For
End If
Next
If existe Then
Worksheets(hoja).Activate
ActiveSheet.Range(celda).Value = tex
ActiveSheet.Range(celda).Font.Color = RGB(0, 255, 0)
Else
MsgBox "No existe la hoja : " & hoja
End If
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
