VBA ignore anything NOT text

[deletedalien]

Hi all:

i have the following Code

Private Sub summary()


    Set Rng = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)
    For Each c In Rng
        If c.Value <> "" And Not IsDate(c.Value) Then
            Name = c.Value
        
                 Else
            If c.Value <> "" Then c.Offset(1, -1) = Name
        End If
    Next c
End Sub

but i need it to ignore anything that is not text

my data in column "B" looks like this (starts in B3)

And i need it to move the campaign title (camp1, camp2, different canes not just camp) to column "A" right next to the green date cells,
So far it works BUT whenever it finds a Date instead of a campaign, it will copy the last date cell (in green) which is wrong. i tried adding if not istext but doesnt work, also tried adding, if isnot isnumeric but that one failed completely

And actually right now its not MOVING the campaign name but just copying it...


can you guys please help

	Camp1
	2015-06-09
*	00:00- 00:30
*	03:30 - 04:00
*	04:00 - 04:30
	2015-06-10
*	02:00 - 02:30
*	05:30 - 06:00
	Camp2
	2015-06-09
*	06:00 - 06:30

<tbody>
</tbody>

 

[shg]

If VarType(c.Value2) = vbString Then

 

[deletedalien]

YESS!!!

Thank ya

 

[jasonb75]

This can probably be simplified a bit,

Option Explicit
Private Sub summary()
Dim rng As Range, c As Range, pName As String
Set rng = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)
    For Each c In rng
        If c.Value <> "" And Not IsDate(c.Value) Then
            If Not IsNumeric(Left(c.Value, 1)) Then
                pName = c.Value
                c.ClearContents
            Else
                c.Offset(0, -1) = pName
            End If
        End If
    Next c
End Sub

 

[shg]

You're welcome.