I’m trying to use VBA for copy paste to cell, but when i put a range of cells, it gives me “Run-time error 13: Type mismatch”
My Code is below:
<code>Sub RemovePrefix()
Dim Str As String
Str = Sheets("Input").Range("C3:J3")
Str = Replace(Str, "Username / Nama TikTok : ", "")
Sheets("Input").Range("C3:J3") = Str
End Sub
</code>
<code>Sub RemovePrefix()
Dim Str As String
Str = Sheets("Input").Range("C3:J3")
Str = Replace(Str, "Username / Nama TikTok : ", "")
Sheets("Input").Range("C3:J3") = Str
End Sub
</code>
Sub RemovePrefix()
Dim Str As String
Str = Sheets("Input").Range("C3:J3")
Str = Replace(Str, "Username / Nama TikTok : ", "")
Sheets("Input").Range("C3:J3") = Str
End Sub
I need help. What am I missing here and how can I solve it?
Thank you very much. Kind regards.
New contributor
Caya is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
Stris VBA built-in function. Pls don’t use it as a variable.Sheets("Input").Range("C3:J3")returns a 2D array.Replacefunction doesn’t work with it.
<code>Sub RemovePrefix()
Dim aData As String, i As Long
With Sheets("Input").Range("C3:J3")
aData = .Value
For i = 1 To UBound(aData, 2)
aData(1, i) = Replace(aData(1, i), "Username / Nama TikTok : ", "")
Next
.Value = aData
Next
End Sub
</code>
<code>Sub RemovePrefix()
Dim aData As String, i As Long
With Sheets("Input").Range("C3:J3")
aData = .Value
For i = 1 To UBound(aData, 2)
aData(1, i) = Replace(aData(1, i), "Username / Nama TikTok : ", "")
Next
.Value = aData
Next
End Sub
</code>
Sub RemovePrefix()
Dim aData As String, i As Long
With Sheets("Input").Range("C3:J3")
aData = .Value
For i = 1 To UBound(aData, 2)
aData(1, i) = Replace(aData(1, i), "Username / Nama TikTok : ", "")
Next
.Value = aData
Next
End Sub