Makroya İlave

[1Al2Ver]

Merhaba,

Aşağıdaki kod'un içine ek olarak ; "İHALE" sayfası O4:O100 aralığını, "İHALE_RAPORU" sayfasında "J2:J100" aralığına da kopyalayan kodu rica ediyorum.

Sub İHALE_RAPORU_AL() Set S1 = Sheets("İHALE") Range("L4:Q100").Select Selection.Copy Sheets("İHALE_RAPORU").Select Range("A2:F100").Select Application.Goto Reference:="R100C1" Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("İHALE").Select Application.CutCopyMode = False Range("A1").Select End Sub

Teşekkür ederim.

 

[Emir Hüseyin Çoban]

.

Sheets("İHALE").range("O4:O100").copy sheets("İHALE_RAPORU").range("J2")

.

 

[1Al2Ver]

Sayın Emir Hüseyin Çoban, merhaba,

Öneriniz ve duyarlığınız için teşekkür ederim.

Saygılarımla.