valuenumbers need to be pasted in a specific cell

[sey]

Hi,

I have a question, first i search with a lookup some valuenumbers.
But then the valuenumbers need to be pasted in a specific cell.

As example:
If the valuenumber is between 0-50 then it need to be pasted in Cell("A2")

If the valuenumber is between 50-100 then it need to be pasted in cell("A3")

if the ....


Anyone has an idea how i can do this?


Kind Regards
Sey

 

[sey]

If you don't want to look for the whole code, just an idea is enough, i don't know how to begin at this.

 

[VoG]

Try this to copy the value in cell A1

Sub test()
Range("A" & Int(Range("A1").Value / 50) + 2).Value = Range("A1").Value
End Sub

 

[rs2k]

This is using cell A1 as the result of the lookup value;

Sub LookupPaste()
Select Case Range("A1").Value
Case Is < 50
Range("A2").Value = Range("A1").Value
Case Is < 100
Range("A3").Value = Range("A1").Value
End Select

End Sub

Adjust ranges to suit,

HTH
Colin

 

[sey]

Thank you, everything u peolpe reply i can maybe use.

Because this is my project:

I have a worksheet with all the dimensions of a workpiece.

with a lookup i will search the dimensions and paste them on a specific place by a image of the section of that workpiece (specific place it's on scale 50, so if he finds 27, it will be placed in cell 0-50, it doesn't need to be that correct).
So i gived every cell a name like:

section50 ( for a number between 0-50)
section100 (for a number between 50-100)

I was thinking of:

First i give every cell a name around that image (section50, section100,...)

then i search with lookup the numbers, if he find 20 then he putt it in cell("section50")

but i dont know good code for put the numbers in the correct cell. or are there better solutions?

 

[sey]

Thank you very much, it's getting better and better
But my look up found 3030 and pasted it in section100 ? did i something wrong?
here you see some code (from section 0-300)

Sub LookupPaste()
'Select Case Range("A1").Value
'Case Is < 50
'Range("A2").Value = Range("A1").Value
'Case Is < 100
'Range("A3").Value = Range("A1").Value
'End Select
Dim acell As Range
Sheets("kwnie").Activate
Range("D20").Name = "section100"
Range("E20").Name = "section200"
Range("F21").Name = "section300"
Sheets("SETUP").Activate
For Each acell In Range("eer")
If IsEmpty(acell) Then
Else
ActiveCell.copy
Sheets("kwnie").Activate
Select Case Range("afmt100").Value
Case Is < 100
Range("section200").Value = Range("section100").Value
Case Is < 200
Range("section300").Value = Range("section100").Value
End Select
ActiveCell.PasteSpecial
End If
Next acell
End Sub

This is using cell A1 as the result of the lookup value;

Sub LookupPaste()
Select Case Range("A1").Value
Case Is < 50
Range("A2").Value = Range("A1").Value
Case Is < 100
Range("A3").Value = Range("A1").Value
End Select
 
End Sub

Adjust ranges to suit,

HTH
Colin

 

[rs2k]

You need to add more case statements;

Select Case Range("afmt100").Value
Case Is < 100
Range("section200").Value = Range("section100").Value
Case Is < 200
Range("section300").Value = Range("section100").Value
Case Is < 300
Range("section400").Value = Range("section100").Value
Case Is < 400
Range("section500").Value = Range("section100").Value
Case Is < 500
Range("section600").Value = Range("section100").Value
Case Else
'Whatever'
End Select

HTH
Colin

 

[rs2k]

Sorry, I've just edited this bit of code;

Select Case Range("afmt100").Value
Case Is < 100
Range("section200").Value = Range("section100").Value
Case Is < 200
Range("section300").Value = Range("section200").Value
Case Is < 300
Range("section400").Value = Range("section300").Value
Case Is < 400
Range("section500").Value = Range("section400").Value
Case Is < 500
Range("section600").Value = Range("section500").Value
Case Else
'Code for Whatever else'
End Select

I'm not 100% sure of what you are trying to do, but if you can't adapt the code with more case statements, then post back with more info and we will see if we can help.

HTH
Colin

 

[sey]

Thank you for help, but i didn'y find it with cases, so i tried other things and found a solution.

Thanks anyway!

Sorry, I've just edited this bit of code;

Select Case Range("afmt100").Value
Case Is < 100
Range("section200").Value = Range("section100").Value
Case Is < 200
Range("section300").Value = Range("section200").Value
Case Is < 300
Range("section400").Value = Range("section300").Value
Case Is < 400
Range("section500").Value = Range("section400").Value
Case Is < 500
Range("section600").Value = Range("section500").Value
Case Else
'Code for Whatever else'
End Select

I'm not 100% sure of what you are trying to do, but if you can't adapt the code with more case statements, then post back with more info and we will see if we can help.

HTH
Colin