Trying to get the solution...

[VBABEGINER]

Hi All Experts,

Can anyone solve the problem?

in cell a10, i have a value.

if cell a10 = "any value"
then
it should get reflect in Col B.

The starting point of Col B is started from - b13 to last value in col A. (i.e- if value end in col A at a16, then b13 to b16 is the range.)

Is this possible?

 

[villy]

Try this...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 13 To Range("A" & Rows.Count).End(xlUp).Row
    If Range("A" & i) <> Empty Then Range("B" & i).Value = Range("A" & i)
Next
End Sub

 

[VBABEGINER]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 13 To Range("A" & Rows.Count).End(xlUp).Row
    If Range("A" & i) <> Empty Then Range("B" & i).Value = Range("A" & i)
Next
End Sub

But how i can understand the from A10 value is reading?

 

[villy]

Where do you want your value in A10 if your B column starts in 13? How it will reflect the value in B?Is it necessary that the rows are same? anyhow, try this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 10 To Range("A" & Rows.Count).End(xlUp).Row
    If Range("A" & i) <> Empty Then Range("B" & i+3).Value = Range("A" & i)
Next
End Sub

 

[VBABEGINER]

Hey Villy,

Its really great yaaar.

 

[villy]

Hey Villy,

Its really great yaaar.

Hope it gives you what you need. Thanks for appreciating it.
God bless

 

[VBABEGINER]

Hey Villy,

sorry for distrubing you again.

i got all solution. Only one modification i require,

the o/p that is in col B came, seeee....

a10 contains value.

This value i got in the respective Col B starting from B13.

But i dont want all content of a10.
first 5 characters should get remove and then this value come in b13.

any way i using right function, but this gonaa not make any solution.

Can u pls prefer me the best?

 

[villy]

Hey Villy,

But i dont want all content of a10.
first 5 characters should get remove and then this value come in b13.

Do you want to remove first 5 char of A10 only or for all starting from A10 please be specific..thanks
give you the solution in a moment

 

[villy]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 10 To Range("A" & Rows.Count).End(xlUp).Row
    Set Rng = Range("A" & i)
    If Rng <> Empty Then
        If i = 10 Then
            temp = Right(Rng, Len(Rng) - 5)
            Range("B" & i + 3).Value = temp
        Else
            Range("B" & i + 3).Value = Rng
        End If
    End If
Next
End Sub

This one should work

 

[VBABEGINER]

its been really great of you, Villy.
ray: