koşullu aktarma

[haktem]

Merhaba ekteki kitabın Sayfa1 in D2 hücresinde yazan ile aynı isimli sayfa var, A1 hücresinden E13 hücresine kadar yazılı olan ne varsa D2 hücresindeki ile aynı isimli sayfaya göndermek istiyorum. Aynı sayfaya daha sonra başka bir şey gönderdiğimde önceki yazılanın altına getirmek istiyorum, bunları yapabilecek makro kodu lazım bana paylaşabilir misiniz?

Teşekkür ederim.

 

[Murat OSMA]

Deneyiniz;

Sub Emre()
    Dim syf As Worksheet
    Dim sf As String
    sf = Sayfa1.Range("D2").Value
        For Each syf In Worksheets
            If syf.Name <> "Sayfa1" And syf.Name = sf Then
                Sayfa1.Range("A1:E13").Copy Sheets(sf).Range("A65536").End(3)(1, 1)
            End If
        Next syf
    MsgBox "Tamam", vbMsgBoxRtlReading
    Sheets(sf).Select: Columns.AutoFit
    sf = vbNullString: Set syf = Nothing
End Sub

 

[haktem]

Sayın Murat OSMA verdiğiniz kod işime yaradı yardımınız için teşekkür ederim.

 

[Murat OSMA]

Rica ederim, iyi akşamlar...

 

[haktem]

Sayın Murat OSMA verdiğiniz kodu ve başkalarından aldığım kodları da kullanarak ekteki dosyayı oluşturmaya çalıştım birkaç sorun oluştu yardımcı olursanız sevinirim.

sorunlar;
1. Sayfayı aktar dediğimde diğer sayfaya formülleri de aktarıyor ve değerler #YOK olarak geliyor her şeyi veri olarak getirtebilir miyiz?

2. Satır yükseklik ve sütun genişliklerini aynen aktarmak mümkün mü?

3. Sayfayı aktardıktan sonra makroda hata veriyor.

 

[haktem]

Sayın Murat OSMA verdiğiniz kodu ve başkalarından aldığım kodları da kullanarak ekteki dosyayı oluşturmaya çalıştım birkaç sorun oluştu yardımcı olursanız sevinirim.

sorunlar;
1. Sayfayı aktar dediğimde diğer sayfaya formülleri de aktarıyor ve değerler #YOK olarak geliyor her şeyi veri olarak getirtebilir miyiz?

2. Satır yükseklik ve sütun genişliklerini aynen aktarmak mümkün mü?

3. Sayfayı aktardıktan sonra makroda hata veriyor.

Sayfayı aktardıktan sonraki hatayı buldum hallettim. Diğerleri için yardımcı olur musunuz?

 

[haktem]

Yardımlarınızı bekliyorum.