Hello Forum
I've specific requirement where in I need to copy only selected rows from text file to excel in different columns.
below is the sample from the text file.
What I need is the highlighted in bold should be fetch by Macro till the end of text file and copy the output to 4 different columns as
Column A Column B Columns C
Policy Name Active Client/HW/OS/Pri/CIT
Keeping in mind that some of the Policy name will have only 1 or 2 Client/HW/OS/Pri/CIT details but some of them has more than 25 or 40 as well. So, all Client/HW/OS/Pri/CIT details should be available in one single box only. So desired output considering below example
Column A Column B Columns C
Policy Name Active Client/HW/OS/Pri/CIT
AD_GRT_CH2 Yes bymccrsd0161.bentley.emea.vwg
bymccrsd0162.bentley.emea.vwg
Kindly help to construct a good vba code to automate the time consuming task.
====================================================
Policy Name: AD_GRT_CH2
Options: 0x0
template: FALSE
audit_reason: ?
Names: (none)
Policy Type: MS-Windows (13)
Active: yes
Effective date: 22/07/2014 19:28:11
Client Compress: no
Follow NFS Mnts: no
Backup netwrk drvs:no
Collect TIR info: no
Mult. Data Stream: yes
Perform Snapshot Backup: no
Snapshot Method: (none)
Snapshot Method Arguments: (none)
Perform Offhost Backup: no
Backup Copy: 0
Use Data Mover: no
Data Mover Type: 2
Use Alternate Client: no
Alternate Client Name: (none)
Use Virtual Machine: 0
Hyper-V Server Name: (none)
Enable Instant Recovery: no
Policy Priority: 0
Max Jobs/Policy: 4
Disaster Recovery: 0
Collect BMR Info: no
Keyword: (none specified)
Data Classification: -
Residence is Storage Lifecycle Policy: yes
Client Encrypt: no
Checkpoint: no
Residence: CH2_Daily_SLP
Volume Pool: NetBackup
Server Group: *ANY*
Granular Restore Info: yes
Exchange Source attributes: no
Exchange DAG Preferred Server: (none defined)
Application Discovery: no
Discovery Lifetime: 28800 seconds
ASC Application and attributes: (none defined)
Generation: 35
Ignore Client Direct: no
Use Accelerator: no
Optimized Backup: no
Client/HW/OS/Pri/CIT: bymccrsd0161.xxx.xxx.net Windows-x64 Windows2008 0 0 0 ?
Client/HW/OS/Pri/CIT: bymccrsd0162.xxx.xxx.net Windows-x64 Windows2008 0 0 0 ?
Include: ALL_LOCAL_DRIVES
Include: System State:\
Include: Shadow Copy Components:\
Schedule: Monthly_Backup
====================================================
I've specific requirement where in I need to copy only selected rows from text file to excel in different columns.
below is the sample from the text file.
What I need is the highlighted in bold should be fetch by Macro till the end of text file and copy the output to 4 different columns as
Column A Column B Columns C
Policy Name Active Client/HW/OS/Pri/CIT
Keeping in mind that some of the Policy name will have only 1 or 2 Client/HW/OS/Pri/CIT details but some of them has more than 25 or 40 as well. So, all Client/HW/OS/Pri/CIT details should be available in one single box only. So desired output considering below example
Column A Column B Columns C
Policy Name Active Client/HW/OS/Pri/CIT
AD_GRT_CH2 Yes bymccrsd0161.bentley.emea.vwg
bymccrsd0162.bentley.emea.vwg
Kindly help to construct a good vba code to automate the time consuming task.
====================================================
Policy Name: AD_GRT_CH2
Options: 0x0
template: FALSE
audit_reason: ?
Names: (none)
Policy Type: MS-Windows (13)
Active: yes
Effective date: 22/07/2014 19:28:11
Client Compress: no
Follow NFS Mnts: no
Backup netwrk drvs:no
Collect TIR info: no
Mult. Data Stream: yes
Perform Snapshot Backup: no
Snapshot Method: (none)
Snapshot Method Arguments: (none)
Perform Offhost Backup: no
Backup Copy: 0
Use Data Mover: no
Data Mover Type: 2
Use Alternate Client: no
Alternate Client Name: (none)
Use Virtual Machine: 0
Hyper-V Server Name: (none)
Enable Instant Recovery: no
Policy Priority: 0
Max Jobs/Policy: 4
Disaster Recovery: 0
Collect BMR Info: no
Keyword: (none specified)
Data Classification: -
Residence is Storage Lifecycle Policy: yes
Client Encrypt: no
Checkpoint: no
Residence: CH2_Daily_SLP
Volume Pool: NetBackup
Server Group: *ANY*
Granular Restore Info: yes
Exchange Source attributes: no
Exchange DAG Preferred Server: (none defined)
Application Discovery: no
Discovery Lifetime: 28800 seconds
ASC Application and attributes: (none defined)
Generation: 35
Ignore Client Direct: no
Use Accelerator: no
Optimized Backup: no
Client/HW/OS/Pri/CIT: bymccrsd0161.xxx.xxx.net Windows-x64 Windows2008 0 0 0 ?
Client/HW/OS/Pri/CIT: bymccrsd0162.xxx.xxx.net Windows-x64 Windows2008 0 0 0 ?
Include: ALL_LOCAL_DRIVES
Include: System State:\
Include: Shadow Copy Components:\
Schedule: Monthly_Backup
====================================================