Veri aktarma

[ahzola]

İyi günler

Yardımcı olacak arkadaşlara
şimdiden teşekkür ederim.

Aynı kitap içinde
Seçtiğimiz verileri
belirlediğimiz sayfalar
haricinde ne kadar sayfa var ise
hepsine kopyalayacağız.

 

[mancubus]

muhtemelen bir ihtiyaç nedeni ile tek tek kopyalama durumu söz konusu. cumartesi günkü çözdüğüm hususa yakın bir konu çünkü...

Sub Belli_Araliklari_Aktar()
  
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        Select Case ws.Name
            Case "ahmet", "mehmet", "ali", "hülya"
                'bir işlem yapma
            Case Else
                With ws
                    .Range("B2:F29").Value = Worksheets("hülya").Range("B2:F29").Value
                    .Range("H7").Value = Worksheets("hülya").Range("H7").Value
                    .Range("I18").Value = Worksheets("hülya").Range("I18").Value
                    .Range("J11").Value = Worksheets("hülya").Range("J11").Value
                    '
                    '
                    '
                    '
                End With
        End Select
    Next ws

End Sub

 

[ahzola]

Sayın mancubus
Alakanız için teşekkür ederim.

Kodumuz herşeyiyle kusursuz küçük bir nüans dışında.
Taşıma esnasında biçimlendirmeler
ve resimler kopyalanmıyor.
Hücreyi birebir tanımlarsanız çok iyi olacak.

ellerize sağlık.

 

[mancubus]

rica ederim...

Sub Belli_Araliklari_Aktar_v2()
  
    Dim ws As Worksheet
    Dim i As Long
    
    For Each ws In Worksheets
        Select Case ws.Name
            Case "ahmet", "mehmet", "ali", "hülya"
                'bir işlem yapma
            Case Else
                With Worksheets("hülya").Range("B2:F29, H7, I18, J11") 'ilave hücreler "," ile eklenir
                    For i = 1 To .Areas.Count
                        .Areas(i).Copy ws.Range(.Areas(i).Address)
                    Next
                End With
        End Select
    Next ws

End Sub

 

[ahzola]

Bu kadar olur.
biraz daha kassanız hiç yazı yazmadan
kod üretecekmissiniz

Sayın mancubus
Çok teşekkür ederim.

Herşey gönlünüzce olsun.