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


İnceleme Beğeni Favori Değerlendirme Ortalama Puan Yıldız Sayısı
173 0 0 0 0
Reklam Alanı
Türkiye'nin en popüler Excel Portalındaki içeriklerin en başında reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum
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

Daha önce yorum yapılmamış!

Metni Kaydır

Bir Excel hücresinde, üst resimdeki gibi yazdığınız metin, hücre genişliğini aşıyorsa ve siz bu genişliği arttırmadan, yüksekliğin otomatik olarak ayarlanmasını istiyorsanız;
Hücre seçiliyken, Excel Şerit Menü -> Giriş -> Metni Kaydır simgesine tıklamanız yeterli olacaktır.

Metni Kaydır

Metni Kaydır
İLGİ ÇEKİCİ İÇERİKLER
İçerik Adı Ekleyen Tarih Tür
ÇokEğer Kullanımı admin 02 Mayıs 2018 makale
Proje Takip Taslak Dosyası cakarem 01 Kasım 2019 dosya
Tarih ve Saat Biçimlendirme admin 23 Mayıs 2018 makale
İki Ayrı Kriter Eşleşiyorsa Sayma admin 01 Ocak 2019 dosya
ListView Nesnesine Sayfadan Veri Alma admin 28 Nisan 2020 dosya
Yükleniyor...