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
How can I compare Files in a Directory with a Text File List using a DOS Batch File?
VB.Net exe, icon and shortcut
quick question
DSUM with multiple rows and multiple columns
IOS VPN Configuration for iPhone
Migration from 2003 SBS to 2008 Foundation Server
Wireless Internet problem
Older Flash document potential issues
Plug n Play/USB/Registry Nigtmare - I Need to regularly delete keys in order to "detect" my MP3 Player!
VPN disconnects over 2 way satellite