case else hakkında yardım

[nikomedian]

Merhaba, istediğim komut, A satırında Renk yazısına rastladığında, bir daha TOPLAM yazısı görene kadar arada olan hücreleri sitediğim yere kopyalayan bir döngü arıyorum ama bir türlü kuramadım...

Sub DENE()
Dim i, slu, slr, slf As Integer
Dim r As Boolean
Sheets("Sheet2").Select
slu = 1
For i = 1 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

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

slu = slu + 17

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

Sheets("Sheet2").Select
Range("A" & i).Select

Case "Renk"
Case Is = "TOPLAM"

Case Else
Sheets("Sheet2").Select
Range("A" & i).Select
Selection.Copy
Selection.Copy Destination:=Sheets("Sheet1").Range("A" & slr)
Sheets("Sheet2").Select
Range("A" & slr).Select
slr = slr + 1
i = i + 1
End If
End Select Next i
End Sub

 

[Levent Menteşoğlu]

Renk ve toplam arasındaki verilerin hangileri nereye kopyalanacak detaylı bilgi verirmisiniz.

 

[nikomedian]

Renk ve toplam arasındaki verilerin hangileri nereye kopyalanacak detaylı bilgi verirmisiniz.

Renk ve Toplam arasındaki verileri, sheet 1 in içindeki sevk tarihleri yazan yerin hemen altındaki 2. hücreden başlatarak altalta sralatmak istiyorum.

 

[Levent Menteşoğlu]

sheet1 deki gibi tabloların birbirinden ayrı olması şartmı? altalta kesintisiz devam edemezmi?

 

[nikomedian]

her ürün ve toplam yazısının arasındaki renk kodları; kendi kendi sevk tarihinin altında olmalı, ama iki tablo arasında boşluk olmayabilir çok önemli değil.

 

[Levent Menteşoğlu]

Renk ve Toplam arasındakileri aktaran bir örnek hazırladım. Bu mantıktan hareket edebilirsiniz. Ekli dosyada veriler sayfa1e listelenmektedir.