Kopyalama hatası

[Furkanxalapa]

SISTEMA DE CITAS (1) de tarihte güne tıklayınca açılan sayfa, SISTEMA DE CITAS (3)'de hata veriyor. Lütfen yardımcı olabilir misiniz?
cita

 

[Ömer]

Merhaba,

BD_CITAS sayfasında M ve N sütununu birleştirdiğiniz için kopyalarken hata alıyorsunuz, N sütunu silerseniz hata almazsınız. Yada kopyalama yerine;

Sub dieciseis D7 için: (diğerlerini de değişmeniz gerekir.)

' Range("d7").Select
'Selection.Copy
'Sheets("BD_CITAS").Select
'ActiveWindow.LargeScroll ToRight:=1
'Range("M5").Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

yukarıdaki kodların yerine aşağıdaki gibi kullanabilirsiniz.

Sheets("BD_CITAS").Select
Range("M5") = Sheets("CITAS").Range("d7")

 

[Furkanxalapa]

Merhabalar Ömer bey, öncelikle cevabınız için teşekkürler. Dediğiniz gibi kodları değiştirdim ama aynı hata devam ediyor. "diğerlerini de değişmeniz gerekir." derken neyi kastettiğinizi anlamadım...