Kes Kopyala ve Yapıştır İşlemleri

Bu makalemiz, Excel VBA makrolarını kullanarak Kes Kopyala ve Yapıştır İşlemleri için farklı yöntemleri öğretmeyi amaçlar.

Excel makroları, işlerinizde size inanılmaz derecede hız kazandırır. Bu nedenle, özellikle büyük kapasiteli dosyalarınızda mutlaka makroları kullanmanız gerekir. Dosyanızdaki işlevleri adım adım yerine getirecek olan makro kodlarını hazırladıktan sonra, tek yapmanız gereken o makroyu çalıştırmaktır. Bu esnada dilerseniz ekranın hareketlerini izleyebilir, dilerseniz başka işlerinizi yerine getirebilirsiniz.

Sizlere hazırladığımız bu hazır kodlar, Excel Makrolarının basit adımları olup, Kes Kopyala ve Yapıştır İşlemlerinizi yapmanıza olanak sağlar. Ayrıca başlangıç düzeyindeki Excel kullanıcıları için makrolara adım atmak içinde ideal örneklerdir.

Şimdi boş bir Excel kitabı açın ve aşağıdaki adımları takip ederek, hazır Excel Makrolarımızı kullanmaya başlayın. Naçizane tavsiyem, kodları çalıştırdıktan sonra mutlaka yaptığı işlevin ne olduğunu anlamaya çalışmanız olacaktır. Böylece ezberden kurtulup, kodun işlevini de aklınıza alma imkanına sahip olursunuz.

Ama “yok ben ihtiyacım olduğunda açarım kolayexcel.com’u, kopyalarım kodları” derseniz bizler için gayet yararlı bir hareket olacaktır. Evet artık ilk adımı atalım. Aşağıya ekleyeceğimiz kod parçalarını kullanmak için,


  • Visual Basic Editor'ı (Alt + F11) açın,
  • Yeni bir modül ekleyin (Ekle -> Modül)
  • Kodlar kopyalayıp modülün sağ kısmındaki beyaz bölüme yapıştırın.

TEK BİR HÜCREYİ KES/KOPYALA YAPIŞTIR


Aşağıdaki örnek kod, A1 hücresindeki değeri B1 hücresine kopyala, kes işlemini yaparak yapıştırmanız içindir.
Sub TekHucreKesKopyala()
 Range("A1").Copy Range("B1")
 Range("A1").Cut Range("B1")
 
 Application.CutCopyMode = False
End Sub



SEÇİMİ KOPYALAMA


Aşağıdaki kod ile, seçili olan hücreyi kopyalayıp, B1 hücresine yapıştırabilirsiniz.
Sub SecimiKopyala()
 Selection.Copy Range("B1")
 Selection.Copy
 Selection.Offset(2, 1).Paste
End Sub



BİR HÜCRE ARALIĞINI KES/KOPYALA YAPIŞTIR


Aşağıdaki kod ile, A1:A3 aralığını, B1:B3 aralığına yapıştırabilirsiniz.
Sub AraligiYapistir()
 Range("A1:A3").Copy Range("B1:B3")
 Range("A1:A3").Cut Range("B1:B3")
 Application.CutCopyMode = False
End Sub



TÜM SÜTUNU KES/KOPYALA YAPIŞTIR


Aşağıdaki kod ile A sütununu kes/kopyala yapıp, B sütununa yapıştırabilirsiniz.
Sub SutunYapistirma()
 Range("A:A").Copy Range("B:B")
 Range("A:A").Cut Range("B:B")
 Application.CutCopyMode = False
End Sub



TÜM SATIRI KES/KOPYALA YAPIŞTIR


Aşağıdaki kod ile 1. satırı kes/kopyala yapıp, 2. satıra yapıştırabilirsiniz.
Sub SatirYapistirma()
 Range("1:1").Copy Range("2:2")
 Range("1:1").Cut Range("2:2")
 Application.CutCopyMode = False
End Sub



BİR SAYFADAN KES/KOPYALA BAŞKA SAYFAYA YA DA DOSYAYA YAPIŞTIR

Sub DigerSayfayaYaDaDosyayaYapistirma()
 Worksheets("Sayfa1").Range("A1").Copy Worksheets("Sayfa2").Range("B1")
 Worksheets("Sayfa1").Range("A1").Cut Worksheets("Sayfa2").Range("B1")

 Workbooks("Kitap1.xlsm").Worksheets("Sayfa1").Range("A1").Copy Workbooks("Kitap2.xlsm").Worksheets("Sayfa1").Range("B1")
 Workbooks("Kitap1.xlsm").Worksheets("Sayfa1").Range("A1").Cut Workbooks("Kitap2.xlsm").Worksheets("Sayfa1").Range("B1")
 
 Application.CutCopyMode = False
End Sub



DEĞERLERİ YAPIŞTIRMA


Normalde, Kopyala ve Yapıştır yaptığımızda, bir hücrenin tüm özelliklerini yapıştırılır. Eğer, sadece kopyaladığınız hücredeki değeri, yapıştıracağınız hücreye aktarmak isterseniz, Değerleri Yapıştır seçeneğini kullanmalısınız.
Makro'da bunun en iyi yöntemi, doğrudan hücrenin değerini tanımlamaktır.
Aşağıdaki kodu inceleyin.
Sub DegerleriYapistir()
 Range("B1").Value = Range("A1").Value
 Range("B1:B3").Value = Range("A1:A3").Value
 
 Worksheets("Sayfa2").Range("A1").Value = Worksheets("Sayfa1").Range("A1").Value
 
 Workbooks("Kitap2.xlsm").Worksheets("Sayfa1").Range("A1").Value = Workbooks("Kitap1.xlsm").Worksheets("Sayfa1").Range("A1").Value
 
 Application.CutCopyMode = False
End Sub



ÖZEL YAPIŞTIR

Sub OzelYapistir()
 Range("A1").Copy
 Range("B1").PasteSpecial Paste:=xlPasteFormats
 Range("B1").PasteSpecial Paste:=xlPasteColumnWidths
 Range("B1").PasteSpecial Paste:=xlPasteFormulas
 
 Range("A1").Copy
 Range("B1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
 
 Application.CutCopyMode = False
End Sub
#Kes Kopyala ve Yapıştır İşlemleri
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

#SAYI! (#NUMBER!) Hatası

Yazdığınız formülde , bir sayı ile veya hesaplama sonucu ile ilgili hücre içinde görüntülenemeyecek kadar büyük veya küçük bir sonuç üretilmiş olabilir.

Detaylı bilgi için buradaki makalemizi inceleyebilirsiniz.
Yükleniyor...