Dim sth as string

[Vanda_a]

Dear all

May I know if it is possible that I can set sth like this?

dim AA as string

AA = "Apple" & number(any number)

Thank you very much

 

[Jonmo1]

I don't see why not..

Dim AA As String
AA = "Apple" & 28745
MsgBox AA

Message Box would show Apple28745

 

[Vanda_a]

I don't see why not..

Dim AA As String
AA = "Apple" & 28745
MsgBox AA

Message Box would show Apple28745

No.. I meant the number can be any number but not specific.

I got many sheets to save as PDF. All the start with same letter(Apple231) or (Orange555) so if I can set AA "Apple" & any num, then I can make my code work. Now am struggling with this problem.

 

[Jonmo1]

You can replace the 28745 with any number you like.
How should the number be chosen?

This will choose it randomly..
AA = "Apple" & Application.Randbetween(1,1000)

 

[Jonmo1]

Maybe you mean something like this

Sub test()
Dim AA As String, ws As Worksheet
AA = "Apple"
For Each ws In Worksheets
    If ws.Name Like AA & "*" Then
        MsgBox ws.Name
    End If
Next ws
End Sub

 

[Vanda_a]

One more please.

Above post was my own one that I am try to learn.

This one I got help from other

Sub PDFSAVEE()
    Dim fPath As String
    fPath = "C:\User\Vanda\Desktop\"
    Dim ws As Worksheet
    For Each ws In Worksheets
        Select Case ws.Name
            Case "INV", "Reim", "DN"
                ws.ExportAsFixedFormat xlTypePDF, Filename:=fPath & "MyPDF_" & ws.Name & ".pdf"
            Case Else
                'do nothing
        End Select
    Next ws
End Sub

Like * "*" still work on it?
Case Like "INV" * "*"

 

[Jonmo1]

OK, now we can see the scope of what you're doing..

Try

Sub test()
Dim ws As Worksheet
Dim INVname(1 To 3) As Variant, i As Long

INVname(1) = "INV"
INVname(2) = "Reim"
INVname(3) = "DN"

For Each ws In Worksheets
    For i = LBound(INVname) To UBound(INVname)
        If ws.Name Like INVname(i) & "*" Then
            MsgBox ws.Name
        End If
    Next i
Next ws
End Sub

 

[Vanda_a]

.

Cool thank you very much

 

[Jonmo1]

You're welcome.

 

[Vanda_a]

You're welcome.

Hello again

This mark " * " covers all strings. not only number but also text.

Ex: My sheet name is INVDDD. This Like & "*" still read it. How can I have it read only numeric?