Copy range from one sheet to another cell by cell
 

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

Copy range from one sheet to another cell by cell
 

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


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?u=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=195136

http://www.thecodecage.com/forumz

Copy range from one sheet to another cell by cell
 

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...

Copy range from one sheet to another cell by cell
 

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...