Sayfa 1 den Sayfa 2 ye veri aktar.

Katılım
1 Ekim 2017
Mesajlar
685
Excel Vers. ve Dili
2019 türkçe
Hayırlı günler arkadaşlar. Ekli dosyamda A:F sütunundaki bilgileri sayfa 2 ye aktarmak istiyorum. Yalnız E sutunu aktarılmayacak. Şimdiden teşekkür ediyorum.
 

Ekli dosyalar

  • 20.1 KB Görüntüleme: 9

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Sayfadaki tüm veriler boş bir sayfaya aktarılacaksa aşağıdaki kod ile yapılabilir.

Kod:
Sub Aktar()
    Range("A:D, F:J").Copy Sayfa2.Range("A1")
End Sub
Eğer farklı bir durum varsa lütfen ne istediğinizi daha açık ifade edin.
 
Katılım
1 Ekim 2017
Mesajlar
685
Excel Vers. ve Dili
2019 türkçe
Merhaba.

Sayfadaki tüm veriler boş bir sayfaya aktarılacaksa aşağıdaki kod ile yapılabilir.

Kod:
Sub Aktar()
    Range("A:D, F:J").Copy Sayfa2.Range("A1")
End Sub
Eğer farklı bir durum varsa lütfen ne istediğinizi daha açık ifade edin.
Merhaba Hocam .
- 1. Sayfadaki A:D 2. Sayfanın A:D sütununa

-1. Sayfadaki F satırı 2. Sayfanın E sütununa aktarılacak.
 
Katılım
9 Eylül 2010
Mesajlar
855
Excel Vers. ve Dili
2016&2019&2021 TR
Sn. Dalgalikur'un kodlarındaki F yerine E, J yerine G yazdığınızda işlem gerçekleşecektir sanırım.
 
Katılım
1 Ekim 2017
Mesajlar
685
Excel Vers. ve Dili
2019 türkçe
Hayır size demedim. Soruyu soran kişi kodları denemeden cevap yazmış, neden denemeden cevap yazılıyor onu anlayamıyorum.
Selamlar Hocam.
Ben kodları denedim ve ondan sonra cevap yazdım. Burada F sütunundaki sonraki bilgilerde geldiği için sizde cevabınızda (Eğer farklı bir durum varsa lütfen ne istediğinizi daha açık ifade edin. ) dediğinizden yardımcı olursunuz diye tekrar yazdım.
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Örnek dosyanızda verilerin Sayfa2 ye aktarıldığında nasıl bir sonuç almak istediğinizi de gösterecek şekilde yeniden paylaşır mısınız?
Yani veriler Sayfa2 ye aktarıldığında nasıl görünmeli?
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
O zaman şöyle olacak
Kod:
Sub Aktar()
    Range("A:D, F:F").Copy Sayfa2.Range("A1")
End Sub
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Rica ederim Kolay gelsin.
 
Üst