DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Selecting the first and second characters in an excel cell

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Oct 2009

Posts: 20

Reputation: JLynn is an unknown quantity at this point

Solved Threads: 0

JLynn

Offline

Newbie Poster

Selecting the first and second characters in an excel cell

Oct 29th, 2009

Hello,

I am having trouble figuring out the correct syntax for a small portion of my code. I am trying to have my code search through a column and for each entry in that column copy and paste only the rows that have the following characteristics: the first character = 0 and the second character = the value in cell (1, 9) in the current worksheet.

Below is the logic I have come up with (don't worry about "y" or "vend": they have already been declared in previous code):

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
For y = 3 To vend + 1
     If "the 1st character" = 0 and "the 2nd character" = Range("I1") Then
          Range("B" & y & ":F" & y).Copy
          "Find last row in sheet 'Selected Values'"
          "Paste in that cell"
     End If
Next y
For y = 3 To vend + 1
     If "the 1st character" = 0 and "the 2nd character" = Range("I1") Then
          Range("B" & y & ":F" & y).Copy
          "Find last row in sheet 'Selected Values'"
          "Paste in that cell"
     End If
Next y

The only part I need help with is determining the correct syntax for selecting the first and second characters in a cell. The other stuff in quotes I already know.

Thanks in advance for your help,

Jordan

•

Join Date: Oct 2008

Posts: 10

Reputation: Celt.Max is an unknown quantity at this point

Solved Threads: 4

Celt.Max

Offline

Newbie Poster

Oct 30th, 2009

Hi there...
"the 1st character" ~ Left(Range("X" & y), 1)
"the 2nd character" ~ Mid(Range("X" & y), 2, 1)

where X you can change for the letter of your column