iki sheet arasında geçiş

[nikomedian]

şöyle bir kod yazdım şimdi sheet2 den sheet1'e veri aktarıyorum; sheet2'yi seçip sheet'1 e kopyalatınca, kaldığım yer sheet1 oluyor sanırım, tekrar kopyalama yapmak için sheet2'ye dönmek için ne yapmam gerekiyor?

Sub DENE()
Dim i, slu, slr, slf As Integer
Dim r As Boolean

slu = 1
For i = 0 To 100
Range("A" & i).Select
Select Case ActiveCell.Value
Case "ÜRÜN:"
Range("G" & i).Select
Selection.Copy
Selection.Copy Destination:=Sheets("Sheet1").Range("B" & slu)
slr = slu + 3
slf = slu + 2
slu = slu + 17

Range("B" & i).Select
Selection.Copy
Selection.Copy Destination:=Sheets("Sheet1").Range("L" & slu)

Range("O" & i).Select
Selection.Copy
Selection.Copy Destination:=Sheets("Sheet1").Range("L" & slf)


Range("A" & i).Select
Select Case ActiveCell.Value
Case "Renk"
Range("A" & i).Select
Selection.Copy
Selection.Copy Destination:=Sheets("Sheet1").Range("A" & slr)
r = True
Range("A" & slr).Select
slr = slr + 1

Case "TOPLAM"
r = False
Case Else
If r = True Then

Else
End If
End Select




End
End Sub

 

[uzmanamele]

merhaba
doğru mu anladım bilmiyorum ama kodların sonuna yazarak deneyiniz

sub deneme()
..
..

Sheets("Sheet2").Select
end sub

 

[nikomedian]

çok sağolun işimi gördü komutunuz.