Hi, razor_raef,
not the best of all thread titles I must admit.
Sub Number1()
Range("A1").Copy
End Sub
Sub Number2()
Range("F1").Select
ActiveSheet.Paste
End Sub
For me it doesnīt make sense to edit the contents of a cell directly from VBA as that would block the macro until action is ended. You may consider using an Inpiutbox for that:
Sub Number3()
With Range("A1")
.Value = InputBox("Edit the value for " & .Address(0, 0), "Edit Cell value", .Value)
End With
End Sub
The last code will automaticly paste the value into the cell, you could adapt the cell where to put the value.
Sub Number5_Constants()
On Error Resume Next
Range("A1:A14").SpecialCells(xlCellTypeConstants, 23).Copy Range("E1")
End Sub
Sub Number5_Formulas()
On Error Resume Next
Range("A1:A14").SpecialCells(xlCellTypeFormulas, 23).Copy Range("E1")
End Sub
Ciao,
Holger
Bookmarks