Ticket-Generation/Module5.bas at main · DRted2099/Ticket-Generation · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Attribute VB_Name = "Module5"
Option Explicit

Function KeyListOnly(x As String) As String

Dim cellTot() As String
Dim rng As Range, rng2 As Range
Dim var1 As String, var2 As String
Dim varEInput As Integer

var1 = "A3"

Worksheets(5).Select

Range("A3").CurrentRegion.Select

Set rng = Selection.Find("R" & x, After:=Range(var1), LookIn:=xlValues, LookAt:=xlWhole, _
                        SearchOrder:=xlRows)

Set rng2 = Selection.Find("R" & x & " Total", After:=Range(var1), LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlRows)

var1 = rng.Offset(0, 3).Address

Debug.Print var1

If rng2 Is Nothing Then

    Set rng2 = rng

End If

var2 = rng2.Address

rng.Select
Selection.Offset(0, 3).Select

Debug.Print var1, var2

If rng = rng2 Then

    varEInput = "1"

Else

    Debug.Print var2
    cellTot = Split(var2, "$")
    Range(var1 & ":" & "E" & cellTot(2) - 1).Select
    varEInput = Selection.SpecialCells(xlCellTypeConstants).Count
    Range(var1).Select


End If

KeyListOnly = CStr(varEInput)

End Function