Dim Hcount As Integer
Dim Mcount As Integer
Dim Lcount As Integer
Dim keywords As String
Dim sheeetcount As Integer
Dim AutomatedCircsColumn As Integer
Function ReturnKeywordsColumn(keywords As String, sheetcount As Integer) As Integer
'Dim AutomatedCircs As Integer
'AutomatedCircs = 0
'With Sheets(sheetcount).Range("a1:G500")
' Set c = .find(keywords)
'
' If Not c Is Nothing Then
' firstAddress = c.Address
' Do
' 'AutomatedCircs = AutomatedCircs + 1
' Set c = .FindNext(c)
' Loop While Not c Is Nothing And c.Address <> firstAddress
' End If
'End With
With Sheets(sheetcount).Range("a1:aa5")
Set c = .find("ÖØÒª¼¶±ð", LookIn:=xlValues)
If Not c Is Nothing Then
'ReturnKeywordsColumn = c.Address.Column
'MsgBox c.Address.Column
MsgBox c.Column
End If
End With
End Function
Sub HMLSata()
'MsgBox ReturnKeywordsColumn("ÖØÒª¼¶±ð", 4)
a = ReturnKeywordsColumn("ÖØÒª¼¶±ð", 4)
End Sub
Dim Mcount As Integer
Dim Lcount As Integer
Dim keywords As String
Dim sheeetcount As Integer
Dim AutomatedCircsColumn As Integer
Function ReturnKeywordsColumn(keywords As String, sheetcount As Integer) As Integer
'Dim AutomatedCircs As Integer
'AutomatedCircs = 0
'With Sheets(sheetcount).Range("a1:G500")
' Set c = .find(keywords)
'
' If Not c Is Nothing Then
' firstAddress = c.Address
' Do
' 'AutomatedCircs = AutomatedCircs + 1
' Set c = .FindNext(c)
' Loop While Not c Is Nothing And c.Address <> firstAddress
' End If
'End With
With Sheets(sheetcount).Range("a1:aa5")
Set c = .find("ÖØÒª¼¶±ð", LookIn:=xlValues)
If Not c Is Nothing Then
'ReturnKeywordsColumn = c.Address.Column
'MsgBox c.Address.Column
MsgBox c.Column
End If
End With
End Function
Sub HMLSata()
'MsgBox ReturnKeywordsColumn("ÖØÒª¼¶±ð", 4)
a = ReturnKeywordsColumn("ÖØÒª¼¶±ð", 4)
End Sub