Formula or vba code to copy entire column based on text found in entire cell range

[Rahulkr]

Dear All masters, I am having some data like below:- Is there any formula or Vba code to fetch or copy entire column based on text found. Many many thanks in advance.

Column	A	B	C	D	E	F	G
Row 1	Days	D1	D2	D3	D4	D5	D6
Row 2	type	PH1	PH2	PH3	PH4	PH5	PH6
Row 3					jk
Row 4					lm
Row 5
Row 6					no
Row 7
Row 8					08:30 Ande
Row 9
Row 10					789pq
Row 11					89yy

From this data I need to copy only that entire column in which the word "ANDE" is found and paste the entire row as below in another sheet:-

It it fixed that the word which I have to search will be unique, but it is not fixed that the word which I will search will be in same column, every time it will be changing the position from cell to cell and column to column.
But the given range of data will be fixed.

Many many thanks in advance. if any one can help on this.

 

[Fluff]

In your profile you have selected virtually every version of xl

You need to go into Account details & unselect all versions of Excel other than 2010.
That way members here will know which version of Excel you are using.

 

[Rahulkr]

In your profile you have selected virtually every version of xl
View attachment 31582
You need to go into Account details & unselect all versions of Excel other than 2010.
That way members here will know which version of Excel you are using.

Many many Thanks Fluff for assisting me

 

[Joe4]

Joe, similarly how can I do for Max and Mark in sheet 3 and 4?

As long as all three values exist, this should work:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim myText() As Variant
    Dim c As Long
    Dim i As Long

'   Enter values to look up in array
    myText = Array("Ande", "Max", "Mark")
   
'   Loop through array
    For i = LBound(myText) To UBound(myText)
       
'       Locate value on sheet 1
        On Error GoTo err_chk
        c = Cells.Find(What:=myText(i), After:=Range("A1"), LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False).Column
        On Error GoTo 0
       
'       Copy and paste to other sheets
        Columns(c).Copy Sheets(i + 2).Range("A1")
       
    Next i

    Exit Sub
   
err_chk:
'   error handling if cannot find value
    If Err.Number = 91 Then
        MsgBox "Cannot find " & myText(i) & " on Sheet1", vbOKOnly, "ERROR!"
    Else
        MsgBox Err.Number & ": " & Err.Description
    End If
       
End Sub

 

[Fluff]

Many many Thanks Fluff for assisting me

And thank you for updating your details.

 

[Rahulkr]

And thank you for updating your details.

Many many Thanks from my bottom of my heart, Joe and Fluff for helping and assisting me. Lots of thanks and Uncountable blessings from my heart to you all.

 

[Dossfm0q]

Public Sub copyColumn()
    
    Dim Rng As Range: Set Rng = Sheet1.Range("A1").CurrentRegion
    Dim Cl As Long, LstRw As Long
    
        Cl = Sheet1.Cells.Find(What:="Ande", After:=Rng.Cells(1, 1), LookIn:=xlValues, LookAt:=xlPart, _
        SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Column
        
        LstRw = Cells(Rows.Count, Cl).End(xlUp).Row
        
        Rng.Columns(Cl).Cells(1, 1).Resize(LstRw, 1).Copy Destination:=Sheet2.Range("A1")
End Sub

 

[Joe4]

Did my last code work for you, with your 3 values?

 

[Rahulkr]

Did my last code work for you, with your 3 values?

Yes Joe a lot, many many thanks once again, but can I ask one question??

 

[Rahulkr]

Joe, now I am in trouble that the code which you have provided is working very much fine in system, but what if I will upload that file in the google sheet. Yes, I have tried that also, but it won't work. So, I am Keeping coded file in my system through system sharing and one file which is based on formula is kept in google sheet for remote users where I have used the below formula which is quite working but not what I desired as.

and the formula is =INDEX($A$1:$G$11,ROW($ZZ1),MATCH(1,TRANSPOSE(MMULT(--(TRANSPOSE(ISNUMBER(SEARCH("Ande",$A$1:$G$11)))),ROW($A$1:$G$11)^0)),0))&"".

and the requirement changed as per the use as like this below:-

Drivers	driver 1	driver 2	driver 3	driver 4	driver 5	driver 6
ph no	PH1	PH2	PH3	PH4	PH5	PH6
pickup area	9111	811	6111	3558	2254	2255
	08:30 Ande
pickup time			08:30 Max		09:10 Mark
Drop	Ande		Max		Mark

and the data should be pasted as in Sheet1 like below:

driver 1

PH1

9111

08:30 Ande

Ande

and so on similarly in sheet 2 for max and sheet 3 for mark.

If possible kindly please help me on this. The error what I am getting is that if the Ande is written with time and without time in the same column then it is showing #N/A and when if i will remove any of one values from the entire column then it is working . Please have a look on this.

 

[Joe4]

I do not work in Google Sheets, so I cannot help you there.
I recommend you post a new question and post it to the General Discussion & Other Applications forum, which is the place to post Google Sheets questions.