Get_Name wise




(Column C- Unique data Column A) Column D- Data Picks whose Start With AJAY  

(Lookup)


Sub Get_Name()
Dim i As Integer
Set rng1 = Sheet1.Range("g2:g6")
Cri1 = Sheet1.Range("H1").Value
For Each CELL In rng1
Cri2 = CELL.Value
For i = 2 To Sheet1.Range("a65536").End(xlUp).Row
Val1 = Left(Cells(i, 2).Value, 4)
If Cells(i, 1).Value = Cri2 And Val1 = Cri1 Then
Cells(CELL.Row, 8).Value = Cells(i, 2).Value
Else
End If
Next
Next
End Sub

Comments

Post a Comment

jeetexceltips@gmail.com

Popular posts from this blog

50 Excel VBA Oral Interview Questions

Ques 01. What is the difference between ByVal and ByRef and which is default ? Solution: ByRef: If you pass an argument by reference when calling a procedure the procedure access to the actual variable in memory. As a result the variable's value can be changed by the procedure. ByVal: If you pass an argument by value when calling a procedure the variable's value can be changed with in the procedure only outside the actual value of the variable is retained. ByRef is default: Passing by reference is the default in VBA. If you do not explicitly specify to pass an argument by value VBA will pass it by reference. Ques 02. What is the meaning of Option Explicit and Option Base? Solution: Option Explicit makes the declaration of Variables Mandatory while Option Base used at module level to declare the default lower bound for array subscripts. For eg. Option Base 1 will make the array lower bound as 1 instead of 0. Option Base - When an array is declared by d...
Read more