• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Excelde birleştirilmiş sütuna veri yapıştırmak

ihsan0618

Altın Üye
Katılım
5 Ekim 2009
Mesajlar
38
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2021 TR 32 Bit
Arkadaşlar merhaba benim sorunum iş yerinde hazırlamış olduğum yıllık izin listesinde değişiklik yapmak istiyorum sayfa 1 deki Ad,soyad y.izin kayıtlarını sayfa ikiye kopyalamak istiyorum.ancak sayfa 2 deki sutunlar birleştirilmiş olduğu için kayıtları kopyalıyorum ancak birleştirilmiş sutunları bozuyor.Sayfa 2 deki sutunları bozmadan sayfa 1 deki kayıtları nasıl 2.sayfaya kopyalayabilirim.Özel yapıştır yaptım olmadı.Şimdiden yardımlarınız için tşk ederim.
 

Ekli dosyalar

İstediğim tam olarak bu değil.Verdiğim örnekteki 2.sayfadaki sutunlar 2 satırdan oluşacak sadece a,b,c,d, sutunları birleştirilmiş olacak benim tek isteğim a,b,c,d sutunlarını sayfa 2 deki birleştirilmiş sutunlara yapıştırmak..Şimdiden tşk ederim cvp verdiğin için..
 
Cvp alamadım bu konuda.Yardım edebilecek arkadaş yokmu...
 
Merhaba,

Bu şekilde yapıştırma işlemi yapamazsınız. Verileri istediğiniz şekilde ancak makro ile diğer sayfaya aktarabilirsiniz.

Aşağıdaki kod ile bu işlemi yapabilirsiniz.

Kod:
Option Explicit
 
Sub VERİLERİ_AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, Satır As Long, X As Long
    
    Application.ScreenUpdating = False
    
    Set S1 = Sheets("Sayfa 1")
    Set S2 = Sheets("Sayfa 2")
    Satır = 3
    
    S2.Range("A3:D" & Rows.Count).ClearContents
    
    For X = 3 To S1.Cells(Rows.Count, 1).End(3).Row
        S2.Range("A" & Satır & ":D" & Satır).Value = S1.Range("A" & X & ":D" & X).Value
        Satır = Satır + 2
    Next
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Sayfa1'deki aynı hücreleri de birleştirmenizi tavsiye ederim.
 
Tşk ederim verdiğin cvp için ancak ben makro uygulaması yapmadım hiç verdiğin formulu nasıl uygulamam gerek.Kusura bakma excelde bilmediğim çok şey var.yardımcı olursan sevinirim.Şimdiden tşk ederim.
 
Geri
Üst