REM GetRowValue( login,username)
Flag Username Password
Y sumit pwdsumit
N sagar neha123
Sheetname:Login
Workbookname:Data.xlsx
O/P: REM GetRowValue( login,username)
=>sumit
Function GetRowValue(Sheetname,Columnname)
Dim Oexl,Owb,Ows1,ows2,Sheetnamev,Columnnamev
Sheetnamev=Sheetname
Columnnamev=Columnname
Set Oexl=createobject("Excel.Application")
Set Owb=Oexl.Workbooks.Open("C:\Users\Sunshine\Desktop\GmailMar\Data\Master.xlsx")
Owb.Activate
'Owb.
'headername=Inputbox("Enter Header")
Set ologin=Owb.Worksheets(Sheetnamev)
ologinrc=ologin.usedrange.rows.count
ologincc=ologin.usedrange.columns.count
For j=1 to ologincc
If ologin.cells(1,j)=Columnnamev Then
columnheaderpos=j
'msgbox columnnumber
Exit For
End If
Next
For r=2 to ologinrc step 1
If ologin.cells(r,1)="Y" Then
REM first find header's location
data=ologin.cells(r,columnheaderpos)
'GetHederPos=data
msgbox data
Exit For
End If
Next
Set Owb=nothing
Set Ologin=nothing
Set Owb=nothing
'msgbox j
End Function
'GetHederPos "Login","Username"
GetHederPos "Login","Password"
