Makroda Özel Yapıştırma

[Depdep41]

Merhabalar, aşağıdaki gibi bir kodum var, bir sayfadaki bilgileri alıp başka bir sayfaya yapıştırıyorum, fakat bir değişiklik yapmak zorunda kaldık kopyaladığımız sütünun birine formül yazmak zorunda kaldık ve bu formülün değerlerini almak istiyorum ama formülü yapıştırıyor, PastaSpecial xlPasteValues kullanmam lazım galiba ama beceremedim, yardımcı olurmusunuz. Formül olan sütün Sheets 9 un L sütunu Yapıştırılan yer Sheets 3 ün F sütunu


Formüldeki altı çizgili ve kalın satırı nasıl kullanabilirim ( değiştirebilirim ) Paste yerine Pastaspecial xlPasteValues kullanarak...

Sheets(9).Activate ' // İş Emirleri Sayfası Aktif
For a = 5 To Sheets(9).Range("F1500").End(xlUp).Row '// İş Emirleri sayfası Parça Kodu sütunu
If Cells(a, "M") <> "" Then '// Sevk Tarihi sütunu boş değilse
Range(Cells(a, "F"), Cells(a, "F")).Copy '// F den F ye kadar olan sutunlardaki satırı 5 satırdan başlayarak kopyala

Sheets(3).Activate
ActiveSheet.Paste Range("E" & Range("E1500").End(xlUp).Row + 1) '// Kopyalanan satırı yapıştır ve satır sayısını 1 artır

Sheets(9).Activate ' // İş Emirleri Sayfası Aktif
Range(Cells(a, "L"), Cells(a, "N")).Copy '// L den N ye kadar olan sutunlardaki satırı 5 satırdan başlayarak kopyala

Sheets(3).Activate
ActiveSheet.Paste Range("F" & Range("H1500").End(xlUp).Row + 1) '// Kopyalanan satırı yapıştır ve satır sayısını 1 artır

Sheets(9).Activate ' // İş Emirleri Sayfası Aktif

End If

 

[volki_112]

Merhabalar, aşağıdaki gibi bir kodum var, bir sayfadaki bilgileri alıp başka bir sayfaya yapıştırıyorum, fakat bir değişiklik yapmak zorunda kaldık kopyaladığımız sütünun birine formül yazmak zorunda kaldık ve bu formülün değerlerini almak istiyorum ama formülü yapıştırıyor, PastaSpecial xlPasteValues kullanmam lazım galiba ama beceremedim, yardımcı olurmusunuz. Formül olan sütün Sheets 9 un L sütunu Yapıştırılan yer Sheets 3 ün F sütunu


Formüldeki altı çizgili ve kalın satırı nasıl kullanabilirim ( değiştirebilirim ) Paste yerine Pastaspecial xlPasteValues kullanarak...

Sheets(9).Activate ' // İş Emirleri Sayfası Aktif
For a = 5 To Sheets(9).Range("F1500").End(xlUp).Row '// İş Emirleri sayfası Parça Kodu sütunu
If Cells(a, "M") <> "" Then '// Sevk Tarihi sütunu boş değilse
Range(Cells(a, "F"), Cells(a, "F")).Copy '// F den F ye kadar olan sutunlardaki satırı 5 satırdan başlayarak kopyala

Sheets(3).Activate
ActiveSheet.Paste Range("E" & Range("E1500").End(xlUp).Row + 1) '// Kopyalanan satırı yapıştır ve satır sayısını 1 artır

Sheets(9).Activate ' // İş Emirleri Sayfası Aktif
Range(Cells(a, "L"), Cells(a, "N")).Copy '// L den N ye kadar olan sutunlardaki satırı 5 satırdan başlayarak kopyala

Sheets(3).Activate
ActiveSheet.Paste Range("F" & Range("H1500").End(xlUp).Row + 1) '// Kopyalanan satırı yapıştır ve satır sayısını 1 artır

Sheets(9).Activate ' // İş Emirleri Sayfası Aktif

End If

Bunu Deneyiniz

Sheets(9).Activate ' İş Emirleri Sayfası Aktif
For a = 5 To Sheets(9).Range("F1500").End(xlUp).Row ' İş Emirleri sayfası Parça Kodu sütunu
If Cells(a, "M") <> "" Then ' Sevk Tarihi sütunu boş değilse
Sheets(9).Range(Cells(a, "F"), Cells(a, "F")).Copy ' F sütunundaki hücreyi kopyala
Sheets(3).Activate
Sheets(3).Range("E" & Range("E1500").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues ' Sadece değerleri yapıştır

Sheets(9).Activate
Sheets(9).Range(Cells(a, "L"), Cells(a, "N")).Copy ' L den N ye kadar olan hücreleri kopyala
Sheets(3).Activate
Sheets(3).Range("F" & Range("H1500").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues ' Sadece değerleri yapıştır
End If
Next a

Application.CutCopyMode = False ' Kopyalama modunu kapat

 

[Depdep41]

Bunu Deneyiniz

Sheets(9).Activate ' İş Emirleri Sayfası Aktif
For a = 5 To Sheets(9).Range("F1500").End(xlUp).Row ' İş Emirleri sayfası Parça Kodu sütunu
If Cells(a, "M") <> "" Then ' Sevk Tarihi sütunu boş değilse
Sheets(9).Range(Cells(a, "F"), Cells(a, "F")).Copy ' F sütunundaki hücreyi kopyala
Sheets(3).Activate
Sheets(3).Range("E" & Range("E1500").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues ' Sadece değerleri yapıştır

Sheets(9).Activate
Sheets(9).Range(Cells(a, "L"), Cells(a, "N")).Copy ' L den N ye kadar olan hücreleri kopyala
Sheets(3).Activate
Sheets(3).Range("F" & Range("H1500").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues ' Sadece değerleri yapıştır
End If
Next a

Application.CutCopyMode = False ' Kopyalama modunu kapat

çok çok teşekkür ederim,oldu .