Alan Adresİ DegİŞİklİgİ Problemİ

[cenkatli]

Sub aktar()
Set s1 = Workbooks("fatura2.xls").Sheets("pcs")
For bak = 1 To Workbooks("urunlistesi2.xls").Sheets.Count
For renk = 1 To s1.[b65536].End(3).Row
If Workbooks("urunlistesi2.xls").Sheets(bak).Name = s1.[p2].Value And s1.Range("b" & renk).Font.ColorIndex = 3 Then
Range(s1.Range("b" & renk).Offset(0, 0), s1.Range("b" & renk).Offset(0, 12)).Copy
s = Workbooks("urunlistesi2.xls").Sheets(bak).[a65536].End(3).Row + 1
Workbooks("urunlistesi2.xls").Sheets(bak).Range("a" & s).PasteSpecial
s1.Range("b" & renk).Font.ColorIndex = 0
End If
Next
Next
Application.CutCopyMode = False
End Sub
Sub temizle()
For bak = 1 To Workbooks("urunlistesi2.xls").Sheets.Count
Workbooks("urunlistesi2.xls").Sheets(bak).[A25:O48].ClearContents
Next
End SUB

YUKARIDA VERMIS OLDUGUM KOD DA YAPISTIRMA İŞLEMİ "B" SÜTUNUNDAN "N" SÜTUNUNA KADAR YAPILIYOR. BEN BUNUN "B" DEN "O" STUNUNA KADAR OLMASINI İSTİYORUM AMA ADRES DEGİŞİKLİGİNİ NERDE YAPACAGIMI BULAMADIM. BIR YARDIMCI OLURSANIZ SEVİNİRİM.
SAYGILAR

 

[Orion1]

Range(s1.Range("b" & renk).Offset(0, 0), s1.Range("b" & renk).Offset(0, 12)).Copy

Merhaba. yukarıdaki kodu aşağıdaki ile değiştirip denermisiniz.

Range(s1.Range("b" & renk).Offset(0, 0), s1.Range("b" & renk).Offset(0, 14)).Copy

 

[cenkatli]

Sn. Sezar Tesekkurler

 

[Orion1]

Sn. Sezar Tesekkurler

Rica ederim.
İyi çalışmalar.