baskar5353
Board Regular
- Joined
- Mar 21, 2015
- Messages
- 114
Hi,
i'm having code in one sheet in that i'm having "Headers" sheet. in "Header" sheet what are name is there i want find that header in another sheet. how can do in VBA
this my code
Set WB = ThisWorkbook
WB.Activate
Sheets("VBA Variables").Select
wPath = ActiveSheet.Range("A3").Value & ActiveSheet.Range("C3").Value & ".xlsx"
wnPath = ActiveSheet.Range("E3").Value & ".xlsx"
wsPath = ActiveSheet.Range("F4")
Sheets("Header").Select
'Open the file which need to validated
Workbooks.Open Filename:=wPath, UpdateLinks:=0 'Open the working file
Sheets(wsPath).Visible = True
Sheets(wsPath).Select
'Date Formate
Set rngAddress = Range("A1:Z1").Find(" ")
If rngAddress Is Nothing Then
MsgBox "column was not found."
Exit Sub
End If
in here in find comment i want read input from which i have in "Header" sheets
i'm having code in one sheet in that i'm having "Headers" sheet. in "Header" sheet what are name is there i want find that header in another sheet. how can do in VBA
this my code
Set WB = ThisWorkbook
WB.Activate
Sheets("VBA Variables").Select
wPath = ActiveSheet.Range("A3").Value & ActiveSheet.Range("C3").Value & ".xlsx"
wnPath = ActiveSheet.Range("E3").Value & ".xlsx"
wsPath = ActiveSheet.Range("F4")
Sheets("Header").Select
'Open the file which need to validated
Workbooks.Open Filename:=wPath, UpdateLinks:=0 'Open the working file
Sheets(wsPath).Visible = True
Sheets(wsPath).Select
'Date Formate
Set rngAddress = Range("A1:Z1").Find(" ")
If rngAddress Is Nothing Then
MsgBox "column was not found."
Exit Sub
End If
in here in find comment i want read input from which i have in "Header" sheets