I find this usefull, thnx again!
>> Set CColumnRng = Sheets("AnotherSheet").Range("C1:C" & B) 'I don't which sheet these cells are on
>> Cells(I + 1, 4).Value = CColumnRng.Cells(RB).Value
On Tue, 13 Apr 2010 15:26:43 +0200, Georges wrote:
> On Tue, 13 Apr 2010 11:28:09 +0000, p45cal wrote:
>
>> I don't know that I understand what you want but could it be something
>> along these lines?:
>>
>>
>> VBA Code:
>> --------------------
>>
>>
>>
>> Sub Makronaredba1()
>> B = InputBox("Insert number of copies", "Umetanje prostorija")
>> Set CColumnRng = Sheets("AnotherSheet").Range("C1:C" & B) 'I don't which sheet these cells are on
>> Sheets("Podloga gubici").Select
>> Range("A1:AJ100").Copy
>> Sheets("GUBICI").Select
>> RB = 0
>> For I = 1 To B * 100 Step 100
>> If Cells(I, 1).Value = 0 Then
>> Cells(I, 1).Select
>> ActiveSheet.Paste
>> End If
>> RB = RB + 1
>> Cells(I + 1, 4).Value = CColumnRng.Cells(RB).Value
>> Next I
>> End Sub
>>
>> --------------------
>>
>>
>>
>>
>>
>>
>> Georges;697719 Wrote:
>>>
>> Dear all,
>>> I would like to copy range C1:C70 from Sheet1 (variable on InputB; if B
>> is
>>> 5 then C1:C5 and if B is 40 then C1:C40) and paste into Sheet2 on the
>> place
>>> of RB (see below), I mean RB should be that range.
>>> so it shold be like this
>>>
>>> Sheet2(D2) = C1
>>> Sheet2(D102) = C2
>>> Sheet2(D202) = C3
>>> ..
>>> ..
>>> ..
>>> Sheet2(D"B"02) = C"B"
>>>
>>> I don't know how to define that starting RB is cell C1 and that the
>> next RB
>>> is cell C2
>>> Thanks in advance
>>>
>>>
>>> Sub Makronaredba1()
>>> '
>>> ' Makronaredba1 Makronaredba
>>> '
>>>
>>> B = InputBox("Insert number of copies", "Umetanje prostorija")
>>> Sheets("Podloga gubici").Select
>>> Range("A1:AJ100").Select
>>> Selection.Copy
>>> Sheets("GUBICI").Select
>>> RB = 0
>>> For I = 1 To B * 100 Step 100
>>> If Cells(I, 1).Value = 0 Then
>>> Cells(I, 1).Select
>>> ActiveSheet.Paste
>>> End If
>>> Cells(I + 1, 4).Value = RB + 1
>>> RB = RB + 1
>>> Next I
>>> End Sub
>
> Thnx, I will check it tonight...
|
Similar Threads
