Microsoft
Software
Hardware
Network
Question : How to select range to append to?
this works if i use Active cell, but i want it to always apend (somthing 9999 to the begining of everything in column A:A if its not blank.
Sub DoubleSlash()
Dim str As String
Dim cel As Range
Set cel = Range("A:A") << error here
If cel = "" Then Exit Sub
If Left(cel, 2) = "9999" Then
cel = Mid(cel, 3, Len(cel) - 2)
Else
cel = "999" & cel
End If
cel.Offset(1, 0).Activate
End Sub
Answer : How to select range to append to?
Sub DoubleSlash()
Dim str As String
Dim cel As Range
For Each cel In Range("A:A")
If cel = "" Then Exit Sub
If Left(cel, 2) = "9999" Then
cel = Mid(cel, 3, Len(cel) - 2)
Else
cel = "999" & cel
End If
Next cel
End Sub
Random Solutions
Project Server 2010 won't install
greater then formula issue
WIll quickbooks 2010 run on server 2000?
Joomla Re-install
New ESXi install fails (PSOD)
Resetting a 3600 Cisco Router to Factory Defaults
jucheck.exe in Windows 7 with Active Directory
Vista security center not responding - High CPU Usage
How to add a flash screen in vb.net 2005
How do i do PXE Boot using windows 2008 server and Deployment Workbench